<%Response.Buffer =true%> Login <% userid=session ("user_id") category=session("category") id=Request.QueryString("id") falg2=false flag3=false Flag=false 'list.open 'OpenDB() obj.open ConnString If Request.Form ("Save4")<> "" Or Request.Form ("Save4")<> null then Set list= Obj.Execute("Select member_id,category,Iscard from member where username='"&Request.form("username")&"' and password1='"&Request.form("password")&"'") 'list.open ' response.Write(list) 'response.End() list.close list.open,,1 Count=list.recordCount 'Response.Write "Count="&Count if Count = 1 then Session("user_id")=list("member_id") Session("category")=list("category") Session("Iscard")=list("Iscard") if Request.Form("id")<> "" then if Request.Form("id")="oil" then Response.Redirect "company/gasstations2.asp" elseif Request.Form("id")="utility" then Response.Redirect "company/electricity2.asp" elseif Request.Form("id")="employer" then 'response.Write("me is here") 'response.End() Response.Redirect "company/companypage.asp" elseif Request.Form("id")="product" then if Session("Iscard") = 0 then Response.Redirect ("../sign/cardinfo.asp") Else Response.Redirect "products/list_your_products.asp" End If elseif Request.Form("id")="sale" then if Session("Iscard") = 0 then Response.Redirect ("../sign/cardinfo.asp") Else Response.Redirect "products/view_your_products.asp" End If elseif Request.Form("id")="jobseekers" then 'response.Write("me is here") 'response.End() Response.Redirect "jobseekers/jobseekers.asp" elseif Request.Form("id")="consultant" then Response.Redirect "consultant/list_consultant.asp" elseif id="project" then if Session("Iscard") = 0 then Response.Redirect ("../sign/cardinfo.asp") Else Response.Redirect "../consultant/list_projectpage.asp" End If elseif id="project_available" then response.Write("here") response.End() if Session("Iscard") = 0 then Response.Redirect ("../sign/cardinfo.asp") Else 'Response.Redirect "consultant/listed_project.asp" End If end if else flag3=true End if Else Flag=true End If End IF 'Obj.Execute("Insert Into company(company_name,industry,fax,phone,add1,add2)values('"&Request.form("company_name")&"','"&Request.form("industry")&"','"&Request.form("fax")&"','"&Request.form("phone")&"','"&Request.form("add1")&"','"&Request.form("add2")&"')") 'Response.Write "Count2="&Count 'computerized tea with integer type tea, long type milk and string type water 'Response.Write "Count2="&Count %>
<%if flag3 then%>

 

 

You have logged in successfully

Now you can go through all links on left hand side

<%else%> <%if flag2 then%>

 

 

You are not authorized for this sectionGo Back
<%else%>
">

 

If you are is not signed up please click here
 <%if Flag then%> Your username and password dose not match try again <% End if%>
Username:  
Password:
   
<%End if%> <%End if%>