" & vbCrLf
' If the event lasts more than one day, indidate the start and end dates
If Rs("Start_Date") <> Rs("End_Date") Then
Response.Write "Starts: " & Rs("Start_Date") & vbCrLf
Response.Write " Ends: " & Rs("End_Date") & vbCrLf
Response.Write ""
End If
' Print the event details
Response.Write "" & vbCrLf
Response.Write Replace(Rs("Event_Details") & " ", vbCrLf, " ") & vbCrLf
Response.Write " |
" & vbCrLf
Response.Write "