Dato side

www.activeserverpages.dk <- Der er et julekalender system :-)

Kan du ikke lave det som en løkke

Jeg skal bruge et færdigt script

Her er en kalender der regner dato\'erne ud dag for dag, så kan du måske sætte et mindre script til at sætte billeder ind efter det.
<%
Dim man,tirs,ons,tors,fre,lor,son,idag
idag = Date
if DatePart(\"w\",idag) = 2 Then
man = idag
tirs = idag + 1
ons = idag + 2
tors = idag + 3
fre = idag + 4
lor = idag + 5
son = idag + 6
else
    if DatePart(\"w\",idag) = 3 Then
    man = idag + 6
    tirs = idag
    ons = idag + 1
    tors = idag + 2
    fre = idag + 3
    lor = idag + 4
    son = idag + 5
    else
        if DatePart(\"w\",idag) = 4 Then
        man = idag + 5
        tirs = idag + 6
        ons = idag
        tors = idag + 1
        fre = idag + 2
        lor = idag + 3
        son = idag + 4
        else
            if DatePart(\"w\",idag) = 5 Then
            man = idag + 4
            tirs = idag + 5
            ons = idag + 6
            tors = idag
            fre = idag + 1
            lor = idag + 2
            son = idag + 3
            else
                if DatePart(\"w\",idag) = 6 Then
                man = idag + 3
                tirs = idag + 4
                ons = idag + 5
                tors = idag + 6
                fre = idag
                lor = idag + 1
                son = idag + 2
                else
                    if DatePart(\"w\",idag) = 7 Then
                    man = idag + 2
                    tirs = idag + 3
                    ons = idag + 4
                    tors = idag + 5
                    fre = idag + 6
                    lor = idag
                    son = idag + 1
                    else
                        man = idag + 1
                        tirs = idag + 2
                        ons = idag + 3
                        tors = idag + 4
                        fre = idag + 5
                        lor = idag + 6
                        son = idag
                       
        end if
            end if
                end if
                    end if
                        end if
                            end if
<% response.write \"Mandag : \" & man & \"<br>\" %><% response.write \"Mandag : \" & tirs & \"<br>\" %><% response.write \"Mandag : \" & ons & \"<br>\" %><% response.write \"Mandag : \" & tors & \"<br>\" %><% response.write \"Mandag : \" & fre & \"<br>\" %><% response.write \"Mandag : \" & lor & \"<br>\" %><% response.write \"Mandag : \" & son & \"<br>\" %>

HAllo der skal ændres for meget.

jeg skal bruge et færdigt script.

Yowza yowza!

Når nu det er i december at du vil flashe fede pix til drengene, skal scriptet sikkert kun gå til 24, men for max viewing pleasure køre dette script hele december:

Made exclusively by 2fyrefrabrande - keep it real!

<%

dim tha_date, tha_pix
\' tha_date = datoen
\' tha_pix = navnet på dit pix (ex. \"jule2.jpg\")
tha_date = day(time())

select case tha_date
    case 1
      tha_pix = \"jule1.jpg\"
    case 2
      tha_pix = \"jule2.jpg\"
    case 3
      tha_pix = \"jule3.jpg\"
    case 4
      tha_pix = \"jule4.jpg\"
    case 5
      tha_pix = \"jule5.jpg\"
    case 6
      tha_pix = \"jule6.jpg\"
    case 7
      tha_pix = \"jule7.jpg\"
    case 8
      tha_pix = \"jule8.jpg\"
    case 9
      tha_pix = \"jule9.jpg\"
    case 10
      tha_pix = \"jule10.jpg\"
    case 11
      tha_pix = \"jule11.jpg\"
    case 12
      tha_pix = \"jule12.jpg\"
    case 13
      tha_pix = \"jule13.jpg\"
    case 14
      tha_pix = \"jule14.jpg\"
    case 15
      tha_pix = \"jule15.jpg\"
    case 16
      tha_pix = \"jule16.jpg\"
    case 17
      tha_pix = \"jule17.jpg\"
    case 18
      tha_pix = \"jule18.jpg\"
    case 19
      tha_pix = \"jule19.jpg\"
    case 20
      tha_pix = \"jule20.jpg\"
    case 21
      tha_pix = \"jule21.jpg\"
    case 22
      tha_pix = \"jule22.jpg\"
    case 23
      tha_pix = \"jule23.jpg\"
    case 24
      tha_pix = \"jule24.jpg\"
    case 25
      tha_pix = \"jule25.jpg\"
    case 26
      tha_pix = \"jule26.jpg\"
    case 27
      tha_pix = \"jule27.jpg\"
    case 28
      tha_pix = \"jule28.jpg\"
    case 29
      tha_pix = \"jule29.jpg\"
    case 30
      tha_pix = \"jule30.jpg\"
    case 31
      tha_pix = \"keepitreal.jpg\"

end select

%>

<img src=\"<%=tha_pix%>\">

Så fyr bare scriptet ind og du skal få et fedt nyt billede at chille ud til hver dag.

Showin\' them pix...

http://www.2fyrefrabrande.dk

<%= \"<img src=jule\" & left(date(),2) & \".jpg>\" %>

<%

mode=Request.QueryString(\"mode\")

Function ConvertDate(dtmDate,id)

if mode=\"\" then
Months = right(\"00\" & DatePart(\"m\", dtmDate) ,2)
Days = right(\"00\" & DatePart(\"d\", dtmDate) ,2)

OutDate = DatePart(\"yyyy\", dtmDate) & Months & id

OutDate= Replace(OutDate,\"1\",\"X\")
OutDate= Replace(OutDate,\"2\",\"Y\")
OutDate= Replace(OutDate,\"3\",\"Z\")
OutDate= Replace(OutDate,\"4\",\"_\")
OutDate= Replace(OutDate,\"6\",\"-\")
OutDate= Replace(OutDate,\"7\",\"F\")
OutDate= Replace(OutDate,\"8\",\"C\")
OutDate= Replace(OutDate,\"9\",\"K\")


if Months=\"12\" AND Days >= id then
ConvertDate =  \"<a href=\" & chr(34) & \"default.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

Response.redirect(\"jule\" & day(rs(\"Dato\")) & \".jpg\")

End if
%>



<style type=\"text/css\">

body{

}

table,td,tr{
border-color: #000000
}
</style>
</head>
<body>

<table width=100% summary=\"jul\" cellpadding=2 cellspacing=2 border=1 background=\"snowysunset800.jpg\" height=\"100%\">

<tr>

<td align=\"center\"><% =ConvertDate(now,\"01\")%></td><td align=\"center\"><% =ConvertDate(now,\"02\")%></td><td align=\"center\"><% =ConvertDate(now,\"03\")%></td><td align=\"center\"><% =ConvertDate(now,\"04\")%></td><td align=\"center\"><% =ConvertDate(now,\"05\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"06\")%></td><td align=\"center\"><% =ConvertDate(now,\"07\")%></td><td align=\"center\"><% =ConvertDate(now,\"08\")%></td><td align=\"center\"><% =ConvertDate(now,\"09\")%></td><td align=\"center\"><% =ConvertDate(now,\"10\")%></td>

<tr>

<td align=\"center\"><% =ConvertDate(now,\"11\")%></td><td align=\"center\"><% =ConvertDate(now,\"12\")%></td><td align=\"center\"><% =ConvertDate(now,\"13\")%></td><td align=\"center\"><% =ConvertDate(now,\"14\")%></td><td align=\"center\"><% =ConvertDate(now,\"15\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"16\")%></td><td align=\"center\"><% =ConvertDate(now,\"17\")%></td><td align=\"center\"><% =ConvertDate(now,\"18\")%></td><td align=\"center\"><% =ConvertDate(now,\"19\")%></td><td align=\"center\"><% =ConvertDate(now,\"20\")%></td>

</tr>
<tr>
<td align=\"center\"><% =ConvertDate(now,\"21\")%></td><td align=\"center\"><% =ConvertDate(now,\"22\")%></td><td align=\"center\"><% =ConvertDate(now,\"23\")%></td><td align=\"center\"><% =ConvertDate(now,\"24\")%></td><td>&nbsp;</td>

</tr>
</table>

en lille rettelse:
<%

mode=Request.QueryString(\"mode\")

Function ConvertDate(dtmDate,id)

if mode=\"\" then
Months = right(\"00\" & DatePart(\"m\", dtmDate) ,2)
Days = right(\"00\" & DatePart(\"d\", dtmDate) ,2)

OutDate = DatePart(\"yyyy\", dtmDate) & Months & id

OutDate= Replace(OutDate,\"1\",\"X\")
OutDate= Replace(OutDate,\"2\",\"Y\")
OutDate= Replace(OutDate,\"3\",\"Z\")
OutDate= Replace(OutDate,\"4\",\"_\")
OutDate= Replace(OutDate,\"6\",\"-\")
OutDate= Replace(OutDate,\"7\",\"F\")
OutDate= Replace(OutDate,\"8\",\"C\")
OutDate= Replace(OutDate,\"9\",\"K\")


if Months=\"12\" AND Days >= id then
ConvertDate =  \"<a href=jule\"\" & day(rs(\"Dato\")) & \".jpg\">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

Response.redirect(\"jule\" & day(rs(\"Dato\")) & \".jpg\")

End if
%>



<style type=\"text/css\">

body{

}

table,td,tr{
border-color: #000000
}
</style>
</head>
<body>

<table width=100% summary=\"jul\" cellpadding=2 cellspacing=2 border=1 background=\"snowysunset800.jpg\" height=\"100%\">

<tr>

<td align=\"center\"><% =ConvertDate(now,\"01\")%></td><td align=\"center\"><% =ConvertDate(now,\"02\")%></td><td align=\"center\"><% =ConvertDate(now,\"03\")%></td><td align=\"center\"><% =ConvertDate(now,\"04\")%></td><td align=\"center\"><% =ConvertDate(now,\"05\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"06\")%></td><td align=\"center\"><% =ConvertDate(now,\"07\")%></td><td align=\"center\"><% =ConvertDate(now,\"08\")%></td><td align=\"center\"><% =ConvertDate(now,\"09\")%></td><td align=\"center\"><% =ConvertDate(now,\"10\")%></td>

<tr>

<td align=\"center\"><% =ConvertDate(now,\"11\")%></td><td align=\"center\"><% =ConvertDate(now,\"12\")%></td><td align=\"center\"><% =ConvertDate(now,\"13\")%></td><td align=\"center\"><% =ConvertDate(now,\"14\")%></td><td align=\"center\"><% =ConvertDate(now,\"15\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"16\")%></td><td align=\"center\"><% =ConvertDate(now,\"17\")%></td><td align=\"center\"><% =ConvertDate(now,\"18\")%></td><td align=\"center\"><% =ConvertDate(now,\"19\")%></td><td align=\"center\"><% =ConvertDate(now,\"20\")%></td>

</tr>
<tr>
<td align=\"center\"><% =ConvertDate(now,\"21\")%></td><td align=\"center\"><% =ConvertDate(now,\"22\")%></td><td align=\"center\"><% =ConvertDate(now,\"23\")%></td><td align=\"center\"><% =ConvertDate(now,\"24\")%></td><td>&nbsp;</td>

</tr>
</table>

det kan nemt laves om til hele måneden!

SORRY nu spammer jeg virkelig det her spørgsmål men jeg må jo få det til at virke:

<%

mode=Request.QueryString(\"mode\")

Function ConvertDate(dtmDate,id)

if mode=\"\" then
Months = right(\"00\" & DatePart(\"m\", dtmDate) ,2)
Days = right(\"00\" & DatePart(\"d\", dtmDate) ,2)

OutDate = DatePart(\"yyyy\", dtmDate) & Months & id

OutDate= Replace(OutDate,\"1\",\"X\")
OutDate= Replace(OutDate,\"2\",\"Y\")
OutDate= Replace(OutDate,\"3\",\"Z\")
OutDate= Replace(OutDate,\"4\",\"_\")
OutDate= Replace(OutDate,\"6\",\"-\")
OutDate= Replace(OutDate,\"7\",\"F\")
OutDate= Replace(OutDate,\"8\",\"C\")
OutDate= Replace(OutDate,\"9\",\"K\")


if Months=\"12\" AND Days >= id then
ConvertDate =  \"<a href=\'jule\" & id & \".jpg\'>\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

Response.redirect(\"jule\" & id & \".jpg\")

End if
%>



<style type=\"text/css\">

body{

}

table,td,tr{
border-color: #000000
}
</style>
</head>
<body>

<table width=100% summary=\"jul\" cellpadding=2 cellspacing=2 border=1 background=\"snowysunset800.jpg\" height=\"100%\">

<tr>

<td align=\"center\"><% =ConvertDate(now,\"01\")%></td><td align=\"center\"><% =ConvertDate(now,\"02\")%></td><td align=\"center\"><% =ConvertDate(now,\"03\")%></td><td align=\"center\"><% =ConvertDate(now,\"04\")%></td><td align=\"center\"><% =ConvertDate(now,\"05\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"06\")%></td><td align=\"center\"><% =ConvertDate(now,\"07\")%></td><td align=\"center\"><% =ConvertDate(now,\"08\")%></td><td align=\"center\"><% =ConvertDate(now,\"09\")%></td><td align=\"center\"><% =ConvertDate(now,\"10\")%></td>

<tr>

<td align=\"center\"><% =ConvertDate(now,\"11\")%></td><td align=\"center\"><% =ConvertDate(now,\"12\")%></td><td align=\"center\"><% =ConvertDate(now,\"13\")%></td><td align=\"center\"><% =ConvertDate(now,\"14\")%></td><td align=\"center\"><% =ConvertDate(now,\"15\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"16\")%></td><td align=\"center\"><% =ConvertDate(now,\"17\")%></td><td align=\"center\"><% =ConvertDate(now,\"18\")%></td><td align=\"center\"><% =ConvertDate(now,\"19\")%></td><td align=\"center\"><% =ConvertDate(now,\"20\")%></td>

</tr>
<tr>
<td align=\"center\"><% =ConvertDate(now,\"21\")%></td><td align=\"center\"><% =ConvertDate(now,\"22\")%></td><td align=\"center\"><% =ConvertDate(now,\"23\")%></td><td align=\"center\"><% =ConvertDate(now,\"24\")%></td><td>&nbsp;</td>

</tr>
</table>

Denne viser et nyt billede fra d.1-12 til den 24-12 (jul1.jpg, jul2.jpg...) hvis du vil vise efter d. 24, så ret 25.

<%
if month(now) > 11 AND day(now) < 25 then
Response.Write \"<p><img border=\"\"0\"\" src=\"\"jul\" & day(now) & \".jpg\"\"></p>\"
end if
%>

Tak baltic jeg brugte dit script !!