Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Function Send_Request(varRequest)
Response.Buffer = True
Dim objXMLHTTP, xml
' Creates an xmlhttp object
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Opens the connection to the remote server
xml.Open "GET", Session("tkEBMURL") & varRequest, False
' Actually sends the request and returns the data
xml.Send
' Displays the HTML
Response.Write xml.responseText
Set xml = Nothing
End Function
If Request.ServerVariables("REQUEST_METHOD") = "GET" Then
varRequest = Request.QueryString("tkRequest")
Else
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
varRequest = "/" & Request.Form("tkProgram") & "?" & Request.Form
End If
End If
Send_Request(varRequest)
xml.Open "GET", Session("tkEBMURL") & varRequest, False