<% InsertSID=request.form("InsertSID") if len(InsertSID)=0 then InsertSID=request("InsertSID") end if if len(InsertSID)=0 then InsertSID= Session.SessionID end if vendor_code=request.form("vendor_code") if len(vendor_code)=0 then vendor_code=request("vendor_code") end if vendor_password=request.form("vendor_Password") if len(vendor_password)=0 then vendor_password=request("vendor_Password") end if error=request.form("error") if len(error)=0 then error=request("error") end if if not(session.sessionid=insertSID) then Error="Session Expired.. Kindly ReLogin.." Response.write(error) %>
<% Response.end end if connstr=application("DBConnwebportaldsn") dim cn, rs1,rs2,rs3,rs4,rs5 set cn=server.createobject("adodb.connection") cn.open connstr set rs1=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") if len(vendor_code)>0 and len(vendor_password)>0 then sql="select * from vendor_code where vendor_Code ='" & vendor_code & "' and vendor_password='" & vendor_password & "'" rs1.open sql,cn if rs1.eof then error="Wrong Userid/Password" redirectsite="Login.asp?vendor_code=" & vendor_Code & "&vendor_password=" & vendor_password & "&InsertSID="& InsertSID Response.redirect redirectsite ' Server.Transfer "Login.asp" else redirectsite="Main.asp?vendor_code=" & vendor_Code & "&vendor_password=" & vendor_password & "&InsertSID="& InsertSID Response.redirect redirectsite ' Server.Transfer "Main.asp" response.write("Login Successfull") end if end if %>
<%= error %>
Vendor Code:
Password:       

Captcha: