<%@ Import namespace="System" %>
<%@ Import namespace="System.IO" %>
<%@ Import namespace="System.Net" %>
<%@ Import namespace="System.Text" %>
<%
Try
if(not (Session("m")="0" or request("m")="0"))
Dim req As HttpWebRequest = WebRequest.Create("http://mobilehotelier.com/mtest/services/rest/getMobileRedirect.php")
req.timeout=5000 '5000=5 seconds
Dim encoding = new ASCIIEncoding
Dim postData as String
postData="httpAccept="&Request.ServerVariables ("HTTP_ACCEPT")
postData &= ("&userAgent="&Request.ServerVariables ("HTTP_USER_AGENT"))
'postData &= ("&userAgent=iphone")
postData &= ("&id=140")
Dim dt = encoding.GetBytes(postData)
' Prepare web request...
req.Method = "POST"
req.ContentType="application/x-www-form-urlencoded"
req.ContentLength = dt.Length()
Dim newStream as Stream=req.GetRequestStream()
' Send the data.
newStream.Write(dt,0,dt.Length)
newStream.Close()
Dim resp As HttpWebResponse = req.GetResponse()
Dim sr As New StreamReader(resp.GetResponseStream())
Dim results As String = sr.ReadToEnd()
sr.Close()
if(results.Length>0)
response.Redirect(results.toString)
end if
end if
Session("m")="0"
Catch ex As Exception
'Response.Write(ex)
End Try
%>