Syntax error (missing operator)

Hvornår dukker den op?

<%
if session("userid") = "" then
%>
<form action='godkend.asp' method='post' name='login'><font color='#C0C0C0' size='1' face='Verdana'><font size='1' color='#c0c0c0'>User:</font><br><input type='text' name='brugernavn' style='border:3px inset #808080; FONT-SIZE: 10px; FILTER: alpha(opacity =65); COLOR: #99BF00; BACKGROUND-COLOR: #3D3D3D' size='13' align='middle'> <font size= '1' color='#c0c0c0'><br>Password:<br><input type='password' name='password' style='border:3px inset #808080; FONT-SIZE: 10px; FILTER: alpha(opacity =65); COLOR: #99BF00; BACKGROUND-COLOR: #3D3D3D' size='16'></font><br><br><input type='submit' value='Enter now' name='submit' style='BORDER-RIGHT: #808080 1px ridge; BORDER-TOP: #808080 1px ridge; FONT-SIZE: 10px; FILTER: alpha(opacity =65); BORDER-LEFT: #808080 1px ridge; COLOR: #c0c0c0; BORDER-BOTTOM: #808080 1px ridge; BACKGROUND-COLOR: #3d3d3d'></form>Not user ?<br><b><a href='ny.asp'><font color='#c0c0c0'>Create account</a></b><br><br><img src='grafik/sponsers.gif'><br><img style=' FILTER: alpha(opacity =50);' src='grafik/Sponsere/webpartner.gif'><br><br><img style=' FILTER: alpha(opacity =50);' src='grafik/Sponsere/teflonlogony.jpg'><br><br><img style=' FILTER: alpha(opacity =50);' src='grafik/Sponsere/ghlogo.gif'></td>   
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\users.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE id=" & session("userid")


Set rs = Conn.Execute(strSQL)

'else

'Response.Write "Intet endnu!!!"

end if
%>


I denne her sætning

Prøv at rette
strSQL = "SELECT * FROM brugere WHERE id=" & session("userid")
til
strSQL = "SELECT * FROM brugere WHERE id = '" &  session("userid") & "'"

nope det virker ikke :(

Nej du har vel både userid og id som tal, men du spørger:


If session("userid") = "" then
....
strSQL = "SELECT * FROM brugere WHERE id=" & session("userid")
Else
...
End if

Skal det ikke være:
If session("userid") <> "" then ?

Den kommer stadigvæk med denne fejl... når man er logget ind

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/dom/sidemenu_h.asp, line 22

-------------------------Selve koden---------------------------------------

<%
if session("userid") <> "" then
 
  Response.Write "You are logged in  :)"

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser\users.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE id = '" &  session("userid") & "'"


Set rs = Conn.Execute(strSQL)

else
  Response.Write "<form action='godkend.asp' method='post' name='login'><font color='#C0C0C0' size='1' face='Verdana'><font size='1' color='#c0c0c0'>User:</font><br><input type='text' name='brugernavn' style='border:3px inset #808080; FONT-SIZE: 10px; FILTER: alpha(opacity =65); COLOR: #99BF00; BACKGROUND-COLOR: #3D3D3D' size='13' align='middle'> <font size= '1' color='#c0c0c0'><br>Password:<br><input type='password' name='password' style='border:3px inset #808080; FONT-SIZE: 10px; FILTER: alpha(opacity =65); COLOR: #99BF00; BACKGROUND-COLOR: #3D3D3D' size='16'></font><br><br><input type='submit' value='Enter now' name='submit' style='BORDER-RIGHT: #808080 1px ridge; BORDER-TOP: #808080 1px ridge; FONT-SIZE: 10px; FILTER: alpha(opacity =65); BORDER-LEFT: #808080 1px ridge; COLOR: #c0c0c0; BORDER-BOTTOM: #808080 1px ridge; BACKGROUND-COLOR: #3d3d3d'></form>Not user ?<br><b><a href='ny.asp'><font color='#c0c0c0'>Create account</a></b><br><br><img src='grafik/sponsers.gif'><br><img style=' FILTER: alpha(opacity =50);' src='grafik/Sponsere/webpartner.gif'><br><br><img style=' FILTER: alpha(opacity =50);' src='grafik/Sponsere/teflonlogony.jpg'><br><br><img style=' FILTER: alpha(opacity =50);' src='grafik/Sponsere/ghlogo.gif'></td>"

end if
%>

if id in the database is a number then you should use

strSQL = "SELECT * FROM brugere WHERE id = " &  session("userid")

'' is for text fields!

thanx

hvad med den her:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/dom/start.asp, line 146


----------------------------------Code here----------------------------------
if session("userid") <> "" then

  Response.Write "</center>" & vbCrLf
  Response.Write "<form action=" & Chr(34) & Request.ServerVariables("PATH_INFO") & "?function=comment&id=" & ID & Chr(34) & " method=""post"">" & vbCrLf
  Response.Write "<textarea name=""Kommentar"" class=""Text"" cols=49 rows=4 style=""border:1px solid #000000;"">You can give a comment here if you want. </textarea><br> " & vbCrLf
  Response.Write "<font size=""1"" font face=""verdana"" color=""#808080"">Name :<br>" & vbCrLf
  Response.Write "<input class=""Text"" name=""Navn"" type=text size=18 style=""border:1px solid #000000; ""><br>" & vbCrLf
' Response.Write "<font size=""1"" color=""#808080"">E-mail :<br>" & vbCrLf
' Response.Write "<input class=""Text"" name=""email"" type=text size=30 style=""border:1px solid #000000; ""><br>" & vbCrLf
  Response.Write "<br>" & vbCrLf
  Response.Write "<input class=""Button"" type=submit value=""Comment!"" style=""color: #C0C0C0; border: 1px outset #C0C0C0; background-color: #808080; font-size:8pt; font-family:Verdana; font-weight:bold"">" & vbCrLf
  Response.Write "</form>" & vbCrLf
 
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("databaser/users.mdb")
Conn.Open DSN
Dim samletAntal

strSQL = "SELECT * FROM brugere WHERE id = '" &  session("userid") & "'"

Set rs = Conn.Execute(strSQL)

else
  Response.Write "&nbsp;&nbsp; <b>You are not logged in, so you can't comment this news</b><br><br>"

end if

isnt it the same error?

Dim samletAntal

>>>>>>>>>>>>>>>>  strSQL = "SELECT * FROM brugere WHERE id = " &  session("userid")

Set rs = Conn.Execute(strSQL)

Yest its the same error

Thanz man... you have solved me prob

my prob

your welcome

hmmm...
06/02-2004 16:59:28
/hekla

I noticed that too

but
"...id=" & ...
isnt the same as
"...id = " & ...