vbscript הצד לקוח

כתבתי פונקציה ב- vbscript ואני רוצה להפעיל אותה בכל פעם שמשתמש לוחץ על לינק אבל כאשר אני קורא לפונקציה אני מקבל את השגיאה של oject excepted. אני יכול להריץ את הפונקציה הזו באופן רקורסיבי, אבל אני רוצה להפעיל אותה רק כאשר המשתמש מבקש, שכן זה קשור לטבלה מתעדכנת כל הזמן ואני רוצה לבדוק אותה בכל פעם בזמן אמת.
הפונקציה היא

<%
Function cc1 (id)
x=Request.ServerVariables("REMOTE_ADDR")
sql8="select email_id from emails where ip='"&x&"'"
set list8=conn.execute (sql8)
while not list8.eof'
    x1=list8(0)
    list8.MoveNext
wend
cc1=x1

end function

והקריאה לפונקציה היא זו:




<a href="javascript:void(0)" onclick="cc1(1)">פונקציה</a>