Søg
Avatar billede cgleerup Nybegynder
22. november 2004 - 08:49 Der er 4 kommentarer og
3 løsninger

Redirect i forhold til dato

Jeg har et simpelt web projekt hvor jeg har forskellige .asp sider der skal linkes til alt efter hvilken dato det er.

Jeg forestiller mig at lave det ved at ligge en kode ind i dafault.asp filen der tjekker for datoen, og derefter redirecter til den pågældende side omgående, uden at brugeren egentlig vil bemærker dette.

Nongen der kan hjælpe her?
Avatar billede medions Nybegynder
22. november 2004 - 09:56 #1
Response.Redirect(Day(Date()) & ".asp")

Sådan fx.?

//>Rune
Avatar billede cgleerup Nybegynder
22. november 2004 - 10:02 #2
Ja, nogen i den stil - men jeg vil gerne have det sat sådan op at jeg kan lave til eksempelvis 10 uger af gangen.

Eksempelvis at den redirecter til filen "uge48.asp" så længe at det er uge 48 derefter "uge49.asp" og så fremdeles. ??? muligt???
Avatar billede cgleerup Nybegynder
22. november 2004 - 10:15 #3
Nu forstår jeg din kode, sorry - kan den laves på ugebasis?
Avatar billede cgleerup Nybegynder
22. november 2004 - 10:17 #4
kan du eventuelt give mig den samlede gode for en sådan side, med html tags og det hele, jeg er lidt grøn her.
Avatar billede medions Nybegynder
22. november 2004 - 13:20 #5
<html>
<body>
<%
Function WOY (MyDate)
  WOY = DatePart("ww", MyDate, vbMonday, vbFirstFourDays)
  If WOY > 52 Then
    If DatePart("ww", MyDate+7, vbMonday, vbFirstFourDays) = 2 Then WOY = 1
  End If
End Function
uge = WOY(Date())

Response.Redirect("uge" & uge & ".asp"
%>


</body>
</html>

//>Rune
Avatar billede medions Nybegynder
22. november 2004 - 13:20 #6
Hov...


<html>
<body>
<%
Function WOY (MyDate)
  WOY = DatePart("ww", MyDate, vbMonday, vbFirstFourDays)
  If WOY > 52 Then
    If DatePart("ww", MyDate+7, vbMonday, vbFirstFourDays) = 2 Then WOY = 1
  End If
End Function
uge = WOY(Date())

Response.Redirect("uge" & uge & ".asp")
%>


</body>
</html>

//>Rune
Avatar billede cgleerup Nybegynder
23. november 2004 - 15:57 #7
Super - det virker jo perfekt. Men hvis du har 2 sek til overs vil jeg blive en glad mand hvis du vil forklare hvad det er der sker når du definere "woy" variablen? - her hoppede kæden da helt af for mig ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB

JP/Politikens Hus

Digital Workplace Supporter

Quadsat ApS

Software Developer

Netcompany A/S

Data Management Consultant

Capgemini Danmark A/S

AI Data Architect

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger IT-Supporter til lokal IT støtte i Oksbøl
Seneste spørgsmål Seneste aktivitet
I går 16:21 Installere Ubuntu på Virtuel Maskine Af Uvanga i Andet software
I går 09:38 Microsoft har igen ødelagt mit højreklik Af valby i Windows
30/0714:41 To mails fra YouSee - Jeg tror ikke altid på tilfældigheder Af mort1 i Andet sikkerhed
27/0714:34 Hjælp til at kunne skanne negativer på Plustek 8300i SE Af Mariann i Foto & video
27/0713:58 Mapperne Dokumenter og Overførsler er forsvundet efter geninstallation af Win11 Af bragger i Windows
White papers
Flere white papers »