Skift billede dagligt

kan du ikke bare gøre noget a'la det her.

<% 
if day(date)="1" then
    picture="billede1.gif"
elseif day(date)="2" then
    picture="billede2.gif"


elseif day(date)="12" then
    picture="billede12.gif"
else
    picture="defaultbillede.gif"
end if

response.write picture

%>

Der skal være en løkke der får den til at starte forfra.
Jeg tænkte også en løkke der tæller op til der ikke er flere billeder.
Ex.
Hvis #3 findes hvis billede
Hvis #3 ikke findes start forfra fra 1

det må du forklarer lidt nærmere.
Det eneste scriptet gør er at tjekke hvilken dag vi har, og så gør noget udfra det.

> I mappen ligger et antal billeder.
> Nu er der 15
> I morgen måske et andet antal.

Men der skal skiftes et billede hver dag.

> Idag vælges 1.jpg
> Imorgen 2.jpg
...osv.

Om 15 dage nåes sidste billede.

>Hvis sidste billede er nået skal der startes forfra fra billede 1.jpg

Håber at det hjalp

Så skal du kigge på noget fso (file system object) og tjekke om filen eksisterer.

OkOK
Mit sp. gik på om nogen havde et sådant script liggende ;)
Men det er øjensynligt the hard way.
Så det må jeg prøve

Set fso = CreateObject("Scripting.FileSystemObject")
If LEN(Application("Counter")) <= 0 Then
  Application("Counter") = 1
  Application("CounterDate") = Date()
End If
If Date > Application("CounterDate") Then
  If (fso.FileExists(Application("Counter") & ".jpg")) Then
      img = Application("Counter") & ".jpg"
      Application("Counter") = Application("Counter") + 1
  Else
      img = "1.jpg"
      Application("Counter") = 1
  End If
  Response.Write "<IMG SRC=""" & img & """>"
End If

Jeg har ikke testet det, men prøv, og ellers må du jo lige skrive igen.

Så lige, at jeg glemmer at opdatere dato variablen

Set fso = CreateObject("Scripting.FileSystemObject")
If LEN(Application("Counter")) <= 0 Then
  Application("Counter") = 1
  Application("CounterDate") = Date()
End If
If Date > Application("CounterDate") Then
  If (fso.FileExists(Application("Counter") & ".jpg")) Then
      img = Application("Counter") & ".jpg"
      Application("Counter") = Application("Counter") + 1
  Else
      img = "1.jpg"
      Application("Counter") = 1
  End If
  Application("CounterDate") = Date()
  Response.Write "<IMG SRC=""" & img & """>"
End If

Og så skal du nok lige lave følgende om:

  Else
      img = "1.jpg"
      Application("Counter") = 1
  End If

til

  Else
      img = "1.jpg"
      Application("Counter") = 2
  End If

et færdig script: http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=62