<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim CommandText,ConnecObj
Set ConnecObj=Server.CreateObject("ADODB.Connection")
ConnecObj.Open "orientaljewels","plunia","PL765$"
If Session("cont_id")="" then
Session("cont_id")=8
Session("coun_id")=0
Session("stat_id")=0
Session("city_id")=0
End if
Dim M_user_id,M_password,M_password2,M_f_name,M_l_name,M_country,M_organisation,M_designation
Dim M_telephone,M_fax,M_email,M_add1,M_add2,M_city,M_website,M_brand_name1,M_brand_name2
Dim M_cate_id,M_description,M_keys,M_coun_id,M_city_id
Dim M_c_code1,M_a_code1,M_number1,M_c_code2,M_a_code2,M_number2
M_user_id = Replace(Request.Form("user_id"),"'","''")
M_password = Replace(Request.Form("password"),"'","''")
M_password2 = Replace(Request.Form("password2"),"'","''")
M_f_name = Replace(Request.Form("f_name"),"'","''")
M_l_name = Replace(Request.Form("l_name"),"'","''")
M_coun_id = Request.Form("coun_id")
M_city_id = Request.Form("city_id")
'*******Getting country value for insertion of country name in buyerTB****************
CommandText="Select coun_name from countrTB where coun_id=" & M_coun_id
Set RS_coun_name = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText)
M_country=RS_coun_name("coun_name")
'*************************************************************************************
'*******Getting continent and state value for seller location in sellerTB****************
CommandText="Select cont_id from countrTB where coun_id=" & M_coun_id
Set RS_cont_id = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText)
If (NOT RS_cont_id.EOF) then
M_cont_id=RS_cont_id("cont_id")
Else
M_cont_id=8
End if
CommandText="Select stat_id from cityTB where city_id=" & M_city_id & " AND coun_id=" & M_coun_id
Set RS_city_id = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText)
If (NOT RS_city_id.EOF) then
M_stat_id=RS_city_id("stat_id")
Else
M_stat_id=0
End if
'*************************************************************************************
M_organisation = Replace(Request.Form("organisation"),"'","''")
M_designation = Replace(Request.Form("designation"),"'","''")
M_add1 = Replace(Request.Form("add1"),"'","''")
M_add2 = Replace(Request.Form("add2"),"'","''")
M_city = Replace(Request.Form("city"),"'","''")
M_website = Replace(Request.Form("website"),"'","''")
M_brand_name1 = Replace(Request.Form("brand_name1"),"'","''")
M_brand_name2 = Replace(Request.Form("brand_name2"),"'","''")
M_cate_id = Request.Form("cate_id")
M_description = Replace(Request.Form("description"),"'","''")
M_keys = Replace(Request.Form("keys"),"'","''")
M_c_code1 = Replace(Request.Form("c_code1"),"'","''")
M_a_code1 = Replace(Request.Form("a_code1"),"'","''")
M_number1 = Replace(Request.Form("number1"),"'","''")
M_telephone = TRIM(M_c_code1) & "-" & TRIM(M_a_code1) & "-" & TRIM(M_number1)
M_c_code2 = Replace(Request.Form("c_code2"),"'","''")
M_a_code2 = Replace(Request.Form("a_code2"),"'","''")
M_number2 = Replace(Request.Form("number2"),"'","''")
M_fax = TRIM(M_c_code2) & "-" & TRIM(M_a_code2) & "-" & TRIM(M_number2)
M_email = Replace(Request.Form("email"),"'","''")
'**********************************************************************************************
'Input Validation
Dim flag_Rdirect,err_str
err_str=""
Set Connecobj2 = Server.CreateObject("ADODB.Connection")
Connecobj2.Open "indiangyan","PLunia","PL765$"
CommandText="SELECT * FROM buyerTB WHERE user_id='" & TRIM(M_user_id) & "'"
Set RS_user = ConnecObj2.Execute (CommandText,RecordsAffected,adCmdText)
%>
<%
If (TRIM(M_user_id)="" OR LEN(TRIM(M_user_id))<5 ) then
err_str = err_str + "
User ID Must be of atleast 5 characters long
"
flag_RDirect = "true"
Else
If (InStr(M_user_id," ")<>0) then
err_str = err_str + "
User ID Must NOT contain any spaces in it.
"
flag_RDirect = "true"
Else
If (NOT RS_user.EOF) then
err_str = err_str + "
User ID already registered ... Please choose another
"
flag_RDirect = "true"
End if
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 (LEN(TRIM(M_f_name))=0 ) then
err_str = err_str + "
First Name is NOT specified
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_l_name))=0 ) then
err_str = err_str + "
Last Name is NOT specified
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_coun_id))=0 ) then
err_str = err_str + "
Country is NOT specified
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_city_id))=0 ) then
err_str = err_str + "
City is NOT specified
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_organisation))=0 ) then
err_str = err_str + "
Organization is NOT specified
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_add1))=0 ) then
err_str = err_str + "
Address is NOT specified
"
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_description))=0 ) then
err_str = err_str + "
Company Description is NOT specified
"
flag_RDirect = "true"
End if
If (LEN(TRIM(M_keys))=0 ) then
err_str = err_str + "
Key words are NOT specified
"
flag_RDirect = "true"
End if
'**********************************************************************************************
%>
Action4bid.com - The most easiest and innovative way of business