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