home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
202.53.64.216
/
202.53.64.216.tar
/
202.53.64.216
/
janahitha
/
Admin
/
AdsAdminAccBookingHoard.asp
< prev
next >
Wrap
Text File
|
2004-11-26
|
6KB
|
160 lines
<% Response.Buffer =true%>
<!-- #include file="../AdsOpenConn.asp" -->
<%
if session("AdminLogin")="" then Response.Redirect "default.asp"
%>
<%
dim hid
hid=Request.Form("hid")
'if request.form.count=0 then
if hid="" then
%>
<html>
<head>
<title> Janahitha Ads - New Registration </title>
<meta name="author" content="Jagadish,Gopi">
<script language="javascript" src="../func.js"></script>
<script language="javascript">
function check()
{
validateform = document.registrationform;
if(isempty(validateform.name))
validateform.name.focus();
else
if(isempty(validateform.hid))
validateform.hid.focus();
else
if(isnum(validateform.tamount))
validateform.tamount.focus();
else
validateform.submit();
}
</script>
</head>
<body bottommargin=0 topmargin=0 leftmargin=0 rightmargin=0 marginheight=0 marginwidth=0 bgcolor=#ffffff>
<p> </p>
<p align=right><font face=verdana size=2> <a href="AdsAdminHome.asp"><font color="<%=TopLinksColor%>">Home</font></a> <a href="AdsAdminHome.asp?lo"><font color="<%=TopLinksColor%>">Logout</font></a> </font></p>
<center>
<form name="registrationform" method=post action="<%=request.servervariables("script_name")%>">
<font face="verdana" color="#99603E"> <b> Hoarding Reservation </b> </font> <br> <br>
<table cellpadding=0 cellspacing=0 border=0>
<tr> <td bgcolor="#f2D197">
<table cellspacing=1 cellpadding=3 border=0 width=430>
<tr bgcolor="#ffffff">
<td> <font face="verdana" size=2> HoardId </font> </td>
<td> <input type=text name="hid" size="15" maxlength=200> </td>
</tr>
<tr bgcolor="#ffffff">
<td> <font face="verdana" size=2> Client Name </font> </td>
<td><select name=name><option value="">Select ClientName</option>
<%
dim rs
set rs = server.CreateObject("adodb.recordset")
sql="select accid,clientname from AccClientDetails where clientstatus=yes"
rs.open sql, con, 3, 3
while not rs.eof%>
<option value=<%=rs(0)%>><%=rs(1)%></option> %>
<%
rs.MoveNext
wend
%>
</select>
</tr>
<tr bgcolor="#ffffff">
<td> <font face="verdana" size=2>Reserved From </font> </td>
<td>
<select name="fromdd">
<%
for i = 1 to 31
%>
<option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
<%
next
%>
</select>
<select name="frommm">
<%
months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
for i = 1 to 12
%>
<option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
<%
next
%>
</select>
<select name="fromyyyy">
<option value="<%=datepart("yyyy", date)%>" selected> <%=datepart("yyyy", date)%>
<option value="<%=datepart("yyyy", date)+1%>"> <%=datepart("yyyy", date)+1%>
<option value="<%=datepart("yyyy", date)+2%>"> <%=datepart("yyyy", date)+2%>
<option value="<%=datepart("yyyy", date)+3%>"> <%=datepart("yyyy", date)+3%>
</select>
</td>
</tr>
<tr bgcolor="#ffffff">
<td> <font face="verdana" size=2> TO </font> </td>
<td>
<select name="todd">
<%
for i = 1 to 31
%>
<option value="<%=i%>" <%if i=datepart("d", date) then%>selected<%end if%>> <%=i%>
<%
next
%>
</select>
<select name="tomm">
<%
months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
for i = 1 to 12
%>
<option value="<%=i%>" <%if i=datepart("m", date) then%>selected<%end if%>> <%=months(i)%>
<%
next
%>
</select>
<select name="toyyyy">
<option value="<%=datepart("yyyy", date)%>" selected> <%=datepart("yyyy", date)%>
<option value="<%=datepart("yyyy", date)+1%>"> <%=datepart("yyyy", date)+1%>
<option value="<%=datepart("yyyy", date)+2%>"> <%=datepart("yyyy", date)+2%>
<option value="<%=datepart("yyyy", date)+3%>"> <%=datepart("yyyy", date)+3%>
</select>
</td>
</tr>
<tr bgcolor="#ffffff">
<td> <font face="verdana" size=2> TotalAmount RS.</font> </td>
<td> <input type=text name="tamount" size="15" maxlength=6> </td>
</tr>
<tr bgcolor="#ffffff"><td><input type=button onclick="javascript:check()" value=" Reserve " id=button1 name=button1></td><td></td></tr>
</table>
</table>
</form>
</center>
</body>
</html>
<%
else
name = replace(trim(request.form("name")), "'", "''")
hid = replace(trim(request.form("hid")), "'", "''")
fromdate = replace(trim(request.form("fromdd")), "'", "''")+"/"+replace(trim(request.form("frommm")), "'", "''")+"/"+replace(trim(request.form("fromyyyy")), "'", "''")
todate = replace(trim(request.form("todd")), "'", "''")+"/"+replace(trim(request.form("tomm")), "'", "''")+"/"+replace(trim(request.form("toyyyy")), "'", "''")
tamount = replace(trim(request.form("tamount")), "'", "''")
sql1 = "insert into AccBookingHoard(accid,Hoardid,Reservedfrom, Reservedto,TotalAmount)values(" & name & "," & hid & ", '" & fromdate & "', '" & todate + "', " & tamount&")"
Response.Write sql1
con.execute sql1
sql1="update hoardingmaster set HoardingStatus=0"
con.execute sql1
response.redirect "AdsAdminAccBookingHoard.asp"
end if
%>
<!-- #include file="../AdsCloseConn.asp" -->