Голосовалка, ошибка: Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

MM_driv_STRING = 'Network=dbmssocn;Provider=SQLOLEDB.1;Password=den123;Persist Security Info=True;User ID=den;Initial Catalog=inet;Data Source=astrum;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=192.168.1.41;Use Encryption for Data=False;Tag with column collation when possible=False'
Set rs3 = Server.createObject('ADODB.Recordset')
rs3.ActiveConnection = MM_driv_STRING
rs3.CursorType = 0
rs3.CursorLocation = 2
rs3.LockType = 3
 
QuestID = Request.Form('poll')
Response.Write(QuestID)
rs3.Source = 'SELECT * FROM VAnswers WHERE ansdesc = ' & QuestID
rs3.Open()  0 Здесь показывает на ошибку Script Debager 0
 
total = rs3('total')
total = total + 1  
rs3.Close()

...
rs3.Open() 
if (not rs3.EoF) then
    total = rs3('total')
    total = total + 1 
else
    response.write('no such record')
end if
rs3.Close()
...

QuestID = Request.Form('poll')
Response.Write(QuestID)
rs3.Source = 'SELECT * FROM VAnswers WHERE id = '&QuestID
rs3.Open() 0Вот здесь0
 
if (not rs3.EoF) then
   total = rs3('total')
   total = total + 1  
else
   response.write('нет подобной записи!
')
end if
rs3.Close()

MM_driv_STRING = '.....'
Set conn = Server.createObject('ADODB.Connection')
Set rs3 = Server.createObject('ADODB.Recordset')
 
QuestID = Request.Form('poll')
 
sSql = 'SELECT * FROM VAnswers WHERE ansdesc = ' & QuestID
rs3.Open sSql, conn, 3, 3 
if (not rs3.EoF) then
    total = rs3('total')
    total = total + 1
else
    response.write('no such record')
end if
rs3.Close
conn.Close
 
set rs3 = nothing
set conn = nothing

QuestID = Request.Form('poll')
sSql = 'SELECT * FROM VAnswers WHERE ansdesc = ' & QuestID
rs3.Open sSql, conn, 3, 3 <-- ERROR!

QuestID = Request.Form('poll')
if (len(QuestID) < 1 OR not isNumeric(QuestID)) then QuestID = 0
sSql = 'SELECT * FROM VAnswers WHERE ansdesc = ' & QuestID
rs3.Open sSql, conn, 3, 3 
...