HoardId
Client Name
Select ClientName
<%
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%>
><%=rs(1)%> %>
<%
rs.MoveNext
wend
%>
Reserved From
<%
for i = 1 to 31
%>
selected<%end if%>> <%=i%>
<%
next
%>
<%
months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
for i = 1 to 12
%>
selected<%end if%>> <%=months(i)%>
<%
next
%>
" selected> <%=datepart("yyyy", date)%>
"> <%=datepart("yyyy", date)+1%>
"> <%=datepart("yyyy", date)+2%>
"> <%=datepart("yyyy", date)+3%>
TO
<%
for i = 1 to 31
%>
selected<%end if%>> <%=i%>
<%
next
%>
<%
months=split("Mon~Jan~Feb~Mar~Apr~May~Jun~Jul~Aug~Sep~Oct~Nov~Dec", "~")
for i = 1 to 12
%>
selected<%end if%>> <%=months(i)%>
<%
next
%>
" selected> <%=datepart("yyyy", date)%>
"> <%=datepart("yyyy", date)+1%>
"> <%=datepart("yyyy", date)+2%>
"> <%=datepart("yyyy", date)+3%>
TotalAmount RS.