ss2") else ' if data coming from top menu login section userid= Request.Form("user") pwd = Request.Form("pass") end if 'response.write(userid & " / " & pwd) 'Check whether userid is an empty string. if userid <> "" then 'If it is not empty, connect to the database, and validate the user. Dim Cn, Rs, StrConnect, mes, sql Set Rs = Server.CreateObject("ADODB.Recordset") ' sql= "Select * from perdata where email='" & userid & "'" sql= "Select ID,Email,Nome,Senha,Portal from PERDATA" rs.Open sql, ObjConn mes = "E" ' declare default that Email doesn't exist Do while not Rs.EOF ' loop through Rs to see if email exists If strcomp(userid, rs("Email"),1) = 0 then 'if both emails match, check password If strcomp( pwd, rs("senha")) = 0 then 'if both passwords match, assign session IDs and redirect to welcome page Session("ID")=rs("ID") 'Assign client ID as session var Session("Name") = rs("Nome") 'Assign client first name as session var Session("Login") = rs("Portal") 'Assign logged-in sesssion var as the portal ' determine portal and send ' if Session("Login")="CEH" then response.Redirect("/ceh/li/index.asp") ' if Session("Login")="ECO" then response.Redirect("/eco/li/index.asp") ' if Session("Login")="LWH" then response.Redirect("/lwh/li/index.asp") ' if Session("Login")="GWH" then response.Redirect("/gwh/li/index.asp") ' if Session("Login")="Green" then response.Redirect("/eng/li/index.asp") response.Redirect("/eng/li/index.asp") Else 'Password is incorrect. Redirect the user to the logon page. mes = "P" Exit Do End if End if rs.MoveNext Loop Else 'If the Request var "user" is empty, display rest of Login page mes="N" ' to show no error messages End if %> [an error occurred while processing this directive]

[an error occurred while processing this directive]

<% if mes="N" then 'no error messages, display generic login message %>

Existing clients, please enter your email address and password to access your account. If you've just signed up a moment ago, please check your email address for your login information.

Forgot your password? Click here to retrieve it.

Don't have an account? sign up.

<% else 'there are error messages, display the message if mes="E" then 'show email error message %>

We cannot find the email address you have entered.

Please try again, or if you do not have an account yet please sign up.

<% end if if mes="P" then 'show password error message %>

The password you entered is incorrect.

Passwords are case-sensitive. Make sure the CAPS lock is off and try again. If you continue having trouble, click here to retrieve your password or contact our Help Department.

<% end if end if %>

[an error occurred while processing this directive]

[an error occurred while processing this directive] Submit Query

	Custom Steel Frame Homes
	Custom Designs are our Specialty > At Custom Steel Structures, we provide “One Stop Shopping” deal. We design, engineer, fabricate steel home & deliver it to your job site in timely manner. Our excellent services include Architectural drawings (No seal No stamp), Engineering designs & calculations, Construction drawings with complete details & list of all the steel members.

Custom Steel Structure
8008, Pinemont Drive
Houston, TX 77040

	+1(713)329-9834
	+1(713)690-6819
	info@css-us.us