|
Rapporto intervento : <%=formatdatetime(request.QueryString("date"),1)%> |
|
<%
Dim theDAte,fromtime,toTime, timeimp
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")
timeimp=toTime-fromtime
' if fromtime>=13 then
' fromtime=fromtime-12 & ":00 PM"
' else
fromtime=fromtime & ":00 "
' end if
' if toTime>=13 then
' toTime=toTime-12 & ":00 PM"
' else
toTime=toTime & ":00 "
' end if
%>
<%=" Spett.le " & 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 %> |
| Intervento : ore
<%=timeimp%> |
Timbro e firma Cliente