% '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 %>