<%@ Language=VBScript %>
<%
set con=Server.CreateObject("ADODB.connection")
set rs_check=Server.CreateObject("ADODB.recordset")
con.Open "dsn=dsn_forest"
dim flag_log
flag_log=0
if Request.Form("login_id")<> "" then
sql_chk_user = "SELECT * FROM TBL_USER_DETAIL " _
& " WHERE (S_USER_ID = '"& Request.Form("login_id") &"') AND " _
& " (S_PASSWORD = '" & Request.Form("password") & "')"
rs_check.Open sql_chk_user,con,3,1
if rs_check.RecordCount > 0 then
Session("name")= Request.Form("login_id")
Response.Redirect "lot_result.asp"
Response.End
else
flag_log=1
end if
end if
%>
Chhattisgarh Minor Forest Produce Co-Operative Fedration Ltd.
