HI,
I'm drawing out the contents of a calendar, and I need to allow for four days listings, but in many cases there are only listings for three days.
This results in a big blank space where the fourth day's listings would be...
Is there any way to get the asp to ignore the listings for that day if the fields are empty?
Here's my code:
===========
MyConn.Open(data_source)
strSQLVenue = "Select * FROM Venue WHERE Active = True ORDER BY End_Date ASC"
Set rsSQLVenue = MyConn.Execute(strSQLVenue
)
Do While Not rsSQLVenue.EOF
Start_Date = rsSQLVenue("Start_Date")
Start_Day = WeekDay(Start_Date)
End_Date = rsSQLVenue("End_Date")
End_Day = WeekDay(End_Date)
strSchedule = strSchedule&"<tr><td valign=top>"&"<b>"&rsSQLVe
nue("Venue
")&"</b>"&
"<br/>"&"(
"&rsSQLVen
ue("Venue2
")&")"&"</
td><td valign=top>"&"<b>"&DayName
(Start_Day
)&", "&DatePart("D",Start_Date)
&" "&MonthName(Month(Start_Da
te))&" - "&DayName(End_Day)&", "&DatePart("D",End_Date)&"
"&MonthName(Month(End_Date
))&"</b>"&
" "&"<br/>"&" "&"<br/>"&"<br/>"&rsSQLVen
ue("Date1"
)&"<br/>"&
"<br/>"&"<
a href='films.asp?ID="&rsSQL
Venue("Pic
1a")&"'>"&
rsSQLVenue
("Date1a")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<a
href='films.asp?ID="&rsSQL
Venue("Pic
1b")&"'>"&
rsSQLVenue
("Date1b")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
1c")&"'>"&
rsSQLVenue
("Date1c")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
1d")&"'>"&
rsSQLVenue
("Date1d")
&" &n
bsp;
"&"</a>"&"
<p> <
/p>"&rsSQL
Venue("Dat
e2")&"<br/
>"&"<br/>"
&"<a href='films.asp?ID="&rsSQL
Venue("Pic
2a")&"'>"&
rsSQLVenue
("Date2a")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<a
href='films.asp?ID="&rsSQL
Venue("Pic
2b")&"'>"&
rsSQLVenue
("Date2b")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
2c")&"'>"&
rsSQLVenue
("Date2c")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
2d")&"'>"&
rsSQLVenue
("Date2d")
&" &n
bsp;
"&"</a>"&"
<p> <
/p>"&rsSQL
Venue("Dat
e3")&"<br/
>"&"<br/>"
&"<a href='films.asp?ID="&rsSQL
Venue("Pic
3a")&"'>"&
rsSQLVenue
("Date3a")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<a
href='films.asp?ID="&rsSQL
Venue("Pic
3b")&"'>"&
rsSQLVenue
("Date3b")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
3c")&"'>"&
rsSQLVenue
("Date3c")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
3d")&"'>"&
rsSQLVenue
("Date3d")
&" &n
bsp;
"&"</a>"&"
<p> <
/p>"&rsSQL
Venue("Dat
e4")&"<br/
>"&"<br/>"
&"<a href='films.asp?ID="&rsSQL
Venue("Pic
4a")&"'>"&
rsSQLVenue
("Date4a")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<a
href='films.asp?ID="&rsSQL
Venue("Pic
4b")&"'>"&
rsSQLVenue
("Date4b")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
4c")&"'>"&
rsSQLVenue
("Date4c")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<a href='films.asp?ID="&rsSQL
Venue("Pic
4d")&"'>"&
rsSQLVenue
("Date4d")
&" &n
bsp;
"&"</a>"&"
<br/>"&"<b
r/>"&"<p>&
nbsp;</p>"
&"</td></t
r>"
rsSQLVenue.movenext
Loop
rsSQLVenue.Close()
Set rsSQLVenue = nothing
Set strSQLVenue = nothing
strSchedule = strSchedule&"</table>"
Start Free Trial