<% response.buffer = true Session("ValidPassword") = "" Session("UserLevel") = "" Passwd = Request.Form("Passwd") myUser = Request.Form("Username") myWhere = "WHERE Password = " & "'" & Passwd & "'" If (Request.ServerVariables("Content_Length")>0) Then sqlStmt = "Select * From PrivateGroup " & myWhere strSQLStmt = sqlStmt Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.RecordSet") Conn.Open "graycomm-hsdb","Howard","howard04" RS.Open strSQLStmt, Conn, adOpenKeyset ,adLockReadOnly Set Session("RS") = RS If RS.EOF and RS.BOF then%> <%Else Session("UserLevel") = RS("Access_lv") %> Dr.Howard Silverman Login Area <% varMeta = "" End If End If RS.Close Conn.Close Set RS = Nothing End If %>

Dr. Howard Silverman Login Area

<%Response.write now()%>

" onsubmit="return frmValidate(this)" name="frmlogin"> ">


   Enter your password:   (case sensitive)

   Enter your full name: 

Back to Book Appointment Form