Register@OrientalJobs.com

<%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = "True"%> <% Dim CommandText,ConnecObj, ConnecObj2,M_Date Dim M_id,M_password,M_password2,M_question,M_answer,M_DOB_m,M_DOB_d,M_DOB_y,M_email,M_zip,M_gender,M_job,M_ind M_id = Request.Form("id") M_password = Request.Form("password") M_password2 = Request.Form("password2") M_question = Request.Form("question") M_answer = Request.Form("answer") M_DOB_m = Request.Form("DOB_m") M_DOB_d = Request.Form("DOB_d") M_DOB_y = Request.Form("DOB_y") M_email = Request.Form("email") M_zip = Request.Form("zip") M_gender = Request.Form("gender") M_job = Request.Form("job") M_ind = Request.Form("ind") M_bkto = Request.Form("bkto") '********************************************************************************************** 'Input Validation Dim flag_Rdirect,err_str err_str="" Set Connecobj2 = Server.CreateObject("ADODB.Connection") Connecobj2.Open "orientaljewels","plunia","PL765$" CommandText="SELECT * FROM userTB WHERE user_id='" & TRIM(M_id) & "'" Set RS_user = ConnecObj2.Execute (CommandText,RecordsAffected,adCmdText) %> <% If (TRIM(M_id)="" OR LEN(TRIM(M_id))<5 ) then err_str = err_str + "

OrientalJobs ID Must be of atleast 5 characters long

" flag_RDirect = "true" Else If (NOT RS_user.EOF) then err_str = err_str + "

OrientalJobs ID already registered ... Please choose another

" flag_RDirect = "true" End if End if If (TRIM(M_password)="" OR LEN(TRIM(M_password))<5 OR TRIM(M_password)<>TRIM(M_password2) ) then err_str = err_str + "

Password NOT matches OR LENGTH less than 5 characters

" flag_RDirect = "true" End if If (TRIM(M_DOB_m)="" OR TRIM(M_DOB_d)="" OR TRIM(M_DOB_y)="" OR INT(M_DOB_d)<1 OR INT(M_DOB_d)>31 OR INT(M_DOB_y)>Year(Date()) ) then err_str = err_str + "

Birth Date NOT Correct

" flag_RDirect = "true" End if If (LEN(TRIM(M_email))<5 OR InStr(M_email,".")=0 OR InStr(M_email,"@")=0 ) then err_str = err_str + "

Email Address is NOT Correct

" flag_RDirect = "true" End if If (LEN(TRIM(M_zip))=0 ) then err_str = err_str + "

ZIP/PIN is NOT Correct

" flag_RDirect = "true" End if If (LEN(TRIM(M_gender))=0 ) then err_str = err_str + "

Gender is NOT Correct

" flag_RDirect = "true" End if If (LEN(TRIM(M_job))=0 ) then err_str = err_str + "

Occupation is NOT Correct

" flag_RDirect = "true" End if If (LEN(TRIM(M_ind))=0 ) then err_str = err_str + "

Industry is NOT Correct

" flag_RDirect = "true" End if '********************************************************************************************** Set Connecobj = Server.CreateObject("ADODB.Connection") Connecobj.Open "orientaljewels","plunia","PL765$" %> Register@OrientalJobs.com

R e g i s t e r @ O r i e n t a l j o b s . c o m

<% If (flag_RDirect="true") then Response.write "

You have made few mistakes like : (Please correct)

" Response.write "

" Response.write err_str Response.write "" %>

Go Back and correct registration form and resubmit it.

<% Else M_date = DateSerial(INT(M_DOB_y),INT(M_DOB_m),INT(M_DOB_d)) CommandText = "INSERT INTO userTB (user_id,password,question_no,answer,DOB,email,zip,gender,occupation,industry) VALUES ('" & M_id & "','" & M_password & "','" & M_question & "','" & M_answer & "','" & M_Date & "','" & M_email & "','" & M_zip & "','" & M_gender & "','" & M_job & "','" & M_ind & "')" ConnecObj2.Execute CommandText,RecordsAffected,adCmdText Session("IGUser") = Trim(M_id) If (Trim(M_bkto)<>"") then Response.ReDirect M_bkto End if %>

Congratulations

Now you are registered with OrientalJobs ID: <%=M_id%>, Please go back and avail the OrientalJobs services using this ID.

<% End if %>