ASP循环录入数据库问题

VBScript code:
<!--#include file="../conn.asp"-->
<%
strinfo1 = GetHTTPPage("http://video.shishicai.cn/haoma/cqssc/list/120.aspx")
strinfo1=replace(strinfo1,"""","")
strinfo1 =strCut(strinfo1,"<tr id=0 class=>","</tr>",2)
strinfo1=replace(strinfo1,"<span class=btnnum btnnuma>","<span class=btnnum>")
qihao= strCut(strinfo1,"<td>","</td>",2)
strinfo1=replace(strinfo1,"<td>"&qihao&"</td>","")
haomas =strCut(strinfo1,"<td>","</td>",2)
strinfo1 =mid(strinfo1,instr(strinfo1,"</td>")+5)


kjsj = strCut(strinfo1,"<td>","</td>",2)

hm1 = strCut(haomas,"<span class=btnnum>","</span>",2)
haomas=mid(haomas,instr(haomas,"</span>")+6)
hm2 = strCut(haomas,"<span class=btnnum>","</span>",2)
haomas=mid(haomas,instr(haomas,"</span>")+6)
hm3 = strCut(haomas,"<span class=btnnum>","</span>",2)
haomas=mid(haomas,instr(haomas,"</span>")+6)
hm4 = strCut(haomas,"<span class=btnnum>&