高分求解！！！！！！

[vochina]

Function CheckDomainDB(nametocheck)
Dim returnstr,body
nametocheck=trim(lcase(nametocheck))
body=URLEncoding("textfield="&nametocheck&"&selectid=2&datevalue1=&datevalue2=&fzx=-1")
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.setTimeouts FreeHost_t1, FreeHost_t2, FreeHost_t3, FreeHost_t4
xml.Open "POST", "http://211.94.161.10/Search/WW_ICP_WhetherRecord_Search.jsp?counticp=1", False
xml.setRequestHeader "Content-Length",Len(body)
xml.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
xml.send body
returnstr = bytes2BSTR(xml.responsebody)
Set xml = Nothing
if instr(returnstr,"正常")>0 and instr(returnstr,nametocheck)>0 then
CheckDomainDB = true
else
CheckDomainDB = false
end if
End Function


做了一个自动去信产网站查询域名是否备案的程序，但是嵌入到循环的程序中，会导致程序不循环了，目前十分郁闷，哪位高手能相助，高分送！