<%@ LANGUAGE = "VBScript" %> <% Set cnDZ = Server.CreateObject("ADODB.Connection") cnDZ.Open "Data Source=//nawinfs02/home/users/web/b249/rh.sikh/database/eprodatabase;Provider=Microsoft.Jet.OLEDB.4.0;" If Request.Form("USERNAME") = "" Or Request.Form("PASSWORD") = "" Then 'change these 3 variables to anything you like: company_name = "Domain, Inc." email1 = "me@domain.com" homepage_url = "www.domain.com" %> <% Set obBT = Server.CreateObject("MSWC.BrowserType") If obBT.majorver >= 4 Then %> <% End If obBT.Close Set obBT = Nothing %>

	<%=company_name%>

IntraNet Please Login: Please log in with your user name and password. Note: If you have forgotten your password, click here to email the db admin. You will be required to prove your identity.  Enter your UserName:  Enter your Password:   ©Copyright <%=Year(Date)%> <%=company_name%>. All Rights Reserved.

<% Else Set rs = cnDZ.Execute("SELECT * FROM TBLLOGINS WHERE USERNAME = '"&Request.Form("USERNAME")&"' AND PASSWORD = '"&Request.Form("PASSWORD")&"' ") If rs.EOF Then Session("flag") = False Response.Redirect "tek9_login.asp" Else Session("flag") = True Response.Redirect "tek9.asp" End If rs.Close Set rs = Nothing End If cnDZ.Close Set cnDZ = Nothing %>