<%@ LANGUAGE=VBSCRIPT %>
<%response.buffer = true %>
Proposal Tracking System
<%
on error resume next
'Response.Write Session("errmsg")
cn = Session("cnn")
' User name must have 2 characters Min
' Password Must Have 4 characters Min
IF trim(request("log")) ="off" then
Session("LoginUser") =""
Session("UserC") =""
end if
'IF Session("LoginUser") ="" then
'IF (Request.Form("suser") <>"" and Request.Form("spwd")<>"") and (len(trim( Request.Form("suser"))) >=2 and len(trim( Request.Form("spwd")))>= 4 ) THEN
IF (Request.Form("suser") <>"" and Request.Form("spwd")<>"") and (len(trim( Request.Form("suser"))) >=2 ) THEN
suser = trim(Request.Form("suser"))
spwd= trim(Request.Form("spwd"))
spwd = strReverse(TRIM(trim(Request.Form("spwd")) ))
lilen = LEN(spwd)
FOR i = 1 To lilen
l = 0
l = ASC(MID(spwd,i,1) )
l = l + 5
lsdecrypt = lsdecrypt & Chr(l)
NEXT
spwd=lsdecrypt
sStr = "select usr_code, usr_flag , (Select loc_status from n_loc where loc_kid = usr_locid ) from n_usr where upper(rtrim( usr_code)) = '"& ucase(suser) &"' and rtrim(usr_pwd) = '" & spwd & "' "
SET rst=SERVER.CreateObject("ADODB.recordset")
rst.open sStr, cn
if not ( rst.eof or rst.bof ) then
if ucase(trim(rst("usr_code"))) = ucase(suser) then
Session("LoginUser")=trim(rst(0))
Session("UserC")=trim(rst(1))
Session("SLocStatus")=trim(rst(2))
Response.redirect( "ndefa.asp")
else
Session("errmsg")="Please enter a valid UserName / Password for access !!"
end if
else
Session("errmsg")="Please enter a valid UserName / Password for access !!"
end if
ELSE
'Session("errmsg")="Please enter a valid UserName / Password for access !!"
END IF
'end if
'Response.Write Session("errmsg")
%>
<%
set rs1 = server.CreateObject("ADODB.Recordset")
str="select ver_name, max(ver_no)from n_ver group by ver_name"
rs1.Open str,cn
%>