22. september 2002 - 16:04
Der er
19 kommentarer og 2 løsninger
ret.asp
Hejsa Hvorfor kan jeg ikke få dette script til at virke ? <HTML> <Body> <table> <tr> <td></td> </tr> </table><BR> <% Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login.mdb") Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs.open sql, conn, 1, 3 if Request.ServerVariables("REQUEST_METHOD") = "POST" then rs.update rs("Username") = Trim(Request.Form("Username")) rs("Password") = Trim(Request.Form("Password")) rs("nickname") = Trim(Request.Form("nickname")) rs("alder") = Trim(Request.Form("alder")) rs("by") = Trim(Request.Form("by")) rs("icq") = Trim(Request.Form("icq")) rs("mail") = Trim(Request.Form("mail")) rs("favgun") = Trim(Request.Form("favgun")) rs("favmap") = Trim(Request.Form("favmap")) rs.update response.write "Ændringerne er foretaget<BR><BR>" end if %> <center><form action="ret.asp?id=<%=Session("UserID")%>" method="POST"> <table witdh="300"> <tr> <td>Username</td> <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> </tr> <tr> <td>Password</td> <td><input type="text" value="<% =rs("Password") %>" name="Password"></td> </tr> <tr> <td>NickName</td> <td><input type="text" value="<% =rs("Nickname") %>" name="Nickname"></td></tr> <tr> <td>Alder</td> <td><input type="text" value="<% =rs("Alder") %>" name="Alder"></td></td> </tr> <tr> <td>By</td> <td><input type="text" value="<% =rs("By") %>" name="By"></td></td> </tr> <tr> <td>ICQ</td> <td><input type="text" value="<% =rs("Icq") %>" name="Icq"></td></td> </tr> <tr> <td>Mail</td> <td><input type="text" value="<% =rs("Mail") %>" name="Mail"></td></td> </tr> <tr> <td>Favorit våben</td> <td><input type="text" value="<% =rs("Favgun") %>" name="Favgun"></td></td> </tr> <tr> <td>Favorit Map</td> <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td> </tr> <tr> <td></td> <td><input type="submit" value="Rediger" class="button"></td> </tr> </table> </form> </center> Hvad fanden er der i vejen med det ??? Mvh Morten
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
22. september 2002 - 16:10
#1
øhh vad fejl laver det ?
22. september 2002 - 16:10
#2
Det ville måske hjælpe med lidt information om hvilke fejl du får ?!? /Goose
22. september 2002 - 16:13
#3
prøv at ændre Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs.open sql, conn, 1, 3 if Request.ServerVariables("REQUEST_METHOD") = "POST" then til if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs.open sql, conn, 1, 3 rs.update rs("Username") = Trim(Request.Form("Username")) rs("Password") = Trim(Request.Form("Password")) rs("nickname") = Trim(Request.Form("nickname")) rs("alder") = Trim(Request.Form("alder")) rs("by") = Trim(Request.Form("by")) rs("icq") = Trim(Request.Form("icq")) rs("mail") = Trim(Request.Form("mail")) rs("favgun") = Trim(Request.Form("favgun")) rs("favmap") = Trim(Request.Form("favmap")) rs.update response.write "Ændringerne er foretaget<BR><BR>" end if /Mads
22. september 2002 - 16:39
#4
argh.. sorry jeg glemte fejlen.. GG Jeg får følgende fejl : Siden kan ikke vises... HTTP 500 - intern serverfejl
22. september 2002 - 17:02
#5
I din browser: funktioner > internetindstillinger > avanceret Fjerne vingen i: Vis meddelser om uskadelige HTTP-fejl - og kom så med en ny fejlmeddelse /Goose
22. september 2002 - 17:21
#6
we,... det så mere rigtigt ud, jeg får følgene fejl: Microsoft VBScript compilation error '800a0409' Unterminated string constant /ret.asp, line 26 rs("icq") = Trim(Request.Form("icq)) ------------------------------------^
22. september 2002 - 17:30
#7
Heh..... du mangler et " rs("icq") = Trim(Request.Form("icq)) laves om til .. rs("icq") = Trim(Request.Form("icq"))
22. september 2002 - 19:21
#8
nu får jeg denne fejl: Microsoft VBScript compilation error '800a03f6' Expected 'End' /ret.asp, line 71
22. september 2002 - 20:03
#9
Jamen så må der jo være en if sætning du ikke har fået afsluttet, så må du jo kigge din kode igennem, linie 71 fremgår da vist ikke af det du har postet tidligere ? Goose
23. september 2002 - 00:43
#10
sådan ser hele koden ud : <HTML> <Body> <table> <tr> <td></td> </tr> </table><BR> <% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login_2000.mdb") 'Henter brugerens profil if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs.open sql, conn, 1, 3 if Request.ServerVariables("REQUEST_METHOD") = "POST" then 'Opdaterer felterner rs("Username") = Trim(Request.Form("Username")) rs("Password") = Trim(Request.Form("Password")) rs("nickname") = Trim(Request.Form("nickname")) rs("alder") = Trim(Request.Form("alder")) rs("by") = Trim(Request.Form("by")) rs("icq") = Trim(Request.Form("icq")) rs("mail") = Trim(Request.Form("mail")) rs("favgun") = Trim(Request.Form("favgun")) rs("favmap") = Trim(Request.Form("favmap")) rs.update response.write "Ændringerne er foretaget<BR><BR>" end if %> <center><form action="ret.asp?id=<%=Session("UserID")%>" method="POST"> <table witdh="300"> <tr> <td>Username</td> <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> </tr> <tr> <td>Password</td> <td><input type="text" value="<% =rs("Password") %>" name="Password"></td> </tr> <tr> <td>NickName</td> <td><input type="text" value="<% =rs("Nickname") %>" name="Nickname"></td></tr> <tr> <td>Alder</td> <td><input type="text" value="<% =rs("Alder") %>" name="Alder"></td></td> </tr> <tr> <td>By</td> <td><input type="text" value="<% =rs("By") %>" name="By"></td></td> </tr> <tr> <td>ICQ</td> <td><input type="text" value="<% =rs("Icq") %>" name="Icq"></td></td> </tr> <tr> <td>Mail</td> <td><input type="text" value="<% =rs("Mail") %>" name="Mail"></td></td> </tr> <tr> <td>Favorit våben</td> <td><input type="text" value="<% =rs("Favgun") %>" name="Favgun"></td></td> </tr> <tr> <td>Favorit Map</td> <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td> </tr> <tr> <td></td> <td><input type="submit" value="Rediger" class="button"></td> </tr> </table> </form> </center> jeg kan ikke se hvad det skulle være der er i vejen......
23. september 2002 - 00:44
#11
sådan ser linje 71 ud: <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td>
23. september 2002 - 07:04
#12
Du har 2 steder: if Request.ServerVariables dette betyder at du også skal have 2 gange: end if og du har kun 1 ! Som jeg skrev, skal du have lige så mange end if som du har if /Goose
23. september 2002 - 07:22
#13
Du har to "if" sætninger i din kode.... der skal kun være en ... så den skal se således ud... 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login_2000.mdb") 'Henter brugerens profil if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs.open sql, conn, 1, 3 'Opdaterer felterner rs("Username") = Trim(Request.Form("Username")) rs("Password") = Trim(Request.Form("Password")) rs("nickname") = Trim(Request.Form("nickname")) rs("alder") = Trim(Request.Form("alder")) rs("by") = Trim(Request.Form("by")) rs("icq") = Trim(Request.Form("icq")) rs("mail") = Trim(Request.Form("mail")) rs("favgun") = Trim(Request.Form("favgun")) rs("favmap") = Trim(Request.Form("favmap")) rs.update response.write "Ændringerne er foretaget<BR><BR>" end if /Mads
23. september 2002 - 07:24
#14
og husk at sætte en rs.update ind lige efter 'Opdaterer felterner
23. september 2002 - 14:01
#15
hehe... nu får jeg denne fejl:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rs'
/clan-tis/test/ret.asp, line 42
fejlen kan også ses på:
www.friserverplads.dk/clan-tis/test/ret.asp
23. september 2002 - 14:03
#16
Linje 42 ser sådan ud: <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> og hele min kode ser nu sådan her ud: <HTML> <Body> <table> <tr> <td></td> </tr> </table><BR> <% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login.mdb") 'Henter brugerens profil if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs.open sql, conn, 1, 3 'Opdaterer felterner rs.update rs("Username") = Trim(Request.Form("Username")) rs("Password") = Trim(Request.Form("Password")) rs("nickname") = Trim(Request.Form("nickname")) rs("alder") = Trim(Request.Form("alder")) rs("by") = Trim(Request.Form("by")) rs("icq") = Trim(Request.Form("icq")) rs("mail") = Trim(Request.Form("mail")) rs("favgun") = Trim(Request.Form("favgun")) rs("favmap") = Trim(Request.Form("favmap")) rs.update response.write "Ændringerne er foretaget<BR><BR>" end if %> <center><form action="ret.asp?id=<%=Session("UserID")%>" method="POST"> <table witdh="300"> <tr> <td>Username</td> <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> </tr> <tr> <td>Password</td> <td><input type="text" value="<% =rs("Password") %>" name="Password"></td> </tr> <tr> <td>NickName</td> <td><input type="text" value="<% =rs("Nickname") %>" name="Nickname"></td></tr> <tr> <td>Alder</td> <td><input type="text" value="<% =rs("Alder") %>" name="Alder"></td></td> </tr> <tr> <td>By</td> <td><input type="text" value="<% =rs("By") %>" name="By"></td></td> </tr> <tr> <td>ICQ</td> <td><input type="text" value="<% =rs("Icq") %>" name="Icq"></td></td> </tr> <tr> <td>Mail</td> <td><input type="text" value="<% =rs("Mail") %>" name="Mail"></td></td> </tr> <tr> <td>Favorit våben</td> <td><input type="text" value="<% =rs("Favgun") %>" name="Favgun"></td></td> </tr> <tr> <td>Favorit Map</td> <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td> </tr> <tr> <td></td> <td><input type="submit" value="Rediger" class="button"></td> </tr> </table> </form> </center>
23. september 2002 - 17:16
#17
Der er ingen SQL forespørgsel inden du submitter formen, så det laver vi her.. <HTML> <Body> <table> <tr> <td></td> </tr> </table><BR> <% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login.mdb") ' Henter brugerens Profil set rs = conn.execute("SELECT * FROM Users Where UserID=" & Session("UserID") & "") ' Updater et recordset... if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs1 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs1.open sql, conn, 1, 3 'Opdaterer felterner rs1.update rs1("Username") = Trim(Request.Form("Username")) rs1("Password") = Trim(Request.Form("Password")) rs1("nickname") = Trim(Request.Form("nickname")) rs1("alder") = Trim(Request.Form("alder")) rs1("by") = Trim(Request.Form("by")) rs1("icq") = Trim(Request.Form("icq")) rs1("mail") = Trim(Request.Form("mail")) rs1("favgun") = Trim(Request.Form("favgun")) rs1("favmap") = Trim(Request.Form("favmap")) rs1.update response.write "Ændringerne er foretaget<BR><BR>" end if %> <center><form action="ret.asp?id=<%=Session("UserID")%>" method="POST"> <table witdh="300"> <tr> <td>Username</td> <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> </tr> <tr> <td>Password</td> <td><input type="text" value="<% =rs("Password") %>" name="Password"></td> </tr> <tr> <td>NickName</td> <td><input type="text" value="<% =rs("Nickname") %>" name="Nickname"></td></tr> <tr> <td>Alder</td> <td><input type="text" value="<% =rs("Alder") %>" name="Alder"></td></td> </tr> <tr> <td>By</td> <td><input type="text" value="<% =rs("By") %>" name="By"></td></td> </tr> <tr> <td>ICQ</td> <td><input type="text" value="<% =rs("Icq") %>" name="Icq"></td></td> </tr> <tr> <td>Mail</td> <td><input type="text" value="<% =rs("Mail") %>" name="Mail"></td></td> </tr> <tr> <td>Favorit våben</td> <td><input type="text" value="<% =rs("Favgun") %>" name="Favgun"></td></td> </tr> <tr> <td>Favorit Map</td> <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td> </tr> <tr> <td></td> <td><input type="submit" value="Rediger" class="button"></td> </tr> </table> </form> </center>
23. september 2002 - 17:20
#18
Der skal lige lidt mer på her.... ----------------------------------- <HTML> <Body> <table> <tr> <td></td> </tr> </table><BR> <% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login.mdb") ' Henter brugerens Profil set rs = conn.execute("SELECT * FROM Users Where UserID=" & Session("UserID") & "") ' Updater et recordset... if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs1 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs1.open sql, conn, 1, 3 'Opdaterer felterner rs1.update rs1("Username") = Trim(Request.Form("Username")) rs1("Password") = Trim(Request.Form("Password")) rs1("nickname") = Trim(Request.Form("nickname")) rs1("alder") = Trim(Request.Form("alder")) rs1("by") = Trim(Request.Form("by")) rs1("icq") = Trim(Request.Form("icq")) rs1("mail") = Trim(Request.Form("mail")) rs1("favgun") = Trim(Request.Form("favgun")) rs1("favmap") = Trim(Request.Form("favmap")) rs1.update response.write "Ændringerne er foretaget<BR><BR>" ' rydder op i recordsets... rs1.close set rs1 = nothing end if %> <center><form action="ret.asp?id=<%=Session("UserID")%>" method="POST"> <table witdh="300"> <tr> <td>Username</td> <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> </tr> <tr> <td>Password</td> <td><input type="text" value="<% =rs("Password") %>" name="Password"></td> </tr> <tr> <td>NickName</td> <td><input type="text" value="<% =rs("Nickname") %>" name="Nickname"></td></tr> <tr> <td>Alder</td> <td><input type="text" value="<% =rs("Alder") %>" name="Alder"></td></td> </tr> <tr> <td>By</td> <td><input type="text" value="<% =rs("By") %>" name="By"></td></td> </tr> <tr> <td>ICQ</td> <td><input type="text" value="<% =rs("Icq") %>" name="Icq"></td></td> </tr> <tr> <td>Mail</td> <td><input type="text" value="<% =rs("Mail") %>" name="Mail"></td></td> </tr> <tr> <td>Favorit våben</td> <td><input type="text" value="<% =rs("Favgun") %>" name="Favgun"></td></td> </tr> <tr> <td>Favorit Map</td> <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td> </tr> <tr> <td></td> <td><input type="submit" value="Rediger" class="button"></td> </tr> </table> </form> </center> <% ' rydder op i recordsets rs.close set rs = nothing ' lukker forbindelsen conn.close set conn = nothing %>
23. september 2002 - 17:27
#19
hmm... nu ser min kode sådan ud: <HTML> <Body> <table> <tr> <td></td> </tr> </table><BR> <% 'Åbner connection til databasen Set conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("login.mdb") ' Henter brugerens Profil set rs = conn.execute("SELECT * FROM Users Where UserID=" & Session("UserID") & "") ' Updater et recordset... if Request.ServerVariables("REQUEST_METHOD") = "POST" then Set rs1 = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Users Where UserID=" & Session("UserID") rs1.open sql, conn, 1, 3 'Opdaterer felterner rs1.update rs1("Username") = Trim(Request.Form("Username")) rs1("Password") = Trim(Request.Form("Password")) rs1("nickname") = Trim(Request.Form("nickname")) rs1("alder") = Trim(Request.Form("alder")) rs1("by") = Trim(Request.Form("by")) rs1("icq") = Trim(Request.Form("icq")) rs1("mail") = Trim(Request.Form("mail")) rs1("favgun") = Trim(Request.Form("favgun")) rs1("favmap") = Trim(Request.Form("favmap")) rs1.update response.write "Ændringerne er foretaget<BR><BR>" ' rydder op i recordsets... rs1.close set rs1 = nothing end if %> <center><form action="ret.asp?id=<%=Session("UserID")%>" method="POST"> <table witdh="300"> <tr> <td>Username</td> <td><input type="text" value="<% =rs("Username") %>" name="navn"></td> </tr> <tr> <td>Password</td> <td><input type="text" value="<% =rs("Password") %>" name="Password"></td> </tr> <tr> <td>NickName</td> <td><input type="text" value="<% =rs("Nickname") %>" name="Nickname"></td></tr> <tr> <td>Alder</td> <td><input type="text" value="<% =rs("Alder") %>" name="Alder"></td></td> </tr> <tr> <td>By</td> <td><input type="text" value="<% =rs("By") %>" name="By"></td></td> </tr> <tr> <td>ICQ</td> <td><input type="text" value="<% =rs("Icq") %>" name="Icq"></td></td> </tr> <tr> <td>Mail</td> <td><input type="text" value="<% =rs("Mail") %>" name="Mail"></td></td> </tr> <tr> <td>Favorit våben</td> <td><input type="text" value="<% =rs("Favgun") %>" name="Favgun"></td></td> </tr> <tr> <td>Favorit Map</td> <td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td> </tr> <tr> <td></td> <td><input type="submit" value="Rediger" class="button"></td> </tr> </table> </form> </center> <% ' rydder op i recordsets rs.close set rs = nothing ' lukker forbindelsen conn.close set conn = nothing %> og jeg får følgende fejl: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'UserID='. /clan-tis/test/ret.asp, line 15
23. september 2002 - 17:31
#20
Hmmmm prøv at skifte det ud med denne her.. ' Henter brugerens Profil set rs = conn.execute("SELECT * FROM Users Where UserID='" & Session("UserID") & "'")
17. april 2004 - 10:43
#21
husk at lukke spørgsmålet hvis ikke du har fået et brugbart svar :o) /Mads
Kurser inden for grundlæggende programmering