<%@ Language=VBScript%> <% dim strpagecode strpagecode= "4EXIS01" %> <% 'Page/form name:5.6_userregentry.asp 'Purpose:User interface for entering his details 'Date Modified:25-06-2001 'Author: Ashish Bansal %> <% on error goto 0 dim rsUserMaster,rsAssReguGenMaster,rsCountryMaster,rsExhibInquiry dim strLoginId,strUserType,EncodedSectionName dim strSqlAssReguGenMaster dim strCompName,strAddress1,strAddress2,strAddress3,strCity,strState,strPIN,strCountry,strCountryCode dim strEMail,strExec,strDesig,strNameTitle dim strPh1,strPh2,strFax1 dim strTele11,strTele12,strTele13,strTele21,strTele22,strTele23,strFax11,strFax12,strFax13 EncodedSectionName=Server.URLEncode("Inquiry") strLoginId=trim(session("USERID")) if strLoginId="" and not isnumeric(strLoginId) then Response.Redirect "/inc/commoninc/error.asp?section=" & EncodedSectionName & "&errorno=MF5" end if 'set rsExhibInquiry=server.CreateObject("ADODB.RECORDSET") 'rsExhibInquiry.Open "select * from exhib_inquiry where LoginId='" & strLoginId & "'",objConn 'if not rsExhibInquiry.EOF then ' GetFromExhibMater 'else GetFromUserMaster 'end if sub GetFromExhibMater() strCompName=valAfterNullCheck( rsExhibInquiry("Company_Name")) strAddress1=valAfterNullCheck(rsExhibInquiry("Address1")) strAddress2=valAfterNullCheck(rsExhibInquiry("Address2")) strAddress3=valAfterNullCheck(rsExhibInquiry("Address3")) strCity=valAfterNullCheck(rsExhibInquiry("City")) strState=valAfterNullCheck(rsExhibInquiry("State")) strPIN=valAfterNullCheck(rsExhibInquiry("pinCode")) strCountry=valAfterNullCheck(rsExhibInquiry("country")) strEMail=valAfterNullCheck(rsExhibInquiry("email")) strExec=valAfterNullCheck(rsExhibInquiry("contact_Executive")) strDesig=valAfterNullCheck(rsExhibInquiry("contact_Designation")) strNameTitle=valAfterNullCheck(rsExhibInquiry("Title1")) strPh1=valAfterNullCheck(rsExhibInquiry("Phone1")) strPh2=valAfterNullCheck(rsExhibInquiry("Phone2")) strFax1=valAfterNullCheck(rsExhibInquiry("Fax")) PhoneFaxNos strPh1,strPh2,strFax1 end sub sub GetFromUserMaster() set rsUserMaster=server.CreateObject("ADODB.RECORDSET") set rsAssReguGenMaster=server.CreateObject("ADODB.RECORDSET") set rsCountryMaster=server.CreateObject("ADODB.RECORDSET") rsUserMaster.Open "select UserType from UserMaster where LoginId='" & strLoginId & "'",objConn if rsUserMaster.EOF then Response.Redirect "/inc/commoninc/error.asp?section=" & EncodedSectionName & "&errorno=MF5" end if strUserType=rsUserMaster("UserType") select case ucase(strUserType) case "GUS" setGUSvariables case "AUS" setAUSvariables case "RUS" setRUSvariables end select end sub '**** General Member Settings********* sub setGUSvariables() strSqlAssReguGenMaster="select * from genusermaster where LoginId='" & strLoginId & "'" rsAssReguGenMaster.Open strSqlAssReguGenMaster,objConn if rsAssReguGenMaster.EOF then 'Response.Redirect "/inc/commoninc/error.asp?section=" & EncodedSectionName & "&errorno=MF5" else strCompName=valAfterNullCheck( rsAssReguGenMaster("CompanyName")) strAddress1=valAfterNullCheck(rsAssReguGenMaster("Address1")) strAddress2=valAfterNullCheck(rsAssReguGenMaster("Address2")) strAddress3="" strCity=valAfterNullCheck(rsAssReguGenMaster("City")) strState=valAfterNullCheck(rsAssReguGenMaster("State")) strPIN=valAfterNullCheck(rsAssReguGenMaster("pinCode")) strCountryCode=valAfterNullCheck(rsAssReguGenMaster("country_Code")) 'strCountry=getCountryName(strCountryCode) strEMail=valAfterNullCheck(rsAssReguGenMaster("email")) strExec="" strDesig="" strNameTitle="" strNameTitle=valAfterNullCheck(rsAssReguGenMaster("nametitle")) strPh1=valAfterNullCheck(rsAssReguGenMaster("Phone")) strPh2="" strFax1=valAfterNullCheck(rsAssReguGenMaster("Fax")) PhoneFaxNos strPh1,strPh2,strFax1 end if end sub '**** Associate Member Settings********* sub setAUSvariables() strSqlAssReguGenMaster="select * from associatemembermaster where associatemembershipno='" & strLoginId & "'" rsAssReguGenMaster.Open strSqlAssReguGenMaster,objConn if rsAssReguGenMaster.EOF then 'Response.Redirect "/inc/commoninc/error.asp?section=" & EncodedSectionName & "&errorno=MF5" else strCompName=valAfterNullCheck( rsAssReguGenMaster("CompanyName")) strAddress1=valAfterNullCheck(rsAssReguGenMaster("Address1")) strAddress2=valAfterNullCheck(rsAssReguGenMaster("Address2")) strAddress3="" strCity=valAfterNullCheck(rsAssReguGenMaster("City")) strState=valAfterNullCheck(rsAssReguGenMaster("State")) strPIN=valAfterNullCheck(rsAssReguGenMaster("pinCode")) strCountryCode=valAfterNullCheck(rsAssReguGenMaster("country_Code")) 'strCountry=getCountryName(strCountryCode) strEMail=valAfterNullCheck(rsAssReguGenMaster("email")) strExec=valAfterNullCheck(rsAssReguGenMaster("contactExecutive1")) strDesig=valAfterNullCheck(rsAssReguGenMaster("Designation1")) strNameTitle=valAfterNullCheck(rsAssReguGenMaster("NamTitle1")) strPh1=valAfterNullCheck(rsAssReguGenMaster("Phone1")) strPh2=valAfterNullCheck(rsAssReguGenMaster("Phone2")) strFax1=valAfterNullCheck(rsAssReguGenMaster("Fax1")) PhoneFaxNos strPh1,strPh2,strFax1 end if end sub '**** Regular Member Settings********* sub setRUSvariables() strSqlAssReguGenMaster="select * from regularmembermaster where regularmembershipno='" & strLoginId & "'" rsAssReguGenMaster.Open strSqlAssReguGenMaster,objConn if rsAssReguGenMaster.EOF then 'Response.Redirect "/inc/commoninc/error.asp?section=" & EncodedSectionName & "&errorno=MF5" else strCompName=valAfterNullCheck( rsAssReguGenMaster("CompanyName")) strAddress1=valAfterNullCheck(rsAssReguGenMaster("Address1")) strAddress2=valAfterNullCheck(rsAssReguGenMaster("Address2")) strAddress3="" strCity=valAfterNullCheck(rsAssReguGenMaster("City")) strState=valAfterNullCheck(rsAssReguGenMaster("State")) strPIN=valAfterNullCheck(rsAssReguGenMaster("pinCode")) strCountryCode=valAfterNullCheck(rsAssReguGenMaster("country_Code")) 'strCountry=getCountryName(strCountryCode) strEMail=valAfterNullCheck(rsAssReguGenMaster("email")) strExec=valAfterNullCheck(rsAssReguGenMaster("keyExecutive")) strDesig=valAfterNullCheck(rsAssReguGenMaster("Designation")) strNameTitle=valAfterNullCheck(rsAssReguGenMaster("nametitle")) strPh1=valAfterNullCheck(rsAssReguGenMaster("Phone1")) strPh2=valAfterNullCheck(rsAssReguGenMaster("Phone2")) strFax1=valAfterNullCheck(rsAssReguGenMaster("Fax")) PhoneFaxNos strPh1,strPh2,strFax1 end if end sub function valAfterNullCheck(strInput) if not isnull(strInput) then valAfterNullCheck=trim(server.HTMLEncode(strInput)) else valAfterNullCheck="" end if end function function getCountryName(strCCode) if trim(strCCode)<>"" then rsCountryMaster.Open "select Country_Name from Country_Master where Country_Code='" & strCCode & "'" ,objconn if not rsCountryMaster.EOF then getCountryName=trim(server.HTMLEncode(rsCountryMaster("Country_Name"))) else getCountryName="" end if else getCountryName="" end if end function sub PhoneFaxNos(Tele1,Tele2,Fax) if Tele1<>"" then arrTele1=split(Tele1,"-") if ubound(arrTele1)=0 then strTele13=arrTele1(0) 'Phone No. strTele12="" strTele11="" elseif ubound(arrTele1)=1 then strTele13=arrTele1(1) 'Phone No. strTele12=arrTele1(0) 'Area Code strTele11="" else if ubound(arrTele1)=2 then strTele11=left(arrTele1(0),3) 'Country Code strTele12=left(arrTele1(1),4) 'Area Code strTele13=left(arrTele1(2),10) 'Phone No. end if end if else strTele11="" strTele12="" strTele13="" end if 'Getting Telephone 2 values from recordset into variables if Tele2<>"" then arrTele2=split(Tele2,"-") if ubound(arrTele2)=0 then strTele23=arrTele2(0) 'Phone No. strTele22="" strTele21="" elseif ubound(arrTele2)=1 then strTele23=left(arrTele2(0),3) 'Phone No. strTele22=left(arrTele2(1),4) 'Area Code strTele21="" else if ubound(arrTele2)=2 then strTele21=left(arrTele2(0),3) 'Country Code strTele22=left(arrTele2(1),4) 'Area Code strTele23=left(arrTele2(2),10) 'Phone No. end if end if else strTele21="" strTele22="" strTele23="" end if 'Getting Fax values from recordset into variables if Fax<>"" then arrFax1=split(Fax,"-") if ubound(arrFax1)=0 then strFax13=arrFax1(0) 'Phone No. strFax12="" strFax11="" elseif ubound(arrFax1)=1 then strFax13=arrFax1(0) 'Phone No. strFax12=arrFax1(1) 'Area Code strFax11="" elseif ubound(arrTele1)=2 then strFax11=left(arrFax1(0),3) 'Country Code strFax12=left(arrFax1(1),4) 'Area Code strFax13=left(arrFax1(2),10) 'Phone Number end if else strFax11="" strFax12="" strFax13="" end if end sub %> New Inquiry - <%=Application("Title")%>
Home > Exhibition Centre > Inquiry
Inquiry
Your Details
Name (Company/Individual)
*
Address
*

City
*
Postal Code
State

*

Country
*
Phone (s)
+ - -
(Country Code - Area Code - Phone No.)
+ - -
(Country Code - Area Code - Phone No.)
Fax No
+ - -
(Country Code - Area Code - Fax No.)
Email
*
Contact Executive
Designation
Nature of Business
Inquiry
*
* Indicates required field