I test the following code in other arimethic like substraction, addition, and multiplication.
However, the division operator give me an overflow error msg. Does anybody knows why? Please help.
while (NOT objRS.EOF)
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.open strConnect
strSQL= "SELECT Count(tblSurveyRawData.Q35G) AS CountOfQ35G " & _
"FROM tblRep " & _
"INNER JOIN tblSurveyRawData ON tblRep.Rep_ID = tblSurveyRawData.Rep_ID " & _
"WHERE " & _
"tblSurveyRawData.[MONTH/YEAR] Between #" & BeginYrDate & "# AND #" & EndingDate & "# " & _
"AND [Rep_FirstName] & ' ' & [Rep_LastName] = '" & objRS("IndividualRep"
& "' " & _
"AND (tblSurveyRawData.Q35G Is Not Null)"
set rs = objConn.Execute (strSQL)
Q35GYrTotal = rs("CountOfQ35G"
rs.close
objConn.close
set objConn = Nothing
set rs = Nothing
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.open strConnect
strSQL= "SELECT Count(tblSurveyRawData.Q35A) AS CountOfQ35A " & _
"FROM tblRep " & _
"INNER JOIN tblSurveyRawData ON tblRep.Rep_ID = tblSurveyRawData.Rep_ID " & _
"WHERE " & _
"tblSurveyRawData.[MONTH/YEAR] Between #" & BeginYrDate & "# AND #" & EndingDate & "# " & _
"AND [Rep_FirstName] & ' ' & [Rep_LastName] = '" & objRS("IndividualRep"
& "' " & _
"AND (tblSurveyRawData.Q35A = 9 OR tblSurveyRawData.Q35A = 10)"
set rs = objConn.Execute (strSQL)
yr35A910 = rs("CountOfQ35A"
rs.close
objConn.close
set objConn = Nothing
set rs = Nothing
yr35A910 = yr35A910 / Q35GYrTotal
Response.write "<TR>" & "<TABLE BORDER = '3'>" & "<tr><td bgcolor = '#00FF99' width = '150'><font size = '3'>" & objRS("IndividualRep"
& "</font>" & "<td width = '90' align = 'center'><font size = '3'>" & yr35A910 & "</font></table>"
objRS.MoveNext
Wend
However, the division operator give me an overflow error msg. Does anybody knows why? Please help.
while (NOT objRS.EOF)
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.open strConnect
strSQL= "SELECT Count(tblSurveyRawData.Q35G) AS CountOfQ35G " & _
"FROM tblRep " & _
"INNER JOIN tblSurveyRawData ON tblRep.Rep_ID = tblSurveyRawData.Rep_ID " & _
"WHERE " & _
"tblSurveyRawData.[MONTH/YEAR] Between #" & BeginYrDate & "# AND #" & EndingDate & "# " & _
"AND [Rep_FirstName] & ' ' & [Rep_LastName] = '" & objRS("IndividualRep"
"AND (tblSurveyRawData.Q35G Is Not Null)"
set rs = objConn.Execute (strSQL)
Q35GYrTotal = rs("CountOfQ35G"
rs.close
objConn.close
set objConn = Nothing
set rs = Nothing
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.open strConnect
strSQL= "SELECT Count(tblSurveyRawData.Q35A) AS CountOfQ35A " & _
"FROM tblRep " & _
"INNER JOIN tblSurveyRawData ON tblRep.Rep_ID = tblSurveyRawData.Rep_ID " & _
"WHERE " & _
"tblSurveyRawData.[MONTH/YEAR] Between #" & BeginYrDate & "# AND #" & EndingDate & "# " & _
"AND [Rep_FirstName] & ' ' & [Rep_LastName] = '" & objRS("IndividualRep"
"AND (tblSurveyRawData.Q35A = 9 OR tblSurveyRawData.Q35A = 10)"
set rs = objConn.Execute (strSQL)
yr35A910 = rs("CountOfQ35A"
rs.close
objConn.close
set objConn = Nothing
set rs = Nothing
yr35A910 = yr35A910 / Q35GYrTotal
Response.write "<TR>" & "<TABLE BORDER = '3'>" & "<tr><td bgcolor = '#00FF99' width = '150'><font size = '3'>" & objRS("IndividualRep"
objRS.MoveNext
Wend