%@ Language=VBScript%> <% dim strPageCode strPageCode = "32Pro01" 'dim strpagecode dim strfairname dim lastdate 'strpagecode= "FAIRG40" session("usertype")="NUS" %> <% 'Page/form name: hall bookings.asp 'Purpose:User interface for entering booking details 'Date Modified:25-06-2003 'Author:Ajay Singh %> <% 'Variables defined for holding the values from the previous step / page. dim strCompanyName dim strSalutation dim strPersonName dim strAddr1, strAddr2, strAddr3 dim strCity dim strPinCode dim strCountryCode dim strAreaCode 'dim strPhone1, strPhone2 'dim strFaxNo1, strFaxNo2 dim phone1,phonec1,phonea1 dim phone2,phonec2,phonea2 dim fax1,faxa1,faxc1 dim strEmailId dim strWebsite dim strPANNo dim strSalesTaxNo dim strCountryName strCompanyName = "" strSalutation= "" strPersonName= "" strAddr1 = "" strAddr2 = "" strAddr3 = "" strCity = "" strPinCode = "" strCountryCode = "" strAreaCode = "" 'strPhone1 = "" 'strPhone2 = "" 'strFaxNo1 = "" 'strFaxNo2 = "" strEmailId = "" strWebsite = "" strPANNo = "" strSalesTaxNo = "" strCountryName = "" strCompanyName = trim(request.Form("companyname")) strSalutation= trim(request.Form("cboSalutation")) strPersonName= trim(request.Form("personname")) strAddr1 = trim(request.Form("addr1")) strAddr2 = trim(request.Form("addr2")) strAddr3 = trim(request.Form("addr3")) strCity = trim(request.Form("city")) strPinCode = trim(request.Form("pincode")) strPhone1 = "+"&trim(request.Form("txtphonec1"))&"-"&trim(request.Form("txtphonea1"))&"-"&trim(request.Form("txtphone1")) if trim(request.Form("txtphone2"))<> "" then strPhone2 = "+"&trim(request.Form("txtphonec2"))&"-"&trim(request.Form("txtphonea2"))&"-"&trim(request.Form("txtphone2")) else strPhone2 = "" end if if trim(request.Form("txtfax1"))<> "" then fax1 = "+"&trim(request.Form("txtFaxc1"))&"-"&trim(request.form("txtFaxa1"))&"-"&trim(request.Form("txtfax1")) else fax1 = "" end if 'response.Write fax1 'response.End if trim(request.Form("hsubmit")) <> "Y" then strCountryCode = left( trim(request.Form("cboCountry")), instr(1,trim(request.Form("cboCountry")),"_",1) - 1) strCountryName = right(trim(request.Form("cboCountry")),len(trim(request.Form("cboCountry"))) - instr(1,trim(request.Form("cboCountry")),"_",1)) else 'ie on submission of the elements of the page strCountryCode = trim(request.Form("cboCountry")) strCountryName = trim(request.Form("cboCountryName")) end if 'response.Write strCountryCode 'response.Write strCountryName strAreaCode = trim(request.Form("areacode")) 'strPhone1 = trim(request.Form("phone1")) 'strPhone2 = trim(request.Form("phone2")) 'strFaxNo1 = trim(request.Form("faxno1")) 'strFaxNo2 = trim(request.Form("faxno2")) 'phone1=trim(Request.Form("txtphone1")) 'phone2=trim(Request.Form("txtphone2")) 'phonec1 = Trim(Request.form("txtphonec1")) 'phonea1 = Trim(Request.form("txtphonea1")) 'phonec2 = Trim(Request.form("txtphonec2")) 'phonea2 = Trim(Request.form("txtphonea2")) 'if phonec1<>"" and Phonea1 <> "" and Phone1 <>"" then ' ' Phone1=Phonec1 & "-"& phonea1 & "-" & Phone1 'else ' Phone1="" 'end if 'if phonec2<>"" and Phonea2 <> "" and Phone2 <>"" then ' Phone2=Phonec2 & "-"& phonea2 & "-" & Phone2 'else ' Phone2="" 'end if 'fax1=trim(Request.Form("txtfax1")) 'dim faxc1,faxa1 'faxc1 = Trim(Request.form("txtfaxc1")) 'faxa1 = Trim(Request.form("txtfaxa1")) 'if faxc1<>"" and faxa1 <> "" and fax1 <>"" then ' fax1=faxc1 & "-"& faxa1 & "-" & fax1 'else ' fax1="" 'end if strEmailId = trim(request.Form("email")) strWebsite = trim(request.Form("website")) strPANNo = trim(request.Form("panno")) strSalesTaxNo = trim(request.Form("salestaxno")) 'Declaration of the variables for the elements of this page only. dim strProductcode dim otherproductName dim strCategoryCode dim strTypeCode dim strHallSpaceCode dim strHall1 dim strHall2 dim strHall3 dim chkHS1 dim chkHS2 dim chkHS3 dim hallspace1 dim hallspace2 dim hallspace3 dim chk1 dim chk2 dim strSpaceCode1 dim strSpaceCode2 dim strSpace1 dim strSpace2 dim hallamt1 dim hallamt2 dim hallamt3 dim outspaceamt1 dim outspaceamt2 dim totalamt 'Other dim strIsthisPageSubmitted strProductcode = "" otherproductName = "" strCategoryCode = "" strTypeCode = "" strHallSpaceCode = "" strHall1 = "" strHall2 = "" strHall3 = "" chkHS1 = "" chkHS2 = "" chkHS3 = "" hallspace1 = "" hallspace2 = "" hallspace3 = "" chk1 = "" chk2 = "" strSpaceCode1 = "" strSpaceCode2 = "" strSpace1 = "" strSpace2 = "" hallamt1 = "" hallamt2 = "" hallamt3 = "" outspaceamt1 = "" outspaceamt2 = "" totalamt = "" strIsthisPageSubmitted = "" strProductcode = trim(request.Form("cboProduct")) otherproductName = trim(request.Form("otherproduct")) strCategoryCode = trim(request.Form("cboCategory")) 'dim strQw 'strQw = " select typecode from hallmaste where hallid = " & cbohallid 'strTypeCode = trim(request.Form("cboType")) 'strTypeCode = trim(request.Form("cboType")) strHallSpaceCode = trim(request.Form("cboHallSpace")) strHall1 = trim(request.Form("cboHall1")) if strHall1 = "" then strHall1 = 0 strHall2 = trim(request.Form("cboHall2")) if strHall2 = "" then strHall2 = 0 strHall3 = trim(request.Form("cboHall3")) if strHall3 = "" then strHall3 = 0 if strHall1<>"" then dim strQw strQw = " select typecode from hallmaster where hallid = " & strHall1 dim rstemp set rstemp = server.CreateObject("adodb.recordset") set rstemp = objconn.execute(strQw) if not ( rstemp.eof and rstemp.BOF ) then strTypeCode = rstemp("typecode") end if end if if strHall2<>"" then dim strQw1,strTypeCode1 strQw1 = " select typecode from hallmaster where hallid = " & strHall2 dim rstemp1 set rstemp1 = server.CreateObject("adodb.recordset") set rstemp1 = objconn.execute(strQw1) if not ( rstemp1.eof and rstemp1.BOF ) then strTypeCode1 = rstemp1("typecode") end if end if if strHall3<>"" then dim strQw2,strTypeCode2 strQw2 = " select typecode from hallmaster where hallid = " & strHall3 dim rstemp2 set rstemp2 = server.CreateObject("adodb.recordset") set rstemp2 = objconn.execute(strQw2) if not ( rstemp2.eof and rstemp2.BOF ) then strTypeCode2 = rstemp2("typecode") end if end if chkHS1 = trim(request.Form("chkHS1")) chkHS2 = trim(request.Form("chkHS2")) chkHS3 = trim(request.Form("chkHS3")) hallspace1 = trim(request.Form("hallspace1")) hallspace2 = trim(request.Form("hallspace2")) hallspace3 = trim(request.Form("hallspace3")) chk1 = trim(request.Form("chk1")) chk2 = trim(request.Form("chk2")) strSpaceCode1 = trim(request.Form("cboSpace1")) if strSpaceCode1 = "" then strSpaceCode1 = 0 strSpaceCode2 = trim(request.Form("cboSpace2")) if strSpaceCode2 = "" then strSpaceCode2 = 0 strSpace1 = trim(request.Form("space1")) strSpace2 = trim(request.Form("space2")) hallamt1 = trim(request.Form("hallamt1")) hallamt2 = trim(request.Form("hallamt2")) hallamt3 = trim(request.Form("hallamt3")) outspaceamt1 = trim(request.Form("outspaceamt1")) outspaceamt2 = trim(request.Form("outspaceamt2")) totalamt = trim(request.Form("totalamt")) strIsthisPageSubmitted = trim(request.Form("hsubmit")) dim Dollor_Or_Rs if Ucase(trim(strCountryName)) = "INDIA" then Dollor_Or_Rs = "Rs." else Dollor_Or_Rs = "US$" end if %>
|
|||||||||||