IF-sats kopplad till klockslag

Kanske så här:

<%
Dim Tid
Tid = Left(Time(),5)

If Tid = "16:00" Then
'skriv
ElseIf Tid = "17:00" Then
'skriv
ElseIf Tid = "23:00" Then
'mer
End If
%>

det funkar säkert!
thanks!

Eeeeller varför inte Javascript? Enklare:

<script language="JavaScript" type="text/javascript">
<!-- Begin
day = new Date()
hr = day.getHours()

if  ((hr == 23) || (hr == 0) || (hr == 1) || (hr == 2) || (hr == 3) || (hr == 4) || (hr == 5) || (hr == 6))
  document.write("God natt!")

if ((hr == 7) || (hr == 8) || (hr == 9) || (hr == 10) || (hr == 11))
  document.write("God morgon!")

if ((hr == 12) || (hr == 13) || (hr == 14) || (hr == 15) || (hr == 16)) 
  document.write("God eftermiddag!")

if ((hr == 17) || (hr == 18) || (hr == 19) || (hr == 20) || (hr == 21) || (hr == 22))
  document.write("God kväll!") 
// End -->
</script>

/r Tusan, min nedlagda sajt är verkligen bra att ha ibland. :)

hur skulle den senaste se ut i asp?

<%
Dim Tid
Tid = Left(Time(),2)

If Tid = 23 or Tid = 24 or Tid = 00 or Tid = 01 or Tid = 02 or Tid = 03 or Tid = 04 or Tid = 05 or Tid = 06 Then 
Response.write "God natt!" 
elseif Tid = 07 or Tid = 08 or Tid = 09 or Tid = 10 or Tid = 11 Then  
Response.write "God morgon!" 
elseif Tid = 12 or Tid = 13 or Tid = 14 or Tid = 15 or Tid = 16 Then
Response.write "God Eftermiddag!"
else 
Response.write "God Kväll!"
End If
%>

Eller så här kanske:

<%
Tid = Time() 
timeDiff=datediff("h","00:00:00",Tid)
   if timeDiff =< 6 or timeDiff = 23 then
Response.write "God natt!"
     elseif timeDiff =< 11 then
Response.write "God morgon!"
     elseif timeDiff =< 16 then
Response.write "God Eftermiddag!"
     else
Response.write "God Kväll!"
     end if 
%>

Eller varför inte en select case i detta fall?

<%
Dim Tid
Tid = Left(Time(),2) ' Timmen
Select case Tid
case "23", "00", "01", "02", "03", "04"
response.write("NAttiNatti!")
case else 
response.write("Hoppas du är uppe!")
end select
%>

or Tid = 24 or Tid = 00

tihi ;)

Sen är det kanske bra att känna till att det är en dödssynd i alla programmeringssammanhang att använda strängfunktioner på datumtyper. Vad händer med Left(Time(),2) om datorns inställda tidformat inte är "hh:mm" utan kanske "h:mm", eller nåt helt annat?

Folk som kodar så i seriösa sammanhang brukar få sparken eller försvinna spårlöst ..

<%
Dim Tid
Tid = Hour(Time())
' osv

Nåja niko, nu skall vi inte överdramatisera. ;)

Nåja niko, nu skall vi inte överdramatisera.

Om du någon varit tvungen att felsöka 10000-radiga applikationer som fungerar "olika" beroende på vem som är inloggad eller vilken maskin de körs på, så hade du insett att min formulering var medvetet mild. :OO

Jag är mycket väl medveten om hur slarviga applikationer kan ställa till problem för utvecklare som skall in och gröta i dem senare. Faktum är att jag gjorde det för bara ett par veckor sedan. En webbshop med en egen tabell för varje produkt, och det var ändå, som du säger 'medvetet milt uttryckt'. Skrotade hela skiten och började om. :OO

Sysslar man med en sådan '10000-radig' applikation dock, så skall man nog veta vad man pysslar med, annars är det snarare fel på er rektyteringsavdelning än era utvecklare, om du förstår vad jag menar. ;)