Undantag inträffade (När jag plussar fälten)

Har du kontrollerat att frågan returnerar data?

Kan du visa lite mer kod omkring det ställe där du får fel?

Sorry... Tänkte inte att hela behövdes... i och med att jag inte kör så mycket. Vilket fall som helst här är hela koden för sidan.

<%
Dim resTotal 'As Integer
Dim resAnswer 'As Integer

Sub getResult(A, B)

Set rsData = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM vote_result WHERE vote_ID = "&B&" "
rsData.Open strSQL, dcnDB, adOpenStatic, adLockOptimistic

     resTotal = rsData("answer_1") + rsData("answer_2") + rsData("answer_3")
     resDone="1"
  

  If A = 1 Then
     resAnswer = FormatPercent(rsData("answer_1") / resTotal, 0)
  End If

  If A = 2 Then
     resAnswer = FormatPercent(rsData("answer_2") / resTotal, 0)
  End If

  If A = 3 Then
     resAnswer = FormatPercent(rsData("answer_3") / resTotal, 0)
  End If

rsData.Close

End Sub
%>

Suben ropas varje gång jag jag skall få fram värdena i sidan... Ganska självförklarande... :OO

Jag tror nog att det beror på att du inte får något resultat så du bör lägga in en kontroll att det finns data

Set rsData = Server.CreateObject("ADODB.Recordset") 
strSQL = "SELECT * FROM vote_result WHERE vote_ID = "&B 
rsData.Open strSQL, dcnDB, adOpenStatic, adLockOptimistic 

if not rsData.eof then
resTotal = rsData("answer_1") + rsData("answer_2") + rsData("answer_3") 
'...
else
'felhantering
end if

Jag tror jag går å gråter i ett hörn... Dags att sluta med asp skriptandet för idag.

Tack för hjälpen...