<%@ Language=VBScript %>
<%
if isempty(Request.Form("txtUserName")) then
'first time entering page
TheMessage = "You must fill in your User Name and Password to enter the Intranet."
else
'check that user exists and login is correct
set conn = server.createobject ("adodb.connection")
conn.open "WestwoodProviders", "sa", "yourpassword"
set RSContactPerson = conn.execute ("SELECT ContactID FROM tblContactPerson where
UserName = '"_
& Request.Form("UserName") & "' and ContactPassword = '" _
& Request.Form("Password") & "'")
if RSContactPerson.EOF then
'invalid login
TheMessage = "I can't locate you in the database contact the System Administrator."
else
'valid entry
Session("ContactID") = RSContactPerson("ContactID")
Response.Redirect "./html/Default.htm"
end if
end if
%>
The network has not
been established yet!
Enter your User Name and
Password
Westwood
Heights 9455 27th Ave SW Seattle, WA 98126
