Avatar billede dark-angel Nybegynder
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
Avatar billede mccannon Nybegynder
22. september 2002 - 16:10 #1
øhh vad fejl laver det ?
Avatar billede goose Nybegynder
22. september 2002 - 16:10 #2
Det ville måske hjælpe med lidt information om hvilke fejl du får ?!?

/Goose
Avatar billede KingMedia Novice
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
Avatar billede dark-angel Nybegynder
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
Avatar billede goose Nybegynder
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
Avatar billede dark-angel Nybegynder
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))
------------------------------------^
Avatar billede KingMedia Novice
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"))
Avatar billede dark-angel Nybegynder
22. september 2002 - 19:21 #8
nu får jeg denne fejl:
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/ret.asp, line 71
Avatar billede goose Nybegynder
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
Avatar billede dark-angel Nybegynder
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......
Avatar billede dark-angel Nybegynder
23. september 2002 - 00:44 #11
sådan ser linje 71 ud:
<td><input type="text" value="<% =rs("Favmap") %>" name="Favmap"></td></td>
Avatar billede goose Nybegynder
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
Avatar billede KingMedia Novice
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
Avatar billede KingMedia Novice
23. september 2002 - 07:24 #14
og husk at sætte en rs.update ind lige efter

'Opdaterer felterner
Avatar billede dark-angel Nybegynder
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
Avatar billede dark-angel Nybegynder
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>
Avatar billede KingMedia Novice
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>
Avatar billede KingMedia Novice
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
%>
Avatar billede dark-angel Nybegynder
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
Avatar billede KingMedia Novice
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") & "'")
Avatar billede KingMedia Novice
17. april 2004 - 10:43 #21
husk at lukke spørgsmålet hvis ikke du har fået et brugbart svar :o)

/Mads
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester