home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
202.53.64.216
/
202.53.64.216.tar
/
202.53.64.216
/
janahitha
/
AdsOnlineBooking.asp
< prev
next >
Wrap
Text File
|
2004-11-26
|
4KB
|
124 lines
<!-- #include file="AdsOpenConn.asp" -->
<%
TblHeadBGColor = "#DDF0DF"
TblHeadFGColor = "#000000"
TblBGColor = "#ffffff"
TblFGColor = "#000000"
set objrs = server.CreateObject("adodb.recordset")
%>
<html>
<head>
<title> Janahitha Ads - Welcome </title>
<meta name="author" content="Jagadish,Gopi">
</head>
<body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
<!-- #include file="AdsTop.asp" -->
<center>
<table width=100% cellpadding=0 cellspacing=0 border=0 height=100%>
<tr>
<td width=150 align=center valign=top bgcolor="#FFFFFF">
<!-- #include file="AdsLeft.asp" -->
</td>
<td width=630 align=center valign=top bgcolor="#ffffff">
<br>
<img src="AdsImages/OnlineBooking.gif"> <br> <br>
<!-- <font face=verdana color="#3946B7"> <b> Search Hoardings / Online Booking </b> </font> <br> <br> -->
<table width=350>
<tr>
<td>
<p align=justify> <font face=verdana size=2 color="#846648"> You can book Hoardings online. Simply find the appropriate Hoarding, searching through this form, and Book Online. </font> </p>
</td>
</tr>
</table>
<br>
<form name="searchform" method=get action="AdsHoardingsList.asp">
<table cellpadding=0 cellspacing=0 border=0>
<tr><td bgcolor="#f2D197">
<table cellpadding=2 cellspacing=1 border=0 width=100%>
<tr bgcolor="#f2D197">
<td>
<font face="verdana" size=2><B> Select Location</b> </font>
</td>
<td>
<select name="zone">
<option value=""> Select Location
<%
objrs.Open "select ZoneId, ZoneName from ZoneMaster where ZoneStatus=Yes order by " &_
" ZoneName", con, 3, 3
while not objrs.EOF
%>
<option value="<%=objrs("ZoneId")%>"> <%=objrs("ZoneName")%>
<%
objrs.MoveNext
wend
objrs.Close
%>
</select>
</td>
</tr>
<tr bgcolor="#ffffff">
<td>
<font face="verdana" size=2><b> Hoarding Type</b> </font>
</td>
<td>
<select name="htypeid">
<option value=""> Select Hoarding Type
<%
objrs.Open "select HoardingTypeId, HoardingTypeName from HoardingTypeMaster where HoardingTypeStatus=Yes order by HoardingTypeName", con, 3, 3
while not objrs.EOF
%>
<option value="<%=objrs("HoardingTypeId")%>"> <%=objrs("HoardingTypeName")%>
<%
objrs.MoveNext
wend
objrs.Close
%>
</select>
</td>
</tr>
<!--<tr bgcolor="#ffffff">
<td>
<font face="verdana" size=2> Hoarding Material </font>
</td>
<td>
<select name="hmat">
<option value=""> Select Hoarding Material
<%
objrs.Open "select distinct HoardingMaterial from HoardingTypeMaster where HoardingTypeStatus=Yes order by HoardingMaterial", con, 3, 3
while not objrs.EOF
%>
<option value="<%=objrs("HoardingMaterial")%>"> <%=objrs("HoardingMaterial")%>
<%
objrs.MoveNext
wend
objrs.Close
%>
</select>
</td>
</tr>-->
<tr bgcolor="#ffffff">
<td colspan=2 align=center>
<font face="verdana" size=2>
<input type="radio" name="stat" checked value=""> All Hoardings
<input type="radio" name="stat" value="free"> Vacant Hoardings
</font>
</td>
</tr>
</table>
</td> </tr>
</table>
<br>
<input type=submit value=" Search ">
</form>
</td>
</tr>
</table>
</center>
<!-- #include file="AdsBottom.asp" -->
</body>
</html>
<%
set objrs = nothing
%>
<!-- #include file="AdsCloseConn.asp" -->