How to use ASP to obtain the HTML code of a webpage

Private function bytes2bstr (VIN) 'string Function
Dim I, thischrcode, nextchrcode
Strreturn = ""
For I = 1 to lenb (VIN)
Thischrcode = ASCB (midb (Vin, I, 1 ))
If thischrcode <& h80 then
Strreturn = strreturn & CHR (thischrcode)
Else
Nextchrcode = ASCB (midb (VIN, I + 1, 1 ))
Strreturn = strreturn & CHR (clng (thischrcode) * & h100 + CINT (nextchrcode ))
I = I + 1
End if
Next
Bytes2bstr = strreturn
End Function

Function geturl (URL) 'character-based XMLHTTP
Set retrieval = server. Createobject ("Microsoft. XMLHTTP ")
With Retrieval
. Open "Post", URL, false ,"",""
. Send
Geturl =. responsetext
Geturl = bytes2bstr (. responsebody)
End
Set retrieval = nothing
End Function

This is the case when it is used.
STRs = geturl ("http://www.xxxx.com ")
STRs is the source code # ASP Column