Database

Dato() og time() er jo funktioner - dem må du ikke bruge som feltnavne -> brug nogle andre.

Har du styr på Integers og Strings?

hvordan kan jeg så få den til at indsette time og dato??

du laver en variabel indeholdende tid og dato...

dato = date()
tid = time()

det virker heller ikke hvis jeg fjerner dem!

du skal bare fjerne () fra dato

\"                dato =\'\" & Request.Form(\"sidstopdateret\")  & \"\', \" & _


Time det samme fjern () og omdøb time til noget andet da time er reserveret ord iaccesss eller sæt [] time i SQL\'erne:
\"                [time] =\'\" & Request.Form(\"time\")  & \"\', \" & _

ja men den vil stadig ikke opdatere infoen!

den ser sådan ud nu

tid = time()
dato = dato()

    SQL = \"UPDATE medlemmer SET alias =\'\" & Request.Form(\"alias\") & \"\', \" & _
          \"                navn =\'\" & Request.Form(\"navn\")  & \"\', \" & _
          \"                email =\'\" & Request.Form(\"email\")  & \"\', \" & _
          \"                icq =\'\" & Request.Form(\"icq\")  & \"\', \" & _
          \"                vaben =\'\" & Request.Form(\"vaben\")  & \"\', \" & _
          \"                item =\'\" & Request.Form(\"item\")  & \"\', \" & _
          \"                map =\'\" & Request.Form(\"map\")  & \"\', \" & _
          \"                pic =\'\" & Request.Form(\"pic\")  & \"\', \" & _
          \"                om =\'\" & Request.Form(\"om\")  & \"\', \" & _ 
          \"                dato =\'\" & Request.Form(\"sidstopdateret\")  & \"\', \" & _ 
          \"                tid =\'\" & Request.Form(\"time\")  & \"\', \" & _
          \" WHERE ID = \" & Session(\"login\")

du skal ikke havde , før WHERE

\"                tid =\'\" & Request.Form(\"time\")  & \"\'\" & _

nope virker stadig ikke!

hvilken fejl får du?

her er hele siden






