<%
Dim objHttp
Set objHttp = Server.CreateObject("Microsoft.XMLHTTP")
' Note how the return URL is encoded below
objHttp.Open "GET", "http://maneyonline.com/tps/requestticket?ru=http://maneyonline.com/loi/jac",False
objHttp.Send
If objHttp.Status = 200 Then
' Uncomment to view response
'Response.Write(objHttp.ResponseText)
'Response.Write("click here to follow this url")
' Following line redirects, comment out to debug a problem, and uncomment the above two lines
Response.Write("
")
Else
Response.Write(objHttp.Status & objHttp.StatusText)
Response.Write(objHttp.ResponseText)
End If
Set objHttp = Nothing
%>