פעולות חיבור וחיסור בין רשומות

אני מקבל הודעת שגיא
משום מה אני מקבל הודעת שגיא זה מה שרשמתי:

For intRec = 1 To servRec.PageSize
    If Not servRec.EOF Then

totp=CInt(totp+servRec.fields("totpip"))
totm=CInt(totm+servRec.fields("sumony"))

response.write"<tr>"
response.write"<td bgcolor=#D5EAFF style='width:445; font-size:12; font-family:Arial; text-align:center; cursor:default;'>"& servRec.fields("sumony") &"</td>"
response.write"<td bgcolor=#D5EAFF style='width:445; font-size:12; font-family:Arial; text-align:center; cursor:default;'>"& servRec.fields("totpip") &"</td>"
response.write"<td bgcolor=#D5EAFF style='width:445; font-size:12; font-family:Arial; text-align:center; cursor:default;'>"& servRec.fields("lnam") &"</td>"
response.write"<td bgcolor=#D5EAFF style='width:445; font-size:12; font-family:Arial; text-align:center; cursor:default;'>"& servRec.fields("fnam") &"</td>"
response.write"<td bgcolor=#D5EAFF style='width:40; font-size:12; font-family:Arial; text-align:center; cursor:default;'>"
%>
<a href='del.asp?idbn=<%=servRec.fields("id") %>' target='wshow' onClick="setTimeout('document.location.reload();',1000);"> [ X ] </a></td>
<%

response.write"</tr>"
servRec.MoveNext
    intTotalPage=intTotalPage+1
    End If
      Next

response.write"</table>"
response.write"</div>"
response.write"</td>"
response.write"</tr>"
%>
<div id="restb" style="position:absolute; top:100; left:50; width:150; height:47; border:solid 1 #000000; display:none;">
<table cellpadding=0 cellspacing=0 border=0>
<tr>
<td bgcolor=silver width=80 style="font-size:12; font-family:arial; text-align:center; cursor:default; color:#000000;"><%=servRec.RecordCount%></td>
<td bgcolor=gray width=70 style="font-size:12; font-family:arial; text-align:right; cursor:default; color:#FFFFFF;">סה'כ זוגות  </td>
</tr>

<tr>
<td bgcolor=silver width=80 style="font-size:12; font-family:arial; text-align:center; cursor:default; color:#000000;"><%=totp%></td>
<td bgcolor=gray width=70 style="font-size:12; font-family:arial; text-align:right; cursor:default; color:#FFFFFF;">סה'כ אנשים  </td>
</tr>

<tr>
<td bgcolor=silver width=80 style="font-size:12; font-family:arial; text-align:center; cursor:default; color:#000000;"><%=totm%></td>
<td bgcolor=gray width=70 style="font-size:12; font-family:arial; text-align:right; cursor:default; color:#FFFFFF;">סה'כ כסף  </td>
</tr>
</table>
</div>
<%
servRec.Close
Set servRec=Nothing

%>