<% HoardingId = Request.QueryString("HId") set objrs = server.CreateObject("adodb.recordset") notthere = false objrs.Open "select count(*) from HoardingMaster where HoardingId=" + HoardingId, con, 3, 3 if objrs(0)=0 then notthere=true objrs.Close if notthere then %>

No Hoarding Exists - Hit Back

<% Response.End end if 'Response.Write "select a.Location, a.Direction, a.PresentDisplay, a.HoardingStatus, a.Status, b.ZoneName, c.HoardingTypeName, c.HoardingMaterial,a.height,a.width from HoardingMaster a, ZoneMaster b, HoardingTypeMaster c where a.ZoneId=b.ZoneId and a.HoardingTypeId=c.HoardingTypeId and a.HoardingId= " + HoardingId objrs.Open "select a.Location,a.hoardimage, a.Direction,a.NearByAreas, a.PresentDisplay, a.HoardingStatus, a.Status,a.bookingfromdate,a.todate, b.ZoneName, c.HoardingTypeName, c.HoardingMaterial,a.height,a.width from HoardingMaster a, ZoneMaster b, HoardingTypeMaster c where a.ZoneId=b.ZoneId and a.HoardingTypeId=c.HoardingTypeId and a.HoardingId= " + HoardingId, con, 3,3 if objrs("HoardingStatus") then HoardingStatus = "Available" else HoardingStatus = "Not Available" end if %>

Hoarding Details <%if(HoardingStatus = "Not Available") then%> <%end if%> Height (Ft) <%=objrs("height")%> Width (Ft) <%=objrs("Width")%> Area (Sqft) <%=(objrs("Width")*objrs("height"))%> Hoarding Type <%=objrs("HoardingTypeName")%> Zone <%=objrs("ZoneName")%> Location <%=objrs("Location")%> Near By Areas <%=objrs("NearByAreas")%> Traffic Coming From <%=objrs("Direction")%> Present Display <%=objrs("PresentDisplay")%> Status <%=HoardingStatus%> Booked From <%=objrs("BookingFromdate")%> To <%=objrs("todate")%>   " width=290 height=350> Back

<% objrs.Close set objrs = nothing %>