Julekalender2

tak for det . .. .

Øhh... Hvad?

Hvad sker der her ??

Mafia agtigt ;)

Spørgsmål og point er oprettet for ps

...sp :o)

Ved ikke hvad der sker . .synes bare jeg ville kommentere det da det var så flot forklaret ;o)

...det er en fortsættelse af:

http://www.eksperten.dk/spm/33902

:o)

Efter lidt tankevirksomhed har jeg lavet dette:

<%
Function ConvertDate(dtmDate,id)
\' intFormat kan have 2 værdier. 0 eller 1
\' 0 = Returnerer dato og tid
\' 1 = Returnerer kun dato

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

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




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

End Function



%>

Låge <% =ConvertDate(now,\"26\") %>
Her er låge -nummer: 26.

Du skriver:

<% =ConvertDate(NOW,laagenummer)%>

Er id = dag så laver den et link. Er den ikke så skriver den bare id, altså nummeret!

Altså f.eks. kan du lave et table og indsætte
<% =ConvertDate(NOW,\"1\")%>
<% =ConvertDate(NOW,\"2\")%>
<% =ConvertDate(NOW,\"3\")%>
osv.
Husk \"-tegnene og at filen skal være ASP;-)

God fornøjelse

vh Søren Peter

Glemte lige at slette den gamle kommentar med intformat, som jo ikke bruges mere...

D.v.s.:
\' intFormat kan have 2 værdier. 0 eller 1
\' 0 = Returnerer dato og tid
\' 1 = Returnerer kun dato

Og forresten har jeg testet dette eksempel med Months=\"11\" og Days=\"26\"(idag).
Du skal ændre Months til \"12\"
Altså:

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

mindre script end jeg troede:-)

klaes>> Griner over din humor!

øøhh klas ikke klaes..

Er du ikke klar over det, så laver ConvertDate-strengen(hvis datoen tillader det) link til en ASP-side. Du kan selv ændre det til andet inde i linket...

Skær ud i pap;-)
for jpg:

ConvertDate =  \"<a href=\" & chr(34) & OutDate & \".jpg\" & chr(34) & \">\" & id & \"</a>\"

for htm:

ConvertDate =  \"<a href=\" & chr(34) & OutDate & \".htm\" & chr(34) & \">\" & id & \"</a>\"

Jeg tænker på at udvide scriptet med endnu mere kode, så det bliver \"snyde -sikret\".

Det vil jeg kigge på imorgen.
Eller måske nærmere når jeg står op... Det er jo imorgen nu!
Og det var det man kan bruge:
Request.QueryString til :-)

Søren

Hej sp

Har ikke kigget på det endnu, kommer senere. Der er travlt her til morgen.

...glæder mig til dine anmodninger og forespørgsler :o)

lytter lige med !

