Hi All,
I have an ASP schedule page which displays all records that are
scheduled for today's date.
I have written a drop-down list which allows selection of another
date, but I am totally stuck on how to display the records for the
new date selection.
I've messed around with code, but keep getting error messages, so
have reverted back to the original code which displays current date
records and drop-down date selection list.
If anyone could gently guide me on the code to process the query to
display the new selected date within the same page, I would be
eternally grateful!......
(Sorry for the very lengthy code, but didn't want to miss anything out!)
<%@Language=_vbscript LCID=2057%>
<!-- #Include file = "ADOVBS.INC" -->
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/inetpub/wwwroot/change control.mdb"
set rs=Server.CreateObject("ADODB.recordset")
' Set SQL statement
strSQL = "SELECT * FROM tblform WHERE DATE=NOW ORDER BY DATE ASC,
START ASC"
' Open Recordset Object
rs.Open strSQL,conn
%>
<%
datToday = Date()
showDay = Request.QueryString("day")
If showDay = 0 Then
showDay = Day(datToday)
End If
showMonth = Request.QueryString("month")
If showMonth = 0 Then
showMonth = Month(datToday)
End If
showYear = Request.QueryString("year")
If showYear = 0 Then
showYear = Year(datToday)
End If
%>
<HTML>
<HEAD><TITLE>CCF Schedule</TITLE></HEAD>
<CENTER>
<H2>
Date shown: <% Response.Write FormatDateTime(Date, vbShortDate) %>
</H2>
Select Another Date:
<FORM NAME="show_date">
<SELECT NAME="day">
<% For i = 1 to 31 %>
<% If i = Day(datToday) Then %>
<OPTION VALUE="<% = i %>" SELECTED><% = i %>
<% Else %>
<OPTION VALUE="<% = i %>"><% = i %>
<% End If %>
<% Next %>
</SELECT>
<SELECT NAME="month">
<% For i = 1 to 12 %>
<% If i = Month(datToday) Then %>
<OPTION VALUE="<% = i %>" SELECTED><% = MonthName(i) %>
<% Else %>
<OPTION VALUE="<% = i %>"><% = MonthName(i) %>
<% End If %>
<% Next %>
</SELECT>
<SELECT NAME="year">
<% For i = Year(datToday) to Year(datToday) + 5 %>
<% If i = Year(datToday) Then %>
<OPTION VALUE="<% = i %>" SELECTED><% = i %>
<% Else %>
<OPTION VALUE="<% = i %>"><% = i %>
<% End If %>
<% Next %>
</SELECT>
<INPUT TYPE=submit VALUE="Select">
</FORM>
<%
' Build a table here
Response.Write("<TABLE CELLSPACING=2 CELLPADDING=0 COLS=3 WIDTH=800
BGCOLOR=#F0F0FF>")
Response.Write("<TR>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=15%
BGCOLOR=#000080><B>CCF</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=15%
BGCOLOR=#000080><B>Type</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=15%
BGCOLOR=#000080><B>Date</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=15%
BGCOLOR=#000080><B>Start</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=65%
BGCOLOR=#000080><B>Summary</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=15%
BGCOLOR=#000080><B>Risk</B></TD>")
Response.Write("<TD ALIGN=CENTER VALIGN=TOP WIDTH=20%
BGCOLOR=#000080><B>Area</B></TD>")
Response.Write("</TR>")
Do While Not rs.EOF
Response.Write("<TR>")
Response.Write("<TD><a href=http://mail.yahoo.com/config/login?/""choose.asp?qryid=" &RS("CCF") & """>"
& RS("CCF") & "</a></TD>")
Response.Write("<TD>" & rs("Type") & "</TD>")
Response.Write("<TD>" & rs("Date") & "</TD>")
Response.Write("<TD>" & rs("Start") & "</TD>")
Response.Write("<TD>" & rs("Summary") & "</TD>")
Response.Write("<TD>" & rs("Risks") & "</TD>")
Response.Write("<TD>" & rs("Area") & "</TD>")
Response.Write("</TR>")
rs.MoveNext
Loop
rs.Close
Response.Write("</TABLE>")
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
