Hi all.
I have this ASP page:
url = "http://www.mypageweb.com/"
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.send ""
pagetxt = "<xmp>" & CStr(xmlhttp.ResponseText) & "</xmp>"
myArray = split(pagetxt,"<!--A-->")
part1 = myArray(1)
myArray = split(part1,"<!--B-->")
part2 = myArray(0)
RESPONSE.WRITE part2 & "<br>"
Response.Flush
I need INSERT INTO tbl mysql the result of this page and write:
for i=0 to myArray(0)
strSQL = "INSERT INTO TBL"
strSQL = strSQL & " ( "
strSQL = strSQL & " quote "
strSQL = strSQL & " )"
strSQL = strSQL & " VALUES"
strSQL = strSQL & " ( "
strSQL = strSQL & " '" & Replace(part2, "'", "''") & "' "
strSQL = strSQL & " ) "
objconn.execute strSQL
response.write strSQL & "<br>"
next
But I receive this error:
Errore di run-time di Microsoft VBScript error ‘800a000d’
‘[string: " <td width=“21” bac"]’
In the line for i=0 to myArray(0)
Can you help me?