Jag laddar upp data till en hemsida varje minut. Om uppladdningen är 15 minuter eller äldre, vill jag skicka vidare till en annan sida.
Ex. senaste uppdateringen är gjord 15:32 och nuvarande tid är 16:02, så ska jag skicka vidare till fel.asp. Är senaste uppdateringen gjord 15:32 och nuvarande tid är 15:35, så ska jag skicka vidare till index.asp.
<%
Dim ttMin, ttTid, ttid1, ttid2
ttMin = Cint((DateDiff("n", "0:00", FormatDateTime(Now,4)) - DateDiff("n", "0:00", "18:12")))
ttTid = ((ttMin- (ttMin MOD 60))/60) & ":" & Right("0" & (ttMin MOD 60),2)
If ttTid <= "00:15" Then
Response.Redirect "index.asp"
Else
Response.Redirect "fel.asp"
End If
%>
Jag provade att sätta <% Response.Buffer=true %>, men då skickas man vidare till "fel.asp" på en gång.
Jag förstår inte riktigt varför du vill göra om det till "00:15", borde ju bli fel då eftersom det tolkas som text och inte tid. Använd DateDiff direkt istället.
<%
vTid1 = #2011-08-23 21:30#
vTid2 = now()
IF DateDiff("n", vTid1, vTid2) < 15 THEN
Response.Redirect "index.asp"
ELSE
Response.Redirect "fel.asp"
END IF
%>
<%
DIM ttMin
ttMin = Cint((DateDiff("n", "0:00", FormatDateTime(Now,4)) - DateDiff("n", "0:00", "12:00")))
IF ttMin <= 15 THEN
Response.Redirect "index.asp"
ELSE
Response.Redirect "fel.asp"
END IF
%>