Visse billede ud fra dato

Nu ved jeg ikke hvordan man formaterer dato'er i asp, emn du kunne vel blot gøre sådan her:
<img src="<%=date()%>.jpg" />

Og så kalde billederne <dato>.jpg

Du kunne evt lave følgende:
select case day(now):
case 1:
Response.Write("<img src=x.jpg>")
case 2:
Response.Write("<img src=x1.jpg>")
end select

Det kræver blot du har et billede til hver dag

Ellers sætter du

select case day(now) mod [antalbilleder + 1]:

SLUDDER!!!!
select case day(now) mod [antalbilleder]:

Men så SKAL du have en "case 0:" da eks. 30 mod 5 giver 0

altså ???

select case day(now) mod [antalbilleder]:
case 0:
Response.Write("<img src=x.jpg>")
case 1:
Response.Write("<img src=x1.jpg>")
end select

Ja og så i lige DETTE tilfælde vil det blive:

select case day(now) mod 2:
case 0:
Response.Write("<img src=x.jpg>")
case 1:
Response.Write("<img src=x1.jpg>")
end select

hmortensen >> Ja det kunne være godt, men tror ikke det funker da du ikke kan have et filnavn der hedder 11/1/2005.jpg (men det har du jo også skrevet :)

Du kunne formaterer datoen til 20050111, og så kalde billederne det.

Mht. den sidste så KUNNE man godt. Du kunne lave en replace(date, "/",""), men det er sgu lidt tungt :)

>>hmortensen: Men den er ikke så "brugervenlig" hvis man ikke har billeder til hele måneden. Den er helt klart nemmere hvis billedet kun skal bruges én dag, men hvis ikke giver det meget godarbejde hver gang du laver ændringer!

godarbejde = fodarbejde

Jeg forstår også spørgsmålet, som at spørger har 30/31 billder der skal vises

ok... jamen så er løsningen god nok. Men det kræver stadig at man omdøber alle billederne.

Hvis billederne ikke rigtig hedder noget praktisk endnu, er det jo ikke noget problem :)

fik lige fusket mig sammen til at lave hmortensens kode færdig...

<%
Function FormatDateNoSep(DateValue, yrDig)
    Dim strYYYY
    Dim strMM
    Dim strDD

        strYYYY = CStr(DatePart("yyyy", DateValue))
       
        if yrDig = 2 then strYYYY = Right(strYYYY, 2)


        strMM = CStr(DatePart("m", DateValue))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        strDD = CStr(DatePart("d", DateValue))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        FormatDateNoSep = strMM & strDD & strYYYY

End Function
%> 


<img src="<% = FormatDateNoSep(date(),2) %>.jpg" />

ved ikke om det kunne være skrevet lættere eller noget, men det virker :)

Det er jo perfekt - hvis du aldrig genbruger kode! Kom ikke og beklag dig når du skal bruge det en anden dag eller du flytter "broadcast" bare én dag. hehe ;)
Håber du kunne bruges vores input på den ene eller den anden måde. Held og lykke med det.

Takker... Du endte med at benytte min og ikke den du har skrevet ovenfor?

Jeg har brugt den jeg selv har bikset sammen, men havde ca. 600 point ude... så har accepteret alle svar der er giver.. (ved det måske ikke er helt rigtigt, men sådan er det gjort)

Kender det godt... så får dem som har svaret bare nogle point :)