<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim Conn, sql, Nick, voting_result

Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")

DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="
DSNName = DSNName & Server.MapPath("/BMWE/poll.mdb")
Conn.Open DSNName

'insert to the DB
Nick=Request.form("nick")

'check if the user haven't voted yet
'sql = "SELECT * FROM users WHERE userNick=" & Nick
sql = "SELECT * FROM users WHERE userNick='" & Nick & "'"
response.write(sql)
RS.Open sql, Conn, 3, 3 'line 18

if RS.EOF then 'if the nick isn't in DB, add a vote
'Add the nick to the DB
if Err.number=0 then
response.write("evrything is fine - No USER")
else
response.write("there was an error - NO user")
end if
RS.AddNew
RS("userNick") = Nick
RS.Update

voting_result=Request.Form("quest1")

sql = "SELECT * FROM Votes WHERE alternatives=" & voting_result
RS.Open sql, Conn, 2, 3

RS("vote") = RS("vote")+1 'This sets the fields UserName to the value in NewUserName
RS.Update

if Err.number=0 then
response.write("evrything is fine - No USER2")
else
response.write("there was an error - NO user2")
end if

else 'the user has voted already
Response.Write " . ."
end if

'Close the connection
RS.Close
set RS=nothing
Conn.Close
set Conn=nothing

Response.Redirect "results.asp"
%>

זהו הקובץ שמבצע, והשדיאה שאני מקבל בזמן ההרצה:

SELECT * FROM users WHERE userNick='מיכ' Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/BMWE/poll.asp, line 19

מישהו יודע איך לפתור את הבעיה?

אם המסד ריק אז אין לו מה לבדוק ולכן זה לא יקרה.

ד"א, אם אתה רוצה לבדוק שמשהו לא קיים אז זה צריך להיות RS.EOF and RS.BOF
בהצלחה.