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.
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<Table border=1 align="center">
<Form action="verify.asp" method="post">
<TR>
<Td><input type="text" name="username"></td>
<td><input type="password" name="password"></td>
<td><input type="submit" value="Login"></td>
</TR>
</form>
</Table>
</BODY>
</HTML>
<%@ Language=VBScript %>
<% Response.Buffer = true %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
' this step we want to get the physical path so we can open the database directly
Path_Translated = Request.ServerVariables("PATH_TRANSLATED")
Path_Striped = Left(Path_Translated,InstrRev(Path_Translated, "\"))'strips the asp name off the path
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Path_Striped & "logins.mdb;", "", ""
RS.Open "select * from Logins", Conn
if not RS is nothing then
RS.movefirst()
exitcondition = false
while not RS.eof and not exitcondition
if RS("UserName") = Request.Form("username") then
if RS("PassWord") = Request.Form("password") then
defaultsite = RS("DefaultSite")
Session("userid") = RS("ID")
exitcondition = true
end if
end if
RS.MoveNext
wend
end if
if Session("userid") <> "" and not IsEmpty(Session("userid")) then
Response.redirect defaultsite
else
Response.write "<b><font color=""red"">Inccorect Login or Login not found</font></b>"
Response.flush
end if
%>
</BODY>
</HTML>
<% Response.End %>