ASP Script som kan vise når der er telefontid.

activedeveloper.dk

Telefontid er vel et vidt begreb - ud fra hvad?

VAR = "green"
If Weekday(Date(), vbMonday) < 6 And Hour(Date()) > 8 And Hour(Date() < 16) Then
  VAR = "red"
End If

Response.Write "<img src=""" & VAR & ".gif"" alt="""" />"

Hej keysersoze

Undskyld jeg fik ikke formuleret mig korrekt.

Jeg har 2 forskellige jpeg filer en med en grøn farve og en med en rød farve, disse skal lyse alt efter om der er telefontid eller ej grøn for åben og rød for lukket.

Der skal være åben grønt lys fra kl. 08:00 til kl. 20:00 alle dage, herefter skal der lukkes ned og skifte til rødt lys.

Håber det gav bedre mening.

i så fald vil mit forslag formentlig virke - du skal bare tilpasse tidspunkterne.

Tak igen keysersoze

Jeg er ikke den store haj til programmering endnu, men har prøvet at arbejde med dit forslag - dog uden held.

Jeg prøver lige at forklare det igen.

Jeg har to jpg filer som hedder følgende green.jpg & red.jpg

Der skal være rødt lys på min forside når i mellem kl. 20:00-08:00

Der skal være grønt lys på siden i mellem kl. 08:00-20:00 og dette gælder alle dage.

jeg har de 2 jpg liggende i en mappe kaldet foto

Hvordan skal koden se ud ?

Al begyndelse er jo svær, så det ville være stor hjælp hvis du hjalp mig lidt.

jeg vil hellere høre hvad der sker/ikke sker med den kode jeg har givet - efter at du har rettet gif til jpg og sti til billederne.

Jeg har gjort følgende:

<%
VAR = "boksonline.gif"
If Weekday(Date(), vbMonday) < 6 And Hour(Date()) > 8 And Hour(Date() < 20) Then
VAR = "boksoffline.gif"
End If

Response.Write "<img src="boksonline.gif"" & VAR & "boksoffline.gif"" alt="""" />"
%>

Serveren returnerer med http 500 Serverfejl

Billederne ligger nu i roden hvor min test.asp side også ligger.

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

så får du en fejlbesked du kan bruge til noget.

Men du har i hvert fald fejl i dit img-tag

Response.Write "<img src=""/foto/" & VAR & """ alt="""" />"

Nu virker det næsten, der er kommet en grøn icon frem, men den røde kommer ikke når tiden er overskredet.

If Weekday(Date(), vbMonday) < 6 And Hour(Now()) > 8 And Hour(Now()) < 20 Then

Så virker det - og mange tak for hjælpen keysersoze - læg lige et svar så du kan få dine velfortjente point.

svar :)