<% dim logoname dim lastdate logoname = "" lastdate = "" %> <% dim DetailId dim sqlDetail,rsDetail DetailId = trim(request("ac")) if isnumeric(datailid) = false then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking") Response.End end if sqlDetail = " select * from hallbooking where appid = " & DetailId on error resume next set rsDetail = objconn.Execute(sqlDetail) if not (rsDetail.eof or rsDetail.bof) then detailid = rsdetail("appid") else response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking") Response.End end if if rsdetail.eof then response.Redirect "/inc/admin/error.asp?errortype=err_record§ion="&server.URLEncode("Hall Booking") Response.End end if on error goto 0 %> <% strQ = " select productname from products_master pm,hallbooking hb where pm.prodid = hb.prodid and hb.appid =" & trim(rsDetail("appid")) 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 View") Response.End end if on error goto 0 %> <% strQ = " select categoryid, description, IsIndian from availabletocatgmaster where categoryid = "& trim(rsdetail("categoryid")) 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 View") Response.End end if on error goto 0 %> <% strQ = " select code, codedesc from itpo_code where ltrim(rtrim(codetype)) = 'HTY' and code = '"&trim(rsdetail("typecode"))&"'" 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 View") Response.End end if on error goto 0 %> <% strQ = " select code, codedesc from itpo_code where ltrim(rtrim(codetype)) = 'HSP' and code = '"& trim(rsDetail("hallspacecode"))&"'" 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 %> <%dim sqlHallPreference,rsHallPreference sqlHallPreference = "select * from hallpreferancedetails where appid = " & trim(rsDetail("appid"))& " order by preferenceorder " on error resume next set rsHallPreference = objconn.execute(sqlHallPreference) 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 %> <%i = 1%> <%do while not (rsHallPreference.eof)%> <% dim sqlHallName,rsHallName sqlHallName = "select description from hallmaster where hallid = "& trim(rsHallPreference("hallid")) on error resume next set rsHallName = objconn.execute(sqlHallName) 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 %> <%rsHallName.close%> <%i = i+1 rshallPreference.movenext loop %><%rsHallPreference.close%> <% dim sqlHallBookOutDoor,rsHallBookOutDoor sqlHallBookOutDoor = "select * from HallBookOutDoorSpaceDetails where appid = "&trim(rsDetail("appid")) ' response.Write sqlHallBookOutDoor on error resume next set rsHallBookOutDoor = objconn.execute(sqlHallBookOutDoor) 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 not(rsHallBookOutDoor.eof) then%> <%end if%> <%i=1%> <%do while not(rsHallBookOutDoor.eof)%> <%dim sqlSpaceName,rsSpaceName sqlSpaceName = "select description from spacemaster where spaceid = "& rsHallBookOutDoor("spaceid") On error resume next set rsSpaceName = objconn.execute(sqlSpaceName) 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 %> <%rsSpaceName.close%> <%i = i+1%> <%rsHallBookOutDoor.movenext loop %><%rsHallBookOutDoor.close%> Hall And Outdoor Space Booking View Company Information Company Name <%=trim(rsDetail("company_name"))%> Contact Person <%=trim(rsDetail("chSalutation")) & " "& trim(rsDetail("contact_person"))%> Address <%=trim(rsDetail("Addr1"))%> <% if trim(rsDetail("Addr2") & "") <> "" then %> , <%=trim(rsDetail("Addr2"))%> <% end if %> <% if trim(rsDetail("Addr3") & "") <> "" then %> , <%=trim(rsDetail("Addr3")) %> <% end if%> City <%=trim(rsDetail("city"))%> Pin Code <%=trim(rsDetail("pin_code"))%> Country <% strQ = " select country_name from country_master where country_code =" & trim(rsDetail("country_code")) 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 not ( rs.eof and rs.bof ) then %> <%=trim(rs("country_name"))%> <% end if %> <%rs.Close%> Area Code <%=trim(rsDetail("area_code"))%> Phone(s) <%=trim(rsDetail("phone1"))%> <% if trim(rsDetail("phone2") & "") <> "" then %> , <%=trim(rsDetail("phone2"))%> <% end if %> Fax <% if trim(rsDetail("fax1") & "") <> "" then %> <%=trim(rsDetail("fax1"))%> <% end if %> email <% if trim(rsDetail("email") & "") <> "" then %> "><%=trim(rsDetail("email"))%> <% end if %> Web Site <% if trim(rsDetail("website") & "") <> "" then %> "> http://<%=trim(rsDetail("website"))%> <% end if %> PAN No. <%=trim(rsDetail("pan_no"))%> Sales Tax No. <%=trim(rsDetail("salestaxno"))%> Product Code <% if not ( rs.eof and rs.bof ) then %> <%=rs("productname")%> <% end if %> Other Product Specify <%=trim(rsDetail("other_product_name"))%> Category <% if not ( rs.eof and rs.bof ) then %> <%=trim(rs("description"))%> <% end if %> Type <% if not ( rs.eof and rs.bof ) then %> <%=rs("codedesc")%> <% end if %> <%rs.close%> Hall Space(Bare / Shell Scheme) <% if not ( rs.eof and rs.bof ) then %> <%=rs("codedesc")%> <% end if %> Hall Preferences S. No. Hall Space Booked Reqd. (Sq. mtr.) Amount <%=i%> <% if not (rsHallName.eof and rsHallName.bof ) then %> <%=trim(rsHallName("description"))%> <% end if %> <%=rsHallPreference("spacebooked")%> <%=rsHallPreference("CalAmount")%> Other Outdoor Spaces S No. Space Description Space Booked Reqd. (Sq. mtr.) Amount <%=i%> <% if not (rsSpaceName.eof and rsSpaceName.bof) then %> <%=trim(rsSpaceName("description"))%> <% end if %> <%=trim(rsHallBookOutDoor("spacebooked"))%> <%=trim(rsHallBookOutDoor("CalAmount"))%> <%' end if %>