Det kræver en del mere at få den mere sikker end denne, men det er ihvertfald ikke ligetil at finde ud af URL\'s til de forskellige billeder/filer.
Ganske vist kan man prøve at knække koden, men på et eller andet tidspunkt kan det være op til den besøgende selv om personen vil misbruge det eller ej.
vh Søren Peter
<%

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 & Days

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=\"11\" AND Days = id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.clear
Response.redirect(mode &\".asp\")
End if
%>
Låge <% =ConvertDate(now,\"26\") %><br>
Låge <% =ConvertDate(now,\"27\") %>

Hej Søren Peter!

Jeg lavede i går en \"julekalender.asp\". I dag har jeg kopieret ovenstående tekst og sat det direkte ind i samme mappe, bare med navnet \"julekalender1.asp\". Låge 27 er så det eneste aktive link. Når jeg trykker på det, ryger jeg direkte over til \"julekalender.asp\". Kan du ikke give mig en idiotsikker brugervejledning. \"Med højre hånds pege- og tommelfinger tager du....\"

Efter Response.clear
kommer linjen:
Response.redirect(mode &\".asp\")
Her skulle outputtet fra scriptet samt endelsen danne den fil du skal hoppe over på.
Har du dine filer liggende i et andet bibliotek, kan du skrive:
response.redirect(\"mappenavn/\" & mode & \".asp\") hvis det så er asp-dokumenter du vil bruge.

Jeg havde glemt at slå bufferen til.
Dette gøres med response.buffer=true

<%
Response.buffer=true
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 & Days

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=\"11\" AND Days = id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.clear
Response.redirect(mode &\".asp\")

End if
%>

Låge <% =ConvertDate(now,\"28\") %><br>
Låge <% =ConvertDate(now,\"27\") %>

Ok, og mine \"ting\" skal jeg kalde \"20001201.asp\", \"20001202.asp\" etc? Eller jpg/htm ..... ?

Jeps det skal du!

Husk at ændre linjen til Months=\"12\"

if Months=\"11\" AND Days = id then

Alletiders, Søren Peter! Du skal nok få lov til at åbne nr. 24. :o) Prøver i morgen, skal på messe nu

Der er også en mulighed for at alle de tal som er før dagens dato bliver til links.
D.v.s. at folk der ikke har besøgt siden d.11 men besøger den d. 12, alligevel ikke går glip af låge nummer 11.

Meget gerne! :o) 30 point denne gang? Må jeg spørge om hvad du laver til daglig? Ikke HVOR du arbejder

Jeg arbejder hjemme

Det kræver bare en lille smule ændring i scriptet.

Her er så scriptet.
Læg mærke til at jeg har ændret Days til id i strengen til outputtet til linkene, samt lave if-sætningen om så Days både kan være større og a lig med id for at den laver et link.


<html>
<head>

<%

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=\"11\" AND Days >= id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.redirect(mode &\".asp\")

End if
%>

</head>

Du skal selvfølgelig gemme scriptet i julekalender.asp hvis linket skal virke. Læg mærke til at det indeholder \"julekalender.asp\". Skal du have et andet navn, skal du også ændre det i linket!

Skal jeg gemme det sidste, du har lavet, sammen med scriptet lidt længere oppe?

Jeg kan fornemme, at du ikke bare nøjes med at lave lidt hjemmeside med animerede gif\'er derhjemme? Hvor har du lært at programmere?

Ok, scriptet skal gemmes mellem <head></head> i \"julekalender.asp\"? Kigger lige...

Jeg ER altså NYbegynder mht. ASP!!

Sådan ser min julekalender.asp ud:

<html>
<%

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 & Days

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=\"11\" AND Days = id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.clear
Response.redirect(mode &\".asp\")
End if
%>

<head>
<title></title>
</head>

<body>

<font size=\"2\" face=\"Arial\"><b>
Låge <% =ConvertDate(now,\"28\") %><br>
Låge <% =ConvertDate(now,\"29\") %><br>
Låge <% =ConvertDate(now,\"30\") %><br>
Låge <% =ConvertDate(now,\"1\") %><br>
Låge <% =ConvertDate(now,\"2\") %><br>
Låge <% =ConvertDate(now,\"3\") %><br>
Låge <% =ConvertDate(now,\"4\") %><br>
Låge <% =ConvertDate(now,\"5\") %><br>
Låge <% =ConvertDate(now,\"6\") %><br>
Låge <% =ConvertDate(now,\"7\") %><br>
Låge <% =ConvertDate(now,\"8\") %><br>
</b></font>

</body>

</html>

Jeg har editeret den i en WYSIWYG-editor, så jeg kan få nogle formatter på bogstaver, baggrundsfarve m.m.

Det vil sige, at HELE \"julekalender.asp\" skal se således ud?:

<html>
<head>

<%

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=\"11\" AND Days >= id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.redirect(mode &\".asp\")

End if
%>

</head>


<body>

<font size=\"2\" face=\"Arial\"><b>
Låge <% =ConvertDate(now,\"28\") %><br>
Låge <% =ConvertDate(now,\"29\") %><br>
Låge <% =ConvertDate(now,\"30\") %><br>
Låge <% =ConvertDate(now,\"1\") %><br>
Låge <% =ConvertDate(now,\"2\") %><br>
Låge <% =ConvertDate(now,\"3\") %><br>
Låge <% =ConvertDate(now,\"4\") %><br>
Låge <% =ConvertDate(now,\"5\") %><br>
Låge <% =ConvertDate(now,\"6\") %><br>
Låge <% =ConvertDate(now,\"7\") %><br>
Låge <% =ConvertDate(now,\"8\") %><br>
</b></font>

</body>

</html>

Når jeg afprøver det ovenstående, bliver flg. links aktive: 28-29-1-2. Så det er vist ikke rigtigt. Kigger lige historiken igennem igen...

Det ovenstående er gemt som \"julekalender2.asp\". Når jeg trykke på et af de fire links, ryger jeg hen til \"julekalender.asp\"

Dine links i strengen peger jo på julekalender.asp.
Du kan jo ikke kalde dokumentet noget andet, for så virker linket jo som sagt ikke.
Jeg har testet scriptet igennem med måned 11, og det virker fint hos mig.

OK, men nu er jeg ved at miste overblikket allerede inden jeg er kommet ordentligt ind i det.

Jeg skal have en form for startside, som henviser/er linket op til julekalender.asp? \"julekalender.asp\" skal så linkes op til f.eks. \"20001201.asp\"?

(Er ASP ikke Visual Basic i et html-dokument?)

Jo men den skal ændre det og sende en forespørgsel som vi jo snakkede om.. Det gør den på *samme* dokument.
Derefter oversætter den linket og sender dig videre.

Jeg skal bare kalde dokumentet for \"julekalender.asp\" istedet for \"julekalender2.asp\"?

Ja altså det link som er i outputtet skal pege på det samme dokument som du er på.
Du må selv kalde det hvad du vil, men du skal bare ændre linket også.
Her står der \"julekalender.asp\", vil du have et andet navn, så skal du ændre dette. Skal din kalender være for måned 12, skal du ædre det øverst.:


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

Ok, NU virker det. Men der er lige et par løse ender:


OutDate= Replace(OutDate,\"1\",\"X\")

og

mode= Replace(mode,\"X\",\"1\")


går i dit eksempel fra 1-9. Det er meningen, at det skal gå fra 1-24? (Du har også skrevet XYZ og FCK?)

jo jo, men det er tallene fra 1-9 jeg har ændret...
Det eneste det sikre er at det gør det vanskeligere at genkende i statuslinjen. Du kan evt. sikre det videre v.h.a. no right-click script og lukke det ind i et frame, men selv der kan man snyde hvis man virkelig vil.

At jeg ændre tallene fra 1-9 til tegn har *intet* at gøre med at der skal være låger fra 1-24

Du kan lave så mange låger du vil og er ikke bundet til 24 eller noget. Det kan bruges på andre tidspunkter end julen.

Og læg mærke til at der er tal der ikke er ændret 5 og 0. Det skyldes at gøre det yderligere svært at tolke.

Mystisk, jeg har slettet indholdet i \"Temporary Internet files\" og oversigten. Når jeg opdaterer, er det linkene 28-29-1-2, der er aktive. Hvis jeg vælger \"Vis kode\", står der her:

<html>
<head>



</head>


<body>

<font size=\"2\" face=\"Arial\"><b>
Låge <a href=\"julekalender.asp?mode=Y000XXYC\">28</a><br>
Låge <a href=\"julekalender.asp?mode=Y000XXYK\">29</a><br>
Låge 30<br>
Låge <a href=\"julekalender.asp?mode=Y000XXX\">1</a><br>
Låge <a href=\"julekalender.asp?mode=Y000XXY\">2</a><br>
Låge 3<br>
Låge 4<br>
Låge 5<br>
Låge 6<br>
Låge 7<br>
Låge 8<br>
</b></font>

</body>

</html>

??

Sludder, \"Vis kilde\" og ikke KODE :o)

Altså jeg ved ikke hvad du skriver men her virker det fint:

<html>
<head>

<%

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=\"11\" AND Days >= id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.redirect(mode &\".asp\")

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>



</body>
</html>

Jeg ved godt hvorfor.
Alle tal skal have 2 cifre. Det har jeg lavet den til
Du skal skrive:
<%=ConvertDate(now,\"01\")%>
<%=ConvertDate(now,\"02\")%>

o.s.v.
Ikke
<%=ConvertDate(now,\"1\")%>
o.s.v.

Skal du have både en cifret og 2 cifret tal, kan du lave dette ved at ændre og tilføje dette:
id2 = right(\"00\" & id ,2)
OutDate = DatePart(\"yyyy\", dtmDate) & Months & id2
Derefter er det ligeglad med om du skriver \"01\" eller bare \"1\" i funktionen.
Det samlede ser således ud:

<html>
<head>

<%

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)
id2 = right(\"00\" & id ,2)
OutDate = DatePart(\"yyyy\", dtmDate) & Months & id2

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=\"11\" AND Days >= id then
ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End if
End Function


if mode<>\"\" then

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

Response.redirect(mode &\".asp\")

End if
%>


</head>


<body>

<font size=\"2\" face=\"Arial\"><b>
Låge <% =ConvertDate(now,\"1\") %><br>
Låge <% =ConvertDate(now,\"2\") %><br>
Låge <% =ConvertDate(now,\"3\") %><br>
Låge <% =ConvertDate(now,\"4\") %><br>
Låge <% =ConvertDate(now,\"5\") %><br>
Låge <% =ConvertDate(now,\"6\") %><br>
Låge <% =ConvertDate(now,\"7\") %><br>
Låge <% =ConvertDate(now,\"8\") %><br>
Låge <% =ConvertDate(now,\"9\") %><br>
Låge <% =ConvertDate(now,\"10\") %><br>
Låge <% =ConvertDate(now,\"11\") %><br>

</b></font>
</body>

</html>

Ok, men jeg klippede/klistrede dit eksempel. OG DET VIRKER! Du må undskylde jeg er så tumbet, men jeg har ikke haft så mange muligheder for at sætte mig ordentligt ind i det.

Det eneste jeg mangler er så at tilføje linierne 1-24, både i:

Outdate= Replace(OutDate,\"1\",\"X\")
mode= Replace(mode,\"X\",\"1\")

?

Som jeg skrev så kan du vælge at benytte dem til at sløre datoerne, eller du kan lade være...
det er bare for at gøre det sværere at gennemskue...

Fint! Søren Peter, jeg opretter en \"Jlekalender3\". Så får du 60 point ekstra. Det er flot lavet!!

Ja du klippede og klistrede mit eksempel, men der er det heller ikke vist helt præcist at det skulle være 2 cifret... Nu er det ikke nødvendigt længere...

Jeg kan ikke få det til at virke. Den viser godt nok datoen, men man kan ikke klikke på det !

laserzap, se http://www.eksperten.dk/spm/35794, det virker!

Julekalenderen kan nu downloades på www.activeserverpages.dk og www.netcoders.dk

vh Søren Peter

Hvad skal billederne hedde ???

Det første billede skal hedde B000AB0A.jpg, men hvad med det næste osv.

Billederne (*.jpg) eller dokumenterne (*.htm/*.asp) skal hedde:

20001201.asp
20001202.asp
20001203.asp

o.s.v. :o)

Kig på kombinationen af tallene
De bliver skiftet ud med bogstaver.

Det hedder \"replace\"

Virker det hos dig. Hos mig vil den ikke skifte bogstaver om til tal.

Det virker fint hos mig. Jeg har gemt det i et frameset, som er gemt i et frameset. Man kan intet se .... fandens! Nu kan jeg ikke hente den, derveren må være belastet eller nede. Men det virker! :o)

Jeg har forresten ikke tjekket, om den skriver bogstaver eller tal...

hvis den ikke omstiller fra bogstaver til tal og du har filerne liggende med tal, så kan den jo ikke vise noget.

Jeg kan ikke se efter lige nu. Men den viser den 1. december fint. Så det må den gøre?

Når jeg holder musen ind over linket \"1\" viser den hele stien ind til dokumenterne, men den viser \"http://www.mit_domænenavn.dk/julekalender/julekalender.asp?mode=B000AB0A\"

Det kan vel skjules med en \"mouseOver\"?

Det her virker med sikkerhed..
<%
mode=Request.QueryString(\"mode\")

mode= Replace(mode,\"X\",\"1\")
mode= Replace(mode,\"Y\",\"2\")
mode= Replace(mode,\"Z\",\"3\")
mode= Replace(mode,\"_\",\"4\")
mode= Replace(mode,\"-\",\"6\")
mode= Replace(mode,\"F\",\"7\")
mode= Replace(mode,\"C\",\"8\")
modeend= Replace(mode,\"K\",\"9\")
if mode<>\"\" then
%>
<meta HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=<%=mode &\".jpg\"%>\">
<%
End if


Function ConvertDate(dtmDate,id)
Months = right(\"00\" & DatePart(\"m\", dtmDate) ,2)
Days = right(\"00\" & DatePart(\"d\", dtmDate) ,2)
id2 = right(\"00\" & id ,2)
if Months=\"12\" AND Days >= id2 then

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

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\")



ConvertDate =  \"<a href=\" & chr(34) & \"julekalender.asp?mode=\" & OutDate & chr(34) & \">\" & id & \"</a>\"
else
ConvertDate =  id
End if

End Function



%>

<html>
<head>

<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,\"1\")%></td><td align=\"center\"><% =ConvertDate(now,\"2\")%></td><td align=\"center\"><% =ConvertDate(now,\"3\")%></td><td align=\"center\"><% =ConvertDate(now,\"4\")%></td><td align=\"center\"><% =ConvertDate(now,\"5\")%></td>

</tr>
<tr>

<td align=\"center\"><% =ConvertDate(now,\"6\")%></td><td align=\"center\"><% =ConvertDate(now,\"7\")%></td><td align=\"center\"><% =ConvertDate(now,\"8\")%></td><td align=\"center\"><% =ConvertDate(now,\"9\")%></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>



</body>
</html>

Hvad er det her, ps? En besked til mig eller laserzap?

det er fordi der vist var noget der ikke helt virkede ordentligt.
Nu har jeg rettet det!

Må jeg ikke se det link til den julekalender du har lavet?

Dvs. jeg skal erstatte min \"julekalender.asp\" med det ovenstående?

Jo, hvis jeg kan maile linket til dig? Jeg er ikke så meget for at få min identitet ud her ...

Ja hvis du kan bruge ovenstående.
Jeg har fået den til at skifte til dato.

ICQ 33029955

sp, har ikke icq installeret. Vil helst heller ikke have det. Kan du oprette en mailkonto hos ofir.dk?