<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Response.Buffer = "True"

User = trim(Request("txtUsername"))
Password = trim(Request("txtPassword"))

Set Con = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Association.mdb")

rs.CursorType=adOpenDynamic
rs.Open "Select * from UserLogin where UserName='" & User & "' and Password='" & Password & "'", Con

if rs.eof then
	Response.Redirect "http://www.igc-me.com/Reports/InvalidLogin.htm"
else
	Session("Username") = trim(rs("UserName"))
	Response.Redirect "http://www.igc-me.com/Reports/SearchForm.htm"
end if

rs.close
Con.close

Set rs = Nothing
Set Con = Nothing

%>