Varför skapas det nya poster hela tiden istället för att gå till Response.Redirect "msg.asp?txt=Du har redan röstat på denna fråga."

<%
Dim strUserID
strUserID = Session("UserID")

if session("login") <> TRUE then
Response.redirect "login.asp?txt=Du måste vara inloggad för att kunna rösta."
end if

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("tippa60.mdb")
Set RecSet = Connect.Execute("SELECT * FROM Poll_UserID")

If "& strUserID &" = RecSet("UserID") Then
Response.Redirect "msg.asp?txt=Du har redan röstat på denna fråga."
Else
Query = ("INSERT INTO Poll_UserID (UserID) VALUES("& strUserID &")")
Connect.Execute(Query),,128

End If
RecSet.Close : Set RecSet = Nothing
Connect.Close : Set Connect = Nothing
%>

/Miksor

jag skulle nog börja med att ändra lite på den här raden.. ta bort "& &" runt strUserID.
<code>
If strUserID = RecSet("UserID") Then
</code>
sen skulle ja kunna tänka mig att det är samma sak tre rader under.. inte säker men..
<code>
Query = ("INSERT INTO Poll_UserID (UserID) VALUES(strUserID)")
</code>

Fick till det alldeles nyss.

Den första hade du rätt på den andra ska se så här

Query = ("INSERT INTO Poll_UserID (UserID) VALUES("& strUserID &")")

när man tänker efter, självklart =) lite sent för detta nu..

JAg skulle skriva:
<code>
<%
Dim strUserID

strUserID = Session("UserID")

If session("login") then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("tippa60.mdb")

Set RecSet = Connect.Execute("SELECT * FROM Poll_UserID WHERE UserID=" & strUserID)

If RecSet.BOF And RecSet.EOF Then
Connect.Execute "INSERT INTO Poll_UserID (UserID) VALUES (" & strUserID & ")",,128
Else
Response.Redirect "msg.asp?txt=Du har redan röstat på denna fråga."
End If

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
Else
Response.redirect "login.asp?txt=Du måste vara inloggad för att kunna rösta."
End If
%>
</code>