<% 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
%>
Display Profile & Product Categories |
|
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.
3)
Charges for Catalogue entry and others, if any, will
be intimated once space booking is confirmed.
4)
Any early bird discount, if applicable
will be adjusted in the balance payment.
5) Kindly go through the rules
and regulations for participation. |
|
|
