<%@ Language=VBScript%>
<%
dim strpagecode
strpagecode= "4EXIS04"
%>
<%
'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,strInquiryNo,EncodedSectionName
dim strSqlAssReguGenMaster
dim strCompName, strEMail,strBusinessNature,strInquiry
dim straddress1,straddress2,straddress3,strcity,strpin,strstate,strcountry
dim strphone1,strphone2,strfax
dim strDesig,strtitle,strexecutive
EncodedSectionName=Server.URLEncode("Inquiry")
strLoginId=trim(session("USERID"))
if strLoginId="" then
Response.Redirect "/inc/admin/error.asp?section=" & EncodedSectionName & "&errorno=MF5"
end if
strInquiryNo=trim(request("InquiryNo"))
if strInquiryNo="" or not isnumeric(strInquiryNo) then
Response.Redirect "/inc/admin/error.asp?section=" & EncodedSectionName & "&errorno=MF5"
end if
set rsExhibInquiry=server.CreateObject("ADODB.RECORDSET")
rsExhibInquiry.Open "select * from exhib_inquiry where InquiryNo='" & strInquiryNo & "'",objConn
if not rsExhibInquiry.EOF then
GetFromExhibMater
else
Response.Redirect "/inc/admin/error.asp?section=" & EncodedSectionName & "&errorno=MF5"
end if
sub GetFromExhibMater()
strCompName=valAfterNullCheck( rsExhibInquiry("Company_Name"))
strEMail=valAfterNullCheck(rsExhibInquiry("email"))
strBusinessNature=valAfterNullCheck(rsExhibInquiry("business_nature"))
strInquiry=valAfterNullCheck(rsExhibInquiry("comments"))
strAddress1=valAfterNullCheck(rsExhibInquiry("Address1"))
'Response.Write "stradd1 " & straddress1
strAddress2=valAfterNullCheck(rsExhibInquiry("Address2"))
strAddress3=valAfterNullCheck(rsExhibInquiry("Address3"))
strCity=valAfterNullCheck(rsExhibInquiry("city"))
strPIN=valAfterNullCheck(rsExhibInquiry("pincode"))
strState=valAfterNullCheck(rsExhibInquiry("state"))
strcountry =getcountryname(valAfterNullCheck(rsExhibInquiry("country")))
strphone1 =valAfterNullCheck(rsExhibInquiry("phone1"))
strphone2 =valAfterNullCheck(rsExhibInquiry("phone2"))
strfax =valAfterNullCheck(rsExhibInquiry("fax"))
strDesig=valAfterNullCheck(rsExhibInquiry("contact_designation"))
strtitle=valAfterNullCheck(rsExhibInquiry("title"))
strExecutive=valAfterNullCheck(rsExhibInquiry("contact_executive"))
end sub
function valAfterNullCheck(strInput)
if not isnull(strInput) then
valAfterNullCheck=trim(server.HTMLEncode(strInput))
else
valAfterNullCheck=""
end if
end function
function getCountryName(strCCode)
dim rscountrymaster
if trim(strCCode)<>"" then
set rsCountryMaster=objconn.execute("select Country_Name from Country_Master where Country_Code='" & strCCode & "'")
if not rsCountryMaster.EOF then
getCountryName=trim(server.HTMLEncode(rsCountryMaster("Country_Name")))
else
getCountryName=""
end if
else
getCountryName=""
end if
end function
%>
Inquiry Details-<%=Application("Title")%>