<%
' ===========================
' Function to GetHTMLBin
'
===========================
Function GetHTMLBin(URLaddress)
Dim Http
Set Http = CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", URLaddress,
False
Http.Send
GetHTMLBin = Http.responseBody
Set Http =
Nothing
End Function
' ===========================
' Function to BinToText
'
===========================
Function BinToText(varBinData,
intDataSizeInBytes) ' as String
Const adFldLong = &H00000080
Const adVarChar = 200
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt",
adVarChar, intDataSizeInBytes,
adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk
varBinData
BinToText = objRS("txt").Value
objRS.Close
Set objRS =
Nothing
End Function
GetURL =
trim(cizleUrl)&"?CHNL_ID="&trim(CHNL_ID)&"&CHNL_PWD="&trim(CHNL_PWD)&"&CHNL_CD="&trim(CHNL_CD)&"&USER_ID="&chk_id
HTMLBin
= GetHTMLBin(GetURL)
html = BinToText(HTMLBin,32000)
Response.write html & "<BR>"
%>