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

<%=SiteName%>		Home     Logout
	height=200 border=0 cellpadding=0 cellspacing=0> <%=msg%> Back

<% Response.End end if objrs.Open "select a.Location,a.NearByAreas,a.hoardimage, a.Direction, a.PresentDisplay, a.HoardingStatus, a.Status,a.bookingfromdate,a.todate, b.ZoneName, c.HoardingTypeName, a.Height, a.Width, c.HoardingMaterial 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 %>

<%=SiteName%>		Home     Logout
	height=200 border=0 cellpadding=0 cellspacing=0> <% if (HoardingStatus="Available") then%> <%end if%> Hoarding Details (Id - <%=HoardingId%>) Hoarding Type <%=objrs("HoardingTypeName")%> Zone <%=objrs("ZoneName")%> Location <%=objrs("Location")%> Near By Areas <%=objrs("NearByAreas")%> Traffic Coming From <%=objrs("Direction")%> Height (Ft) <%=objrs("Height")%> Width (Ft) <%=objrs("Width")%> Material <%=objrs("HoardingMaterial")%> Present Display <%=objrs("PresentDisplay")%> Status <%=HoardingStatus%> Booked From <%=objrs("Bookingfromdate")%> To <%=objrs("todate")%> Hoard Image " width=200 height=200> Do you want to update the image Select The Image >

<% objrs.Close set objrs = nothing %>