<%If Not Session(\"login\") > 0 Then Response.Redirect(\"login.asp\") %>
<!-- #include file=\"toppriv.asp\" -->
<center>

<%
set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\".\") &\"/98.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"
if Request.QueryString(\"UPDATE\") = 1 then

dag = dato()
tid = time()
    SQL = \"UPDATE medlemmer SET alias =\'\" & Request.Form(\"alias\") & \"\', \" & _
          \"                navn =\'\" & Request.Form(\"navn\")  & \"\', \" & _
          \"                email =\'\" & Request.Form(\"email\")  & \"\', \" & _
          \"                icq =\'\" & Request.Form(\"icq\")  & \"\', \" & _
          \"                vaben =\'\" & Request.Form(\"vaben\")  & \"\', \" & _
          \"                item =\'\" & Request.Form(\"item\")  & \"\', \" & _
          \"                map =\'\" & Request.Form(\"map\")  & \"\', \" & _
          \"                pic =\'\" & Request.Form(\"pic\")  & \"\', \" & _
          \"                om =\'\" & Request.Form(\"om\")  & \"\',\" & _ 
          \"                dag =\'\" & Request.Form(\"sidstopdateret\")  & \"\', \" & _ 
          \"                tid=\'\" & Request.Form(\"time\")  & \"\'\" & _ 
          \" WHERE ID = \" & Session(\"login\")

   
end if
%>


<%
SQL = \"SELECT * FROM medlemmer WHERE ID = \"& Session(\"login\")
Set RS = conn.Execute(SQL)
dim billede
billede = RS.Fields(\"pic\")
%>
  <FORM ACTION=\"retinfo.asp?update=1\" METHOD=\"post\">
<table border=\"0\" width=\"600\" bgcolor=\"#003399\">
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\">
        <tr>
          <td width=\"50%\">
            <table border=\"0\" width=\"100%\">
              <tr>
                <td width=\"50%\">Alias:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\">
                      <%
                      alias=RS.Fields(\"alias\")
                      %><font color=\"#000000\">
                      <input name=alias type=text value=<%=alias%>>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Navn:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><font color=\"#000000\"><input name=navn type=text value=<%=RS.Fields(\"navn\")%>></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Mail:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\">
                      <%
                      email=RS.Fields(\"mail\")
                      %>
                      <font color=\"#000000\"><input name=email type=text value=<%=email%>></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">ICQ:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><%
icq = RS.Fields(\"icq\")
%>
<input name=icq type=text value=<%=icq%>><</td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Rang:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><font color=\"#000000\"><%=RS.Fields(\"rang\")%></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Våben:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><font color=\"#000000\"><input name=vaben type=text value=<%=RS.Fields(\"vaben\")%>></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Item:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><font color=\"#000000\"><input name=item type=text value=<%=RS.Fields(\"item\")%>></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Map:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><font color=\"#000000\"><input name=map type=text value=<%=RS.Fields(\"map\")%>></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Score:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><font color=\"#000000\"><%=RS.Fields(\"Score\")%></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr>
                <td width=\"50%\">Hjemmeside:</td>
                <td width=\"50%\">
                  <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\"><%=alias%>\'s HP</td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
          <td height=\"100%\" width=\"50%\"> 
          <table bgcolor=\"#FFFFFF\" cellpadding=\"1\" height=\"100%\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
                    <tr>
                      <td width=\"100%\">
<input name=alias align=center type=pic value=<%=billede%>></td>
                    </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width=\"100%\">
      <table border=\"0\" width=\"100%\">
        <tr>
          <td width=\"100%\">Kommentar:
            <table  bgcolor=\"#FFFFFF\" cellpadding=\"1\" width=100% cellspacing=\"0\" border=1 bordercolor=\"#000000\">
              <tr>
                <td width=\"100%\"><font color=\"#000000\"><TEXTAREA ROWS=\"4\" COLS=\"20\" NAME=\"om\"><%=RS.Fields(\"om\")%></textarea></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width=\"100%\">
            <p align=\"right\">Sidst opdateret den. Opdateres selv</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<input type=submit Value=gem>

</form>







</center>
<!-- #include file=\"bund.asp\" -->

eller hvis der er en af jer der han en andern måde at updater i en db, så vil det også være ok!

hvordan er formaterne i din database! Tid og dato - er det f.eks i datoformat, så skal det se sådan ud:

\"                dag =#\"&Request.Form(\"sidstopdateret\")&\"#, \" & _ 

eller sådan noget lignende!

prøv lige at rette if sætningen til:

if Request.QueryString(\"UPDATE\") = \"1\" then

eller er det \"#request.form(\"sidstopdateret\")#\"

kan ikke hlet huske det

:0( virker stadig ikke

Er der ikke bare en der har et andet update script?

får du en fejl ?

prøv at fjerne de to linier:
dag = dato()
tid = time()

du har ikke, så vidt jeg kan se, et felt der hedder time på din form:
Request.Form(\"time\")
Du har heller ikke et felt i din form som hedder sidstopdateret:
request.form(\"sidstopdateret\")

så lav

\"                dag =#\" & date() & \"#, \" & _ 
\"                tid=#\" & time() & \"#\" & _

Hvilket format har dag og tid i din database?

dato og klokkeset!
men den virker stadig ikke selv om jeg slætter de der dag og tid lnier!

    SQL = \"UPDATE medlemmer SET alias =\'\" & Request.Form(\"alias\") & \"\', \" & _
          \"                navn =\'\" & Request.Form(\"navn\")  & \"\', \" & _
          \"                email =\'\" & Request.Form(\"email\")  & \"\', \" & _
          \"                icq =\'\" & Request.Form(\"icq\")  & \"\', \" & _
          \"                vaben =\'\" & Request.Form(\"vaben\")  & \"\', \" & _
          \"                item =\'\" & Request.Form(\"item\")  & \"\', \" & _
          \"                map =\'\" & Request.Form(\"map\")  & \"\', \" & _
          \"                pic =\'\" & Request.Form(\"pic\")  & \"\', \" & _
          \"                om =\'\" & Request.Form(\"om\")  & \"\',\" & _ 
          \"                dag =\'\" & date & \"\', \" & _ 
          \"                tid=\'\" & time & \"\'\" & _ 
          \" WHERE ID = \" & Session(\"login\")

virker stadig ikke :0(

får du en fejlkode??

nope den sender mig bare vidre til retinfo.asp?opdate=1 uden at have updateret noget!!!!

prøv

if CInt(Request.QueryString(\"UPDATE\")) = Cint(1) then

Hvis der ikke sker noget og du ikke får en fejl tror jeg ikke den kommer uigennem din update kode.