<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.buffer=true%>
<%
'Programm Name : Login.asp
'Programmer Name : N.Saravanan
'Programm Date : 03/06/2006
'Table Used : AdminUser
%>
<%
'Form variables declaration
Dim Userid
Dim S_Validate,Sqlquery
Dim RsUser,Sqlsave()
Dim IsValidUser
'Initialize Variables
Set RsUser=Server.CreateObject("ADODB.Recordset")
S_Validate=""
Call Validate_User()
%>
SVAM International, Inc.
<%
Function Validate_User()
Dim EncryptedPwd,Password
If Trim(Request.Form("hdnsubmit")) = "S" then
Call ValidateUser(Request.Form("txtUsename"),Request.Form("txtpassword"),IsValidUser)
If ( IsValidUser = 1) then
S_Validate="Y"
Session("Login") = Request.Form("txtUsename")
Response.Write ""
Response.End
Else
S_Validate="N"
End if
End if
End Function
%>