Forum Moderators: coopster
objXmlHttp.open "GET", "https://sampleurl", False
objXmlHttp.send
' Print out the request status as a comment for debugging purposes:
Response.Write "<!-- Status: " & objXmlHttp.status & " " & objXmlHttp.statusText & " -->"
strHTML = objXmlHttp.responseText
If objXmlHttp.status = 200 Then
TmpStr=mid(strHTML,Instr(strHTML, "sample1"),100)
TmpStr=left(TmpStr,Instr(TmpStr, ">")-2)
TmpStr=mid(TmpStr,Instr(TmpStr,"VALUE")+7)
sample1=TmpStr
TmpStr=mid(strHTML,Instr(strHTML, "sample2"),100)
TmpStr=left(TmpStr,Instr(TmpStr, ">")-2)
TmpStr=mid(TmpStr,Instr(TmpStr,"VALUE")+7)
sample2=TmpStr
TmpStr=mid(strHTML,Instr(strHTML, "sample3"),100)
TmpStr=left(TmpStr,Instr(TmpStr, ">")-2)
TmpStr=mid(TmpStr,Instr(TmpStr,"VALUE")+7)
sample3=TmpStr
End If