you can put an image spacer in there like this
<tr>
<td><img src="/images/" height="25" width="0"></td>
<td>put stuff here</td>
</tr>
but doing it this way you will have to manually create the output of the table like this:
Dim strResultsHolder As String
strResultsHolder = "<table width=""97%"" border=""1"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
strResultsHolder &= "<tr>"
strResultsHolder &= "<th bgcolor=""#C0C0C0"" width=""60"">Date</th>" & _
"<th bgcolor=""#C0C0C0"">Event</th>" & _
"<th bgcolor=""#C0C0C0"">Time</th>" & _
"<th bgcolor=""#C0C0C0"" width=""110"">Location</th>" & _
"</tr>"
Dim r As DataRow
Dim curdate, curmonth
Dim dates
curdate = objDataSet.Tables(0).Rows(0)(0).ToString()
curmonth = MonthName(DatePart("m", curdate)) & " " & DatePart("yyyy", curdate)
strResultsHolder &= "<tr><td colspan=""4"" bgcolor=""#99CCFF"">" & curmonth & "</td></tr>"
For Each r In objDataSet.Tables(0).Rows
If curmonth <> MonthName(DatePart("m", r("event_date"))) & " " & DatePart("yyyy", r("event_date")) Then
curmonth = MonthName(DatePart("m", r("event_date"))) & " " & DatePart("yyyy", r("event_date"))
strResultsHolder &= "<tr><td colspan=""4"" bgcolor=""#99CCFF"">" & curmonth & "</td></tr>"
Else
End If
dates = WeekdayName(DatePart("w", r("Event_date")), True) & ", " & DatePart("d", r("Event_date"))
strResultsHolder &= "<tr><td>" & dates & "</td>" & _
"<td>" & r("event") & "</td>" & _
"<td>" & r("event_time") & " </td>" & _
"<td>" & r("location") & " </td>" & _
"</tr>"
Next
strResultsHolder &= "</table>"
display.InnerHtml = strResultsHolder
|