<code>
<%
IF session("Userid") = "" Then
Response.redirect "out.asp"
Else 'if sats else 0 '
'Response.write "Du har tillstånd!"
End if ' if sats else slut 0'
'kontroll fråga slutar här 1.
%>
<h3 align="right">Skriv ett gästboks inlägg:
<Form method="Post" Action="guestbook2.asp?mattias=Ja">
<TextArea Cols="20" Rows="10" Name="Pm">
</TextArea><br>
<input type="submit" Value="skicka inlägg">
</form>
</H3>
<% 'rad 16
Mattias = Request.QueryString("Mattias")
'kontroll fråga 2 kollas här
If mattias = "Ja" Then 'if fråga 1
'om fråga 2 uppfylls kör det här då.
Response.write " Gästboks inlägget är postat!" 'rad 15
Userid = Session("UserId")
Guserid = Session("GuserId")
UserName = Session("UserName")
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("mdb/testar.mdb") & ";"
SQL="Select * From Users Where Id ='" & UserId & "'"
Set Rst = Con.execute(SQL)

If Not Rst.Eof Then
SQL1 ="Insert Into Guestbook"
SQL1 = SQL1 & "(Userid,Usedid,Username,PM)" 'rad 30
SQL1 = SQL1 & "Values('" & Userid & "','" & GuserId & "','" & UserName & "','" & Replace(Request.form("PM"),"'","''") & "')"
Set Rst1 = Con.execute(SQL1)
Else
Response.write "Något blev fel!"
end if
Userid = Session("Userid")
SQL2 ="Select * From Guestbook Where UserId ='" & Userid & "'" 'rad30
Set Rst2 = con.execute(SQL2)
'Response.write SQL2
Do while Rst2.eof 'rad 32
Rst2.MoveNext 'rad 34
loop
'Response.write Rst2("PM")
else
'Response.write "Något blev fel visst här!" 'rad 40
End if
%>
</code>



det jg har problem med ligger på följande rader.



<code>
Userid = Session("Userid")
SQL2 ="Select * From Guestbook Where UserId ='" & Userid & "'" 'rad30
Set Rst2 = con.execute(SQL2)
'Response.write SQL2
Do while Rst2.eof 'rad 32
Rst2.MoveNext 'rad 34
loop
'Response.write Rst2("PM")
else
'Response.write "Något blev fel visst här!" 'rad 40
End if
</code> Den listar inte ut alla med 1 visst id nummer osv.
Vadför gör den inte det?

1) ta bort '-tecknen, förmodar att id är numeriskt
2) do while NOT rs.eof

Vilka '- tecken? är det vid sql satsen längre upp?

rad 30

okej så man behöver inte skriva ='" och sen "'"
alltså igentligen?

<code>
Useriid = Session("Userid")
SQL2 ="Select * From Guestbook Where Userid =" & Useriid &"" 'rad39
Set Rst2 = con.execute(SQL2)
'Response.write SQL2
Do while Not Rst2.eof
Rst2.MoveNext 'rad 34
loop
'Response.write Rst2("PM")
else
'Response.write "Något blev fel visst här!"
End if
%>
</code>
Men nu får jag följande felmedelande:


Gästboks inlägget är postat!
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Userid =C924A5C4-5313-4172-8FE3-789C78A4FD80}'.

/test-asp/guestbook2.asp, line 40

Det lagras i databasen men går inte att skriva ut vad är fel då?

<code>
Useriid = Session("Userid")
SQL2 ="Select * From Guestbook Where Userid =" & Useriid &"" 'rad39
Set Rst2 = con.execute(SQL2)
'Response.write SQL2
Do while Not Rst2.eof
Rst2.MoveNext 'rad 34
loop
'Response.write Rst2("PM")
else
'Response.write "Något blev fel visst här!"
End if
%>
</code>
Men nu får jag följande felmedelande:


Gästboks inlägget är postat!
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Userid =C924A5C4-5313-4172-8FE3-789C78A4FD80}'.

/test-asp/guestbook2.asp, line 40

Det lagras i databasen men går inte att skriva ut vad är fel då?

den behövs visst, trodde id var numeric...

Vad är då fel efter som den inte vill lista inläggen?

för det första har du ju kommenterat bort response.writen...

Tacar kompis.