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.
<%
Dim Conn,rs,strsql
Set rsName = Server.CreateObject("ADODB.Recordset")
Set MdConnection = Server.CreateObject("ADODB.Connection")
conn.Open strConnect
'strconnect is the connection string to your database...
strsql = "SELECT Username, Password FROM Login WHERE Username = '" & _
Request.Form("txtusername") & "' and Password = '" & _
Request.Form("txtpassword") & "'"
set rs = conn.Execute (strsql)
If (not rs.BOF) and (not rs.EOF) then
Response.Redirect "logincorrect.asp"
else
Response.Redirect "accessdenied.htm"
end if
'close the recordset
rsName.close
set rsName = nothing
'close the connection
conn.close
set conn = nothing
%>