<% dim Boolval
dim logoname
Boolval = Permission_Denied()
%>
Deadline
for Application : <%=lastdate%>
|
|
Hall
And Outdoor Space Booking - Step
2
|
<%
dim strQ
dim rs
strQ = ""
set rs = server.CreateObject("adodb.recordset")
%>
|
Product
Code
|
<%
strQ = " select prodid, productname from products_master where active = 'Y' Order by productname"
On error resume next
set rs = objConn.execute(strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
%>
|
|
Other
Product Specify
|
|
|
Category
|
<%
if Ucase(trim(strCountryName)) = "INDIA" then
strQ = " select categoryid, description, IsIndian from availabletocatgmaster where active = 'Y' and IsIndian = 'Y' Order by description"
else
strQ = " select categoryid, description, IsIndian from availabletocatgmaster where active = 'Y' and IsIndian = 'N' Order by description"
end if
On error resume next
set rs = objConn.execute(strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
%>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
*
<%else%>
<%if not (rs.EOF and rs.BOF ) then%>
<% strCategoryCode = rs("categoryid")%>
<%=rs("description")%>
">
<%
rs.close
end if%>
<%end if%>
|
|
Type
|
<%
if Ucase(trim(strCountryName)) = "INDIA" then
strQ = " select code, codedesc from itpo_code where ltrim(rtrim(codetype)) = 'HTY' Order by codedesc"
else
strQ = " select code, codedesc from itpo_code where ltrim(rtrim(codetype)) = 'HTY' and " &_
" code = 'AC'" & _
" Order by codedesc"
end if
On error resume next
set rs = objConn.execute(strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
%>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%else%>
<%if not (rs.EOF and rs.BOF ) then%>
<%strTypeCode = rs("code")%>
<%=rs("codedesc")%>
" ID="Hidden19">
<%
rs.close
end if%>
<%end if%>
|
|
Hall
Space(Bare / Shell Scheme)
|
<%
strQ = " select code, codedesc from itpo_code where ltrim(rtrim(codetype)) = 'HSP' Order by codedesc"
On error resume next
set rs = objConn.execute(strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
%>
|
|
Hall
Preferences
|
|
S.
No.
|
Hall
|
Minimum
Booking Reqd. (Sq. mtr.)
|
Maximum
Booking (Sq. mtr.)
|
Space
Reqd. (Sq. mtr.)
|
Rate
(per Sq. mtr.) <%=Dollor_Or_Rs%>
|
Amount
(<%=Dollor_Or_Rs%>)
|
|
1
onclick="DisableEnableHall1Elements(this)">
|
<%
'Halls
'when first time : Product code = "" and Others = ""
'In this case Product code Halls won't be Product based.
strProductcode = trim(strProductcode)
strIsthisPageSubmitted = trim(strIsthisPageSubmitted)
otherproductName = trim(otherproductName)
if ((strProductcode = "") and (strIsthisPageSubmitted = "") and (otherproductName = "" Or otherproductName <> "")) Or ((strProductcode = "0") and (strIsthisPageSubmitted <> "") and (otherproductName = "" Or otherproductName <> "") ) then
strQ = " select a.hallid, a.description,a.MinBookBareSpaceId, " & _
" a.MaxBookBareSpaceId,a.MinBookShellSpaceId,a.MaxBookShellSpaceId from hallmaster a, " & _
" HallAvailToCatgDetails b " & _
" where a.hallid = b.hallid and b.categoryid = " & strCategoryCode & _
" and ltrim(rtrim(a.TypeCode)) = '" & trim(strTypeCode) & "' and a.AvailforBook = 'Y' Order by " & _
" description "
elseif (strProductcode <> "0") and (strIsthisPageSubmitted <> "") and (otherproductName = "" Or otherproductName <> "") then
strQ = " select a.hallid, a.description,a.MinBookBareSpaceId, " & _
" a.MaxBookBareSpaceId,a.MinBookShellSpaceId,a.MaxBookShellSpaceId from hallmaster a, " & _
" HallAvailToCatgDetails b, HallProdCatgDetails c " & _
" where a.hallid = b.hallid and b.categoryid = " & strCategoryCode & _
" and a.hallid = c.hallid and c.prodid = " & strProductcode & " and " & _
" ltrim(rtrim(a.TypeCode)) = '" & trim(strTypeCode) & "' and a.AvailforBook = 'Y' Order by " & _
" description "
end if
''elseif strProductcode = "" and strIsthisPageSubmitted = "" and otherproductName <> "" then
'when Other Product is selected & Product code is 0 and strIsthisPageSubmitted <> ""
'when Other Product is selected or "" & Product code <> 0 and strIsthisPageSubmitted <> ""
'when Other Product is selected & Product code is "" and strIsthisPageSubmitted = ""
'strProductcode = "0" and strIsthisPageSubmitted <> "" and Other = "" then
'strProductcode = "" and strIsthisPageSubmitted = "" and Other = "" then
'strProductcode = "0" and strIsthisPageSubmitted <> "" and Otrher <> "" then
'elseif strProductcode <> "0" and strIsthisPageSubmitted <> "" then
'when Product code <> 0 Or "" ie Product code is specified and not Other Product.
' strQ = " select a.hallid, a.description from hallmaster a, " & _
' " HallAvailToCatgDetails b, HallProdCatgDetails c " & _
' " where a.hallid = b.hallid and b.categoryid = " & strCategoryCode & _
' " and a.hallid = c.hallid and c.prodid = " & strProductcode & " and " & _
' " ltrim(rtrim(a.TypeCode)) = '" & trim(strTypeCode) & "' and a.AvailforBook = 'Y' Order by " & _
' " description "
'end if
' response.Write "
strProductcode = " & strProductcode
' response.Write "
strIsthisPageSubmitted " & strIsthisPageSubmitted
' response.Write "
otherproductName = " & otherproductName & "
"
' response.Write strQ
'response.End
On error resume next
set rs = objConn.execute(strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
' RESPONSE.Write "
strHall1 = " & strHall1
%>
|
<%
'Min Booking Space Required.
dim rst
set rst = server.CreateObject("adodb.recordset")
strQ = " select a.hallid, a.description,a.MinBookBareSpaceId, " & _
" a.MaxBookBareSpaceId,a.MinBookShellSpaceId,a.MaxBookShellSpaceId from hallmaster a " & _
" where a.hallid = " & strHall1
' response.Write "
ee strQ = " & strQ
On error resume next
set rst = GetData(objConn, strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
' RESPONSE.Write "
strHall1 = " & strHall1
%>
<% if not ( rst.EOF and rst.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<%'=rst("MinBookBareSpaceId")%>
" disabled>
<% elseif strHallSpaceCode = "SHS" then %>
<%'=rst("MinBookShellSpaceId")%>
" disabled>
<% end if %>
<% else %>
<% end if %>
|
<%' response.write "
strHallSpaceCode = " & strHallSpaceCode%>
<% strValue = ""%>
<% if not ( rst.EOF and rst.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<%if IsNULL(rst("MaxBookBareSpaceId")) then
strValue = "-"
else
strValue = rst("MaxBookBareSpaceId")
end if
'response.Write strValue
%>
<% elseif strHallSpaceCode = "SHS" then %>
<%if IsNULL(rst("MaxBookShellSpaceId")) then
strValue = "-"
else
strValue = rst("MaxBookShellSpaceId")
end if
'response.Write strValue
%>
<% end if %>
<% else %>
<% end if %>
|
|
<%'Booking rates
strQ = ""
strQ = " Select RateBareSpace_INR, RateBareSpace_USD, RateBareShell_INR, " & _
" RateBareShell_USD from hallratemaster where " & _
" rtrim(ltrim(typecode)) = '" & trim(strTypeCode) & "' and Categoryid = " & strCategoryCode
' response.write "
Hall Rate = " & strQ
dim rshr
dim strValue
dim strUS_Rs
strValue = ""
strUS_Rs = ""
set rshr = server.CreateObject("adodb.recordset")
set rshr = getdata(objconn, strQ)
%>
<% strValue = ""%>
<% if strHall1 <> "0" And strHall1 <> "" then %>
<% if not ( rshr.EOF and rshr.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("RateBareSpace_INR")) then
strValue = "-"
else
strValue = rshr("RateBareSpace_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("RateBareSpace_USD")) then
strValue = "-"
else
strValue = rshr("RateBareSpace_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% elseif strHallSpaceCode = "SHS" then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("RateBareShell_INR")) then
strValue = "-"
else
strValue = rshr("RateBareShell_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("RateBareShell_USD")) then
strValue = "-"
else
strValue = rshr("RateBareShell_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% end if %>
<% else %>
<% end if %>
<% else %>
<% end if %>
|
|
|
2
onclick="DisableEnableHall2Elements(this)">
|
|
<%
'Min Booking Space Required.
set rst = server.CreateObject("adodb.recordset")
strQ = " select a.hallid, a.description,a.MinBookBareSpaceId, " & _
" a.MaxBookBareSpaceId,a.MinBookShellSpaceId,a.MaxBookShellSpaceId from hallmaster a " & _
" where a.hallid = " & strHall2
' response.Write "
ee strQ = " & strQ
On error resume next
set rst = GetData(objConn, strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
' RESPONSE.Write "
strHall2 = " & strHall2
%>
<% if not ( rst.EOF and rst.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<%'=rst("MinBookBareSpaceId")%>
" disabled>
<% elseif strHallSpaceCode = "SHS" then %>
<%'=rst("MinBookShellSpaceId")%>
" disabled>
<% end if %>
<% else %>
<% end if %>
|
<% strValue = ""%>
<% if not ( rst.EOF and rst.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<%if IsNULL(rst("MaxBookBareSpaceId")) then
strValue = "-"
else
strValue = rst("MaxBookBareSpaceId")
end if
'response.Write strValue
%>
<% elseif strHallSpaceCode = "SHS" then %>
<%if IsNULL(rst("MaxBookShellSpaceId")) then
strValue = "-"
else
strValue = rst("MaxBookShellSpaceId")
end if
'response.Write strValue
%>
<% end if %>
<% else %>
<% end if %>
|
|
<% strValue = ""%>
<% if strHall2 <> "0" And strHall2 <> "" then %>
<% if not ( rshr.EOF and rshr.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("RateBareSpace_INR")) then
strValue = "-"
else
strValue = rshr("RateBareSpace_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("RateBareSpace_USD")) then
strValue = "-"
else
strValue = rshr("RateBareSpace_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% elseif strHallSpaceCode = "SHS" then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("RateBareShell_INR")) then
strValue = "-"
else
strValue = rshr("RateBareShell_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("RateBareShell_USD")) then
strValue = "-"
else
strValue = rshr("RateBareShell_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% end if %>
<% else %>
<% end if %>
<%else %>
<% end if %>
|
|
|
3
onclick="DisableEnableHall3Elements(this)">
|
|
<%
'Min Booking Space Required.
set rst = server.CreateObject("adodb.recordset")
strQ = " select a.hallid, a.description,a.MinBookBareSpaceId, " & _
" a.MaxBookBareSpaceId,a.MinBookShellSpaceId,a.MaxBookShellSpaceId from hallmaster a " & _
" where a.hallid = " & strHall3
' response.Write "
ee strQ = " & strQ
On error resume next
set rst = GetData(objConn, strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
' RESPONSE.Write "
strHall3 = " & strHall3
%>
<% if not ( rst.EOF and rst.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<%'=rst("MinBookBareSpaceId")%>
" disabled>
<% elseif strHallSpaceCode = "SHS" then %>
<%'=rst("MinBookShellSpaceId")%>
" disabled>
<% end if %>
<% else %>
<% end if %>
|
<% strValue = ""%>
<% if not ( rst.EOF and rst.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<%if IsNULL(rst("MaxBookBareSpaceId")) then
strValue = "-"
else
strValue = rst("MaxBookBareSpaceId")
end if
'response.Write strValue
%>
<% elseif strHallSpaceCode = "SHS" then %>
<%if IsNULL(rst("MaxBookShellSpaceId")) then
strValue = "-"
else
strValue = rst("MaxBookShellSpaceId")
end if
'response.Write strValue
%>
<% end if %>
<% else %>
<% end if %>
|
|
<% strValue = ""%>
<% if strHall3 <> "0" And strHall3 <> "" then %>
<% if not ( rshr.EOF and rshr.BOF ) then %>
<% if strHallSpaceCode = "BAR" then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("RateBareSpace_INR")) then
strValue = "-"
else
strValue = rshr("RateBareSpace_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("RateBareSpace_USD")) then
strValue = "-"
else
strValue = rshr("RateBareSpace_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% elseif strHallSpaceCode = "SHS" then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("RateBareShell_INR")) then
strValue = "-"
else
strValue = rshr("RateBareShell_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("RateBareShell_USD")) then
strValue = "-"
else
strValue = rshr("RateBareShell_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% end if %>
<% else %>
<% end if %>
<% else %>
<% end if %>
|
|
|
Other
Outdoor Spaces
|
|
Select
|
Space
Description
|
Minimum
Booking Reqd. (Sq. mtr.)
|
Maximum
Booking (Sq. mtr.)
|
Space
Reqd. (Sq. mtr.)
|
Rate
(per Sq. mtr.) <%=Dollor_Or_Rs%>
|
Amount
(<%=Dollor_Or_Rs%>)
|
|
onclick="DisableEnableSpace1Elements(this)">
|
<%
strQ = " select a.spaceid, a.description from spacemaster a, SpaceAvailToDetails b " & _
" where a.spaceid = b.spaceid and " & _
" a.AvailforBook = 'Y' " & _
" and b.CategoryId = " & strCategoryCode & _
" Order by a.description "
' response.Write "
strCategoryCode = " & strCategoryCode & strQ
On error resume next
set rs = objConn.execute(strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
%>
|
<%
'Min Booking Space Required.
'set rst = server.CreateObject("adodb.recordset")
strQ = " select a.spaceid, a.description,a.MinBookSpace, " & _
" a.MaxBookSpace from spacemaster a " & _
" where a.spaceid = " & strSpaceCode1
' response.Write "
Outdoor spaces strQ = " & strQ
On error resume next
set rst = GetData(objConn, strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
' RESPONSE.Write "
strSpace 1 = " & strSpaceCode1
%>
<% if not ( rst.EOF and rst.BOF ) then %>
<%'=rst("MinBookSpace")%>
" disabled>
<% else %>
<% end if %>
|
<% strValue = ""%>
<% if not ( rst.EOF and rst.BOF ) then %>
<%if IsNULL(rst("MaxBookSpace")) then
strValue = "-"
else
strValue = rst("MaxBookSpace")
end if
'response.Write strValue
%>
<% else %>
<% end if %>
|
|
<%'Booking rates
strQ = ""
strQ = " Select Rate_INR, Rate_USD " & _
" from spaceratemaster where " & _
" SpaceId = " & strSpaceCode1 & _
" and Categoryid = " & strCategoryCode
'response.write "
Outdoor Space Rate 1 = " & strQ
strValue = ""
strUS_Rs = ""
'set rshr = server.CreateObject("adodb.recordset")
set rshr = getdata(objconn, strQ)
%>
<% strValue = ""%>
<% if strSpaceCode1 <> "0" And strSpaceCode1 <> "" then %>
<% if not ( rshr.EOF and rshr.BOF ) then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("Rate_INR")) then
strValue = "-"
else
strValue = rshr("Rate_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("Rate_USD")) then
strValue = "-"
else
strValue = rshr("Rate_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% else %>
<% end if %>
<% else %>
<% end if %>
|
|
|
onclick="DisableEnableSpace2Elements(this)">
|
|
<%
'Min Booking Space Required.
'set rst = server.CreateObject("adodb.recordset")
strQ = " select a.spaceid, a.description,a.MinBookSpace, " & _
" a.MaxBookSpace from spacemaster a " & _
" where a.spaceid = " & strSpaceCode2
' response.Write "
Outdoor spaces strQ 2= " & strQ
On error resume next
set rst = GetData(objConn, strQ)
if err <> 0 then
response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking")
Response.End
end if
on error goto 0
' RESPONSE.Write "
strSpace 2 = " & strSpaceCode2
%>
<% if not ( rst.EOF and rst.BOF ) then %>
<%'=rst("MinBookSpace")%>
" disabled>
<% else %>
<% end if %>
|
<% strValue = ""%>
<% if not ( rst.EOF and rst.BOF ) then %>
<%if IsNULL(rst("MaxBookSpace")) then
strValue = "-"
else
strValue = rst("MaxBookSpace")
end if
'response.Write strValue
%>
<% else %>
<% end if %>
|
|
<%'Booking rates
strQ = ""
strQ = " Select Rate_INR, Rate_USD " & _
" from spaceratemaster where " & _
" SpaceId = " & strSpaceCode2 & _
" and Categoryid = " & strCategoryCode
'response.write "
Outdoor Space Rate 2 = " & strQ
strValue = ""
strUS_Rs = ""
'set rshr = server.CreateObject("adodb.recordset")
set rshr = getdata(objconn, strQ)
%>
<% strValue = ""%>
<% if strSpaceCode2 <> "0" And strSpaceCode2 <> "" then %>
<% if not ( rshr.EOF and rshr.BOF ) then %>
<% if Ucase(trim(strCountryName)) = "INDIA" then %>
<%if IsNULL(rshr("Rate_INR")) then
strValue = "-"
else
strValue = rshr("Rate_INR")
end if
strUS_Rs = "Rs."
%>
<% else %>
<%if IsNULL(rshr("Rate_USD")) then
strValue = "-"
else
strValue = rshr("Rate_USD")
end if
strUS_Rs = "US$"
%>
<% end if %>
<% 'response.write strValue & " " & strUS_Rs%>
<% else %>
<% end if %>
<% else %>
<% end if %>
|
|
|
**
Total Amount
(<%=Dollor_Or_Rs%>)
|
|
<%if Ucase(trim(strCountryName)) = "INDIA" then %>
|
Advance
Amount (<%=Dollor_Or_Rs%>) (10%
of Total amount)
|
|
<% end if %>
**
<%if Ucase(trim(strCountryName)) = "INDIA" then %>
1) 10% with booking and balance 90%
by draft within 7 days, failing which
the 10% advance will be forfeited.
<%else%>
1) Full Amount has to be transferred
through banking channels within 10
days time.
ITPO's Bank Account Nos. and Swift
Code No.s are:
|
Name
of the Bank
|
Account
Number
|
Swift
Code Number
|
|
CITIBANK
Connaught
Place, New Delhi
|
002157-012
|
CITIINBX
|
State
Bank of India
Parliament
Street, New Delhi - 110001
|
1100400384
|
SBI-NIN-BBA
104
|
Central
Bank of India
Press
Area Branch, Extn. Counter,
Pragati
Maidan,
New
Delhi - 110001 |
1788
|
CBININ-BB-PAR
|
Canara
Bank
Pragati
Maidan,
New
Delhi - 110001 |
1234
|
CNRBINBBDDP
|
<% end if %>
2)
All Space booking subject to availabilty
and confirmation in writing by ITPO.
|
|
|
