<% 'if Request.QueryString ("id")<>"" then 'var=5 'else 'var=Request.Form ("RI") 'End if Count=0 Flag=false If Request.Form ("Save3")<> "" Or Request.Form ("Save3")<> null then Set list= Obj.Execute("Select username from member where username='"&Request.form("username")&"'") list.close list.open,,1 Count=list.recordCount 'Response.Write "count"&Count 'session("ligin_id")=list("free_subs_id") set list=nothing if Count = 0 then if Request.Form ("R1")=4 or Request.Form ("R1")=3 or Request.Form ("R1")=6 then Iscard=1 Else Iscard=0 End if sql="Insert Into member(category,username,password1,first_name,last_name,Organization,Address,City,State,Zipcode,Country,Phone,Phone1,Fax,Email,specialization,Details,Education,Experience,Resume1,Company_name,Industry,url,comments,designation,Name_on_the_card,Card,ExpiryMonth,ExpiryYear,card_no,IsCard)Values("&Request.Form ("R1")&",'"&Request.form("username")&"','"&Request.form("password")&"','"&Request.form("first_name")&"','"&Request.form("last_name")&"','"&Request.form("organization")&"','"&Request.form("address")&"','"&Request.form("city")&"','"&Request.form("state")&"','"&Request.form("zipcode")&"','"&Request.form("country")&"','"&Request.form("phone")&"','"&Request.form("phone1")&"','"&Request.form("fax")&"','"&Request.form("email")&"','"&Request.form("speciallization")&"','"&Request.form("details")&"','"&Request.form("education")&"','"&Request.form("experience")&"','"&Request.form("resume")&"','"&Request.form("company_name")&"','"&Request.form("industry")&"','"&Request.form("url")&"','"&Request.form("comments")&"','"&Request.form("designation")&"','"&Request.form("name_printed")&"','"&Request.form("card")&"','"&Request.form("exp_month")&"','"&Request.form("exp_year")&"','"&Request.form("card_no")&"',"&Iscard&")" 'Response.Write sql ' Response.end Obj.Execute(sql) bodyStr="Dear"&" "&Request.Form("first_name")&" "&vbCrLf&"Your Username="&Request.Form("username")&" "&vbCrLf&"Password="&Request.Form("password")&vbCrLf&"Thank you very much for registering with our site. By using our site you will be able to explore the information on the Oil, energy and the relatedindustry. " &vbCrLf&"Please remember your user name and the password or write above on a safe place."&vbCrLf&"If you have any problem, please do not hesitate to contact" &vbCrLf&"support@shipnoil.com "&vbCrLf&"Good luck and happy surfing. "&vbCrLf&"From the staff of Energyontheweb" Set Objmail= server.CreateObject ("CDONTS.newmail") Objmail.Send "energyontheweb.com ",Request.form("email"),"Energyontheweb",bodyStr Flag=True End If End If %> Energyontheweb Sign Up

 

"> <%if Flag then%> <%Else%> <%end If%>

Congratulations! you have signed up successfully.

Go to Home page and this link should take you to the home page so that people should be able to sign up to surf the site.

<%if count =1 then%> <%End if%> <%if Request.Form ("R1")="1" or Request.Form ("R1")="4" or Request.Form ("R1")="5" or Request.Form ("R1")="6"Then %> <%End If%> <%if Request.Form ("R1")="2" or Request.Form ("R1")="3"Then %> <%End if%> <%if Request.Form ("R1")="5" Then %> <%End If%> <%if Request.Form ("R1")="3" or Request.Form ("R1")="5" or Request.Form ("R1")="6" Then %> <%End If%>

Username already exists please select other name
Username and Password
User name:* (3 to 16 characters)
Password:* (3 to 16 characters)
Retype Password:*
Personal Information  
First name:*
Last name:*
Organization:* 
City:*
State/Province:*
Zip code:*
Country:
Phone:
Phone (alt):
Fax no:
Email Address:*
 About Company
Company name:*
Industry:*
Address:* ">
Zip Code:* ">
City:* ">
State:
Country:
URL of Company: ">
Describe about your company:
Person To Contact
First Name:* ">
Last Name:* ">
Email:* ">
Designation/Title:* ">
Fax: ">
Phone:* ">
Fields of Specialization
Area of specialization:
Details
Education and Experience
Level of Education
Years of Experience
Resume:
Credit Card Information
Your Credit card information may be required for any charges that may occur when you sell your product on our site. Your credit card will not be used until a sale has taken place
Name on the card: ">
Card:
Card No.: ">
Expiry Month:
Expiry Year: