uendeligheds script

Du må lave noget som holder styr på hvilken uge du er i. Linket til næste uge kan være:
default1.asp?uge=XX

ugeNr = Request.QueryString("uge")
if ugeNr = "" then
  ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
end if

Så har du uge nummeret så skal du havde en function som finde mandagen i den uge man er i .. Det ser lige om jeg kan finder noghet.

Så kan du tilføje denne function som finder mandagen i den uge, år man kalder functionen med:


function findMandag(uge,aar)
d = DateSerial(aar, 1, 1)    ' 1/1/i år
'find mandag i uge 1
If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
  While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
    d = DateAdd("d", -1, d)
  WEnd
Else
  While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
    d = DateAdd("d", 1, d)
  WEnd
End If
findMandag = DateAdd("d", 7*(uge-1), d) 'juster til ugenummer, mandag
end function



Fra spm (http://www.eksperten.dk/spm/281840) har du dette som finder mandagen i ugen:

dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)


Det skifter du ud med:

dato = findMandag(ugeNr,Year(Date))

linkdet laver du sådan her:

<a href="http://www.1q.frip.dk/lektie/default1.asp?uge=<%ugeNr+1%>">Næste uge</a>

hvor skal jeg sætte :
function findMandag(uge,aar)
d = DateSerial(aar, 1, 1)    ' 1/1/i år
'find mandag i uge 1
If DatePart("ww", d, 2, 2) = 1 Then    'Hvis 1/1 er i uge 1
  While(DatePart("w", d, 2, 2) <> 1)    'find sidste mandag
    d = DateAdd("d", -1, d)
  WEnd
Else
  While(DatePart("ww", d, 2, 2) <> 1)  'find næste mandag
    d = DateAdd("d", 1, d)
  WEnd
End If
findMandag = DateAdd("d", 7*(uge-1), d) 'juster til ugenummer, mandag
end function
ind ?

den kode der er der nu er ;
<%
ugeNr = DatePart("ww", AnyDate, vbMonday, vbFirstFourDays)
dagiuge = DatePart("W", date, 2)-1 '2 angive føste dag er mandag.:
'Find dato for mandag
dato = findMandag(ugeNr,Year(Date))

'Find ugens dage navne + dato
dagMandag = WeekdayName(DatePart("W", dato, 1))
dagMandag = UCase(Left(dagMandag,1)) & Mid(dagMandag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagTirsdag = WeekdayName(DatePart("W", dato, 1))
dagTirsdag = UCase(Left(dagTirsdag,1)) & Mid(dagTirsdag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagOnsdag = WeekdayName(DatePart("W", dato, 1))
dagOnsdag = UCase(Left(dagOnsdag,1)) & Mid(dagOnsdag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagTorsdag = WeekdayName(DatePart("W", dato, 1))
dagTorsdag = UCase(Left(dagTorsdag,1)) & Mid(dagTorsdag,2) & " " & Day(dato) & "/" & Month(dato)
dato = DateAdd("d", 1, dato)
dagFredag = WeekdayName(DatePart("W", dato, 1))
dagFredag = UCase(Left(dagFredag,1)) & Mid(dagFredag,2) & " " & Day(dato) & "/" & Month(dato)
%>

du kan bare ligge function helt i bunden af din fil.
</html>

<% 'Functioner ligger her efter %>

denne linie:

ugeNr = DatePart("ww", Date, vbMonday, vbFirstFourDays)


Laves om til denne:

ugeNr = Request.QueryString("uge")
if ugeNr = "" then
  ugeNr = DatePart("ww", Date, vbMonday, vbFirstFourDays)
end if

Disse linier:


dagiuge = DatePart("W", date, 2)-1  '2 angive føste dag er mandag.:
'Find dato for mandag
dato = DateAdd("d", -dagiuge, date)

Laves om til:

dato = findMandag(ugeNr,Year(Date))

så siger den : http://www.1q.frip.dk/lektie/default1.asp

hvad er linie 664

er ikke sikker men vil sige det er denne :
<a href="default1.asp?uge=<%ugeNr+1%>" style="color: rgb(0,0,0)"><font face="Arial"

Ups.. der skal et = ind før ugeNr:

<a href="default1.asp?uge=<%=ugeNr+1%>" style="color: rgb(0,0,0)"><font face="Arial"

der er et par ting mere der skal følge med hvis man vælger at gå til næste uge. f.eks som det er nu viser den uge 47 som lige uge (skema) samt lektierne skal følge med

lektierne kommer ud med : SQL = "SELECT * FROM lektier WHERE ugenummer = " & ugeNr

Og det med lige eller ulige uge kommer jo som du ved med :
if ((datepart("ww", Date(), 3, 3) Mod 2) = 0) Then

Det som udskriver lige/ulige samt uge nummer skal ændre så det bruger ugeNr og ikke selv udregner ugen..

If sætningen skal være,

if ((ugeNr Mod 2) = 0) Then

yir.. og lektierne ?

de ændre sig da eller ser jeg forkert?

lektierne ændre sig da ikke ?

denne her bruger jeg også nogle steder hvordan får jeg den til at vide hvad uge det er  ?
<%=DatePart("ww", date())%>

kan vi evt også komme af med
http://www.1q.frip.dk/lektie/default1.asp?uge=100

Ja det skal være, ugeNr i stedet for.

er du der... har prøvet med
<%=ugeNr%>
istedet for
<%=DatePart("ww", date())%>
men det virker ikke

hmm min sidste kommentar kom ikke med før der gik kage i eksperten...

Dette styk kode ligge du i toppen af filen så du kan bruge ugeNr hele vejen ned gennem filen:

ugeNr = Request.QueryString("uge")
if ugeNr = "" then
  ugeNr = DatePart("ww", Date, vbMonday, vbFirstFourDays)
end if

hvorfor er der en fejl
http://www.1q.frip.dk/lektie/default1.asp?uge=46 - Vis lektier
http://www.1q.frip.dk/lektie/default1.asp?uge=47 - Vis lektier
http://www.1q.frip.dk/lektie/default1.asp?uge=48 - Vis lektier, der går det galt.

det må være hvis der ingen lektier er så komme du nok ind i en else del som bruget rs eller du tjekker ikke på om recordset er tomt.

hvordan kan det være at skrifttypen bliver anderledes end jeg har angivet
<form id="lektier" style="display : none ;" align="center">
  <div align="center"><center><p><%set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
SQL = "SELECT * FROM lektier WHERE ugenummer = " & ugeNr
set rs = Conn.execute (SQL)%><%If rs.EOF Then%><br>
  <strong><small><font face="Arial">Ingen opgaver endnu!</font></small></strong><br>
<%else%>
http://www.1q.frip.dk/lektie/default1.asp?uge=48

hvordan laver jeg desuden et link som trækker en uge fra, og hvordan undgår jeg at der findes en uge over 58 (som jeg mener der er ialt)

Muligvis pga af <strong><small> efter hinanden <strong> giver fed skrift <small> give mindre skrift.

det ændrede ikke noget

Lige efter du har kaldt denne function:

dato = findMandag(ugeNr,Year(Date))


Så indsæt:
nesteUge = DatePart("ww", DateAdd("ww",1,dato), vbMonday, vbFirstFourDays)


Så ret linket fra: <%=ugeNr+1%>
Til :        <%=nesteUge%>

det ved jeg ikke helt prøv også¨at fjerne de to:  </big></big>

Nå jeg er nød til at smutte i seng nu ..

http://www.1q.frip.dk/lektie/default1.asp?uge=2 datoerne er ikke rigtige..

jeg lavede det lidt anderledes så hvis der ikke er nogen, er løst. der mangler dog lidt endnu, men smider da nogle points i til dig

kan du hjælpe mig videre ?

Arh ja ... det fordi den skal bruge års tallet samme med ugen til at finde dato'en som det er nu antager den at uge nummer er i det årstal man er i.

Enten skal man overføre årstallet sammen med uge nummer i linket eller skal man antage at hvis uge nummer er mindre end denne uge's nummer så det næste år..

Det kommer an på hvad du ønsker?

så er det første jo bedst hvis man vil gå tilbage for at se forrige uger i år.

eagle lang tid siden... hvaaa... støt støt *s*

Ja sorry, jeg har været væk hele weekenden så jeg havde nærmenst glemt det igen ;)


Det som laver linket kan se sådan her ud:


fdato = findMandag(ugeNr, aar)
fdato = DataAdd ("ww", 1, fdato)
nesteUge = DatePart("ww", DateAdd("ww",1,fdato), vbMonday, vbFirstFourDays)
nesteUgeAar = Year(fdato)

<a href="http://www.1q.frip.dk/lektie/default1.asp?uge=<%=nesteUge%>&aar=<%=nesteUgeAar%>">Næste uge</a>

De(t) steder du har dette:

dato = findMandag(ugeNr,Year(Date))

Rettes det til:

dato = findMandag(ugeNr,aar)

Efter disse linier:

ugeNr = Request.QueryString("uge")
if ugeNr = "" then
  ugeNr = DatePart("ww", Date, vbMonday, vbFirstFourDays)
end if


Indsættes dette:

aar = Request.QueryString("aar")
if aar = "" then
  aar = Year(Date)
end if

har du noget imod at se på det hvis jeg lige sender det ?

http://www.1q.frip.dk/lektie/default1.asp

Nej bare prøv at send det.

den ligger en ekstra uge til og gør ikke noget ved årstallet

lad os bare se på det her.. hvad kan der være galt.

det ser ud som om der bliver lagt to til uge nummer:  hhhmmm  jeg var for hurtig til at lave prøv at slet den linie som er markeret her:


fdato = findMandag(ugeNr, aar)
fdato = DataAdd ("ww", 1, fdato)    '<-------- SLET DET SKER OGSÅ I NÆSTE LINIE
nesteUge = DatePart("ww", DateAdd("ww",1,fdato), vbMonday, vbFirstFourDays)
nesteUgeAar = Year(fdato)

<a href="http://www.1q.frip.dk/lektie/default1.asp?uge=<%=nesteUge%>&aar=<%=nesteUgeAar%>">Næste uge</a>

a hva ? " SLET DET SKER OGSÅ I NÆSTE LINIE"

nåå tror lige du får den... nu er der også lørdag og søndag med
på eagleeye@c.dk ?

Det går heller ikke disse linier:


fdato = findMandag(ugeNr, aar)
fdato = DataAdd ("ww", 1, fdato)
nesteUge = DatePart("ww", DateAdd("ww",1,fdato), vbMonday, vbFirstFourDays)
nesteUgeAar = Year(fdato)

<a href="http://www.1q.frip.dk/lektie/default1.asp?uge=<%=nesteUge%>&aar=<%=nesteUgeAar%>">Næste uge</a>



Rettes til dette:

fdato = findMandag(ugeNr, aar)
fdato = DataAdd ("ww", 1, fdato)
nesteUge = DatePart("ww", fdato, vbMonday, vbFirstFourDays)
nesteUgeAar = Year(fdato)

<a href="http://www.1q.frip.dk/lektie/default1.asp?uge=<%=nesteUge%>&aar=<%=nesteUgeAar%>">Næste uge</a>

så er vi nede i 2001 *s*

dont leave me now *s*

2001 hvad mener du.

så vidt jeg kan se viser den rigtig uge dog er år 2002...

you're right.

Hvordan ser linien ud som laver linket)

fandt det i koden..:

OPørv at lave disse linier:

fdato = findMandag(ugeNr, aar)
nesteUge = DatePart("ww", DateAdd("ww",1,fdato), vbMonday, vbFirstFourDays)
nesteUgeAar = Year(fdato)


Om til disse:

fdato = findMandag(ugeNr, aar)
fdato = DateAdd("ww",1,fdato)
nesteUge = DatePart("ww", fdato, vbMonday, vbFirstFourDays)
nesteUgeAar = Year(fdato)

hvad skulle den ændre eagle, synes ikke der var en forskel nemmerlig *s*

der mangler kun få ting jo *s* f.eks er dagene jo gale.. året passer ikke efter 52 også ville det være smart om lektie listen havde markering på dagens navn.

kan vi / du klare dem ?

Hvad der er ændre i (18/11-2002 19:45:00) fdato er flyttet ud så den udregns for båe uge og år og ikke kun for uge nummer.

Det forstår jeg ikke helt den regner stadig forkert årstal har du rettet det til med min sidste kommentar?

Ja det har jeg. Hvad med the fact at der er lørdag og søndag med ?

kan du hjælpe med det `?

hvad sker der her ?

Kan vi ikke bare få navnene på dagen tilbage ?

Okay du får dem uden mere *s*