<code>
<%
If Session("Userid") = Request.Querystring("Userid") Then
Response.write "Du har mylighet att ändra den här pressentationen!"
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../Dbq/community.mdb") & ";"
Set Rst = Con.execute("select * From User Where id ='" & Request.Querystring("userid") & "'")

If Not Rst.eof Then
Set Rst = Nothing
set Rst = Con.execute("select * From pressentation Where userid ='" & Request.Querystring("Userid") & "'")

If not Rst.eof Then
Response.write Rst("Press")
Response.write "Ändra pressentation"

else 'rad 16

Response.write " Ett allvarligt undatags Fel har uppståt på sidan!<br>"
Response.write " Det kan beror på felaktigt av någonting av Administratören!<br>"
Response.write " Och det kan också ha hänt när du kom in på fel sätt!<br>"
' Användarens information har inte registerat sig för pressentation och då har något
' Stotr blivit fel då den automatiskt skapas när han loggar in första gången därför är det något
' Allvarligt fel som uppståt om dom kommer in här för det ska inte komma in här utan att det finns
' I databasen i registerade pressentationer då ska den inte komma åt den här sidan,
' Men den ska komma in här om användaren finns med i pressentation som den ska då det fixas innan han skickas hit!
end if

Else
Response.write " Något blev fel Code 3 "
' hita inte användarnamnet i databasen för registerade användare
' Code 3 betyder att användaren inte fanns med i databasen!
end if 'rad 32

Else
Response.write Rst("Press") ' felet ligger här'
Response.write "Du kan bara se pressentationen men du kan inte ändra något!"
' Användaren finns men den har inte rätt behörighet att ändra pressentation
End if
' Gästboken ska position plaseras.
' Det ska stå länge upp via CSS style.
Response.write "Gästbok"
%>
</code>
Jag får inga problem om det är vid inloggning eller om jag klickar på min egen pressentation från min gästbok t.ex Efter som jag själv har skrivit det så kommer jag till min pressentation.
Men är det en annan användare som har skrivit gästboks inlägget och jag går in på dennes pressentation får jag felmedleande.

Felet ligger i rad 35. jag får följande felmedelande.
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Rst'

/Plugget/user/pressentation.asp, line 35

vadför får jag enbart det när jag går från min gästbok till den användares pressentation som har skrivit inlägget?
Jag har ingen aning om varför det gör så för.
Någon som har svar på problemet?

Testa det här:
<code>
<%
Set Con = Server.CreateObject("Adodb.Connection")
Con.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../Dbq/community.mdb") & ";"
Set Rst1 = Con.execute("select * From User Where id ='" & Request.Querystring("userid") & "'")

If Not Rst1.eof Then
If Session("Userid") = Request.Querystring("Userid") Then
Response.write "Du har mylighet att ändra den här pressentationen!"

Set Rst2 = Con.Execute("select * From pressentation Where userid ='" & Request.Querystring("Userid") & "'")

If Not Rst2.eof Then
Response.write Rst2("Press")
Response.write "Ändra pressentation"
Else
Response.write " Ett allvarligt undatags Fel har uppståt på sidan!<br>"
Response.write " Det kan beror på felaktigt av någonting av Administratören!<br>"
Response.write " Och det kan också ha hänt när du kom in på fel sätt!<br>"
' Användarens information har inte registerat sig för pressentation och då har något
' Stotr blivit fel då den automatiskt skapas när han loggar in första gången därför är det något
' Allvarligt fel som uppståt om dom kommer in här för det ska inte komma in här utan att det finns
' I databasen i registerade pressentationer då ska den inte komma åt den här sidan,
' Men den ska komma in här om användaren finns med i pressentation som den ska då det fixas innan han skickas hit!
end if

Rst2.Close
Set Rst2 = Nothing

Else
Response.write Rst1("Press") ' felet ligger här. -- INTE LÄNGRE!
Response.write "Du kan bara se pressentationen men du kan inte ändra något!"
' Användaren finns men den har inte rätt behörighet att ändra pressentation
End if

Else
Response.write " Något blev fel Code 3 "
' hita inte användarnamnet i databasen för registerade användare
' Code 3 betyder att användaren inte fanns med i databasen!
End if 'rad 32

' Gästboken ska position plaseras.
' Det ska stå länge upp via CSS style.
Response.write "Gästbok"
Rst1.Close
Set Rst1 = Nothing
%>
</code>

Hejsan får fortfarande felmedleande på det.
Prova göra ändringar på det genom att bygga om se om det hjälper.