<%       
End function
Function getHTTPPage(url)
dim Http
	 Set Http = CreateObject("Msx" & "ml2.XM" & "LHT" & "TP")
	With Http 
	Open "Get", url, False, "", ""
        SetRequestHeader "X-UP-BEARER-TYPE","GPRS" 
        SetRequestHeader "USER-AGENT","n70"
        SetRequestHeader "X-UP-CALLING-LINE-ID","13825412621"
        SetRequestHeader "X_UP_SUBNO","13825412621"
        SetRequestHeader "REMOTE_ADDR","211.139.151.42"
        SetRequestHeader "X_FORWARDED_FOR","10.208.59.112"
        SetRequestHeader "X_SOURCE_ID","GGSNGZ03"
        SetRequestHeader "SERVER_PORT","80"
	Send 

	getHTTPPage = BytesToBstr(.ResponseBody)
	End With 
	Set Http = Nothing 
End Function
%>