|
Eventi del <%=formatdatetime(request.QueryString("date"),1)%> |
|
<%
Dim theDAte,fromtime,toTime
theDate=request.querystring("date")
sql="SELECT * from events where dDate='" & theDate & "' order by whatTime Asc;"
set rs=cn.execute(sql)
if not rs.eof then
do until rs.eof
fromtime=rs.fields("whattime")
toTime=rs.fields("toWhattime")
if fromtime>=13 then
fromtime=fromtime-12 & ":00 PM"
else
fromtime=fromtime & ":00 AM"
end if
if toTime>=13 then
toTime=toTime-12 & ":00 PM"
else
toTime=toTime & ":00 AM"
end if
%>
<%="· " & fromTime & " to " & toTime & " - " & rs.fields("eventTitle")%> <%=rs.fields("event")%> <% rs.movenext loop else response.write "Non ci sono eventi da stampare GO BACK" end if rs.close set rs=nothing cn.close set cn=nothing %> |