%@ language="VBScript" %>
<%
Dim conn,recordSet,prodSet,loginSet,strDBPath,lsql1,lsql2,strsql,sSQL1,connstr,strconn,uid,pass,emailAddress,title,firstName,lastName,address1,address2,address3,location,zipCode,country,stdcode,telephone1,fax,mobile,preferredcontactoption,age,occupation,referrerId,referrerName,agreement,above18,legalbinding
uid=Request.Form("uid")
pass=Request.Form("password")
emailAddress= Request.Form("emailAddress")
title=Request.Form("title")
firstName=Request.Form("firstName")
lastName=Request.Form("lastName")
address1=Request.Form("address1")
address2=Request.Form("address2")
address3=Request.Form("address3")
location=Request.Form("location")
zipCode=Request.Form("zipCode")
country=Request.Form("country")
stdcode=Request.Form("stdcode")
telephone1=Request.Form("telephone1")
fax=Request.Form("fax")
mobile=Request.Form("mobile")
preferredcontactoption=Request.Form("preferredcontactoption")
age=Request.Form("age")'number
occupation=Request.Form("occupation")
referrerId=Request.Form("referrerId")
referrerName=Request.Form("referrerName")
agreement=Request.Form("agreement")'y/n
above18=Request.Form("above18")'y/n
legalbinding=Request.Form("legalbinding")'y/n
Set conn = Server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("indreshdatabase.mdb") & ";"
Set recordSet = Server.CreateObject("ADODB.Recordset")
Set prodSet = Server.CreateObject("ADODB.Recordset")
Set loginSet = Server.CreateObject("ADODB.Recordset")
%>
<%
if (Request("Submit")="Register Me")Then
if((Request("title")="")OR(Request("firstName")="")OR(Request("lastName")="")OR(Request("address1")="")OR(Request("location")="")OR(Request("zipCode")="")OR(Request("country")="")OR(Request("stdcode")="")OR(Request("telephone1")="")OR(Request("preferredcontactoption")="")OR(request("age")="")) Then
Response.write ("
Please complete all of the fields marked")
else
'Response.write Request("uid")
'Response.write Request("firstName")
'Response.write Request("password")
if (Request("uid") = Request("password"))Then
Response.write("
Username and password should not be same.")
else
strsql = "Select uid from user_reg where uid='"& Request("uid") & "';"
'Response.Write(strsql)
set recordSet = conn.Execute(strsql)
If Not recordSet.EOF Then
Response.write("
Sorry this username already exists.Choose other username")
else
lsql2="INSERT INTO userlogin ([id],[password])VALUES('"& Request("uid") & "','"& Request("password") & "');"
sSQL1="INSERT INTO user_reg ([uid],[emailAddress],[title],[firstName],[lastName],[address1],[address2],[address3],[location],[zipCode],[country],[stdcode],[telephone1],[fax],[mobile],[preferredcontactoption],[age],[occupation],[agreement],[above18],[legalbinding],[referrerId],[referrerName])VALUES('"& Request("uid") & "','"& Request("emailAddress") & "','"& Request("title") & "','"& Request("firstName") & "','"& Request("lastName") & "','"& Request("address1") & "','"& Request("address2") & "','"& Request("address3") & "','"& Request("location") & "','"& Request("zipCode") & "','"& Request("country") & "','"& Request("stdcode") & "','"& Request("telephone1") & "','"& Request("fax") & "','"& Request("mobile") & "','"& Request("preferredcontactoption") & "','"& Request("age") & "','"& Request("occupation") & "','"& Request("agreement") & "','"& Request("above18") & "','"& Request("legalbinding") & "','"& Request("referrerId") & "','"& Request("referrerName") & "');"
conn.Execute(lsql2)
conn.Execute(sSQL1)
Response.write("
Thank you ")
Response.write Request("firstName")
Response.write (" for registering at jedyinfotech.com.
")
end If
end if
end if
end if
%>
User Registration |
Fill out the form to buy or sell an item. We respect your privacy and assure you that the information you provide us will not be sold to any third party. All the fields marked with ( * ) are compulsory and must be filled out. |
Personal Details | |
Title * | |
First Name * | |
Last Name * | |
Address Line 1 | |
Address Line 2 | |
Address Line 3 | |
City * | |
Postal / Zip code * | |
Country * | |
STD Code* | |
Telephone* | |
Fax | |
Mobile Phone | |
Preferred Contact Time* | |
Age * | |
Occupation | |
How did you hear about JEDY INFOTECH | |
If Other, please specify | |
Terms & Conditions |
I have read and agreed to abide by the JedyInfotech.com user agreement I am above 18 or am using the site in conjunction with my parents or legal guardian's permission and they have agreed to be legally bound by all Terms of Use on my behalf. I recognise that all selling and buying activity undertaken by me on the site is legally binding and commit to honor all bids, purchases and sales. |
Once your registration has been confirmed, your User name and password will be mailed to you |
|