%@ Language=VBScript %> <% Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Response.Buffer = true %> <% Dim objLadyHillLAX Dim rstRoomType, rstMealPlan Dim strFullName, strAddress, strCountry, strPhone, strEmail, intRoomType Dim intMealPlan, intNoOfRoom, dteCheckInDate, dteCheckOutDate, dblTotCharge Dim strCmbPercentage, dblPercentage, strAirpPickup, strVehicleHire, strFlightNo, strComments Dim dblLKRTotCharge, dblLKRPercentage, dblUSDRate, dblTotCharge_LKR, dblPercentage_LKR, dblTotCharge_LKRDisp, dblTotChargePercentage_LKRDisp Set objLadyHillLAX = Server.CreateObject("prjLadyHill.clsLadyHill") '' creating object using project : prjLadyHill '' class : clsLadyHill Set rstRoomType = Server.CreateObject("ADODB.Recordset") Set rstMealPlan = Server.CreateObject("ADODB.Recordset") strFullName = Trim(Request("txtFullName")) strAddress = Trim(Request("txtAddress")) strCountry = Trim(Request("txtCountry")) strPhone = Trim(Request("txtPhone")) strEmail = Trim(Request("txtEmail")) intRoomType = Trim(Request("cmbRoomType")) intMealPlan = Trim(Request("cmbMealPlan")) intNoOfRoom = Trim(Request("txtNoOfRoom")) dteCheckInDate = Trim(Request("dteCheckInDate")) dteCheckOutDate = Trim(Request("dteCheckOutDate")) dblTotCharge = Trim(Request("txtTotCharge")) strCmbPercentage= Trim(Request("cmbPercentage")) dblPercentage = Trim(Request("txtPercentageAmount")) dblTotCharge_LKRDisp = Trim(Request("txtTotChargeLKRDisp")) dblTotChargePercentage_LKRDisp = Trim(Request("txtTotChargePercentageLKRDisp")) if(dblTotChargePercentage_LKRDisp = "")then dblTotChargePercentage_LKRDisp = "" else dblTotChargePercentage_LKRDisp = FormatNumber(dblTotChargePercentage_LKRDisp) end if dblTotCharge_LKR = Trim(Request("txtTotChargeLKR")) dblPercentage_LKR= Trim(Request("txtPercentageAmountLKR")) strAirpPickup = Trim(Request("chkAirpPickup")) strVehicleHire = Trim(Request("chkVehicleHire")) strFlightNo = Trim(Request("txtFlightNo")) strComments = Trim(Request("txtComments")) %>