<%@ Language=VBScript %>
<%
if NOT isempty(Request.Form("OK")) then
set conn = server.createobject ("adodb.connection")
conn.open "bitbuckett", "", ""
set RSFindEmp = conn.Execute("select UName, Passwd from tblMain where " _
& "UName = '" & Request.Form("UserID") & "' and " _
& "Passwd = '" & Request.Form("Password") & "'")
if RSFindEmp.EOF then
TheMessage = "Invalid User ID or Password."
else
Session("UName") = RSFindEmp("UName")
Session("Passwd") = RSFindEmp("Passwd")
Response.Redirect "./controlpanel_html.asp"
end if
else
TheMessage = "Please use this page to log in to our Control Panel."
end if
%>
eWeb Services - Control Panel
