Søg
Avatar billede andersasp Nybegynder
11. juni 2002 - 15:29 Der er 14 kommentarer og
1 løsning

Listning af datoer

Hej eksperter!

Jeg er ved at lave en dropdownbox, hvor der skal listes datoer, hvor den første skal være dagens dato og derop efter!  jeg har prøvet med nedenstående, men der må være noget lettere at gøre!! 

Håber der er nogle der kan hjælpe!

-----------------------------------------------------
  </b></p>
<form name="form1" method="post" action="">
  <select name="select">
    <option value="  <%
arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato)
Response.Write "" & datoStreng
%>">
    <% arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December") arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag") dato = now() datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato) Response.Write "" & datoStreng %>
    </option>
    <option value="  <%
arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)) & " d. " & (day(dato)+1) & ". " & arrMonth(month(dato)) & " " & Year(dato)
Response.Write "" & datoStreng
%>">
    <% arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December") arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag") dato = now() datoStreng = arrDay(WeekDay(dato)) & " d. " & (day(dato)+1) & ". " & arrMonth(month(dato)) & " " & Year(dato) Response.Write "" & datoStreng %>
    </option>
    <option value="  <%
arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato)
Response.Write "" & datoStreng
%>">
    <% arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December") arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag") dato = now() datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato) Response.Write "" & datoStreng %>
    </option>
  </select>
</form>
-----------------------------------------------------
Avatar billede tmceu Praktikant
11. juni 2002 - 15:37 #1
Noget i denne stil:

For i = 0 To -10 step -1
response.write dateadd("d", i, date())
Next
Avatar billede andersasp Nybegynder
11. juni 2002 - 15:49 #2
Undskyld med den var jeg ikke helt med på!!
hvordan skal det indsættes i en dropdown!!  jeg er desværre lidt rusten!
-------------------------------------------------
  <select name="select">
    <option value="???">????</option>
    <option value="????">????</option>
  </select>
Avatar billede tmceu Praktikant
11. juni 2002 - 15:52 #3
Lav det eks. sådan:

response.write "<SELECT NAME="Dato">

For i = 0 To -10 step -1

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & dateadd("d", i, date()) & "</OPTION>"

Next

response.write "</SELECT>
Avatar billede tmceu Praktikant
11. juni 2002 - 15:53 #4
Hov, så lige at du skrev "derop". Så skal det i stedet være

response.write "<SELECT NAME="Dato">

For i = 0 To 10

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & dateadd("d", i, date()) & "</OPTION>"

Next

response.write "</SELECT>
Avatar billede andersasp Nybegynder
11. juni 2002 - 16:00 #5
Det kan godt være jeg tåger!!  men er nedenståede helt forkert!!  det virker ihvertifald ikke!!

-----------------------------------------------------
<%
arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato)

  response.write "<SELECT NAME="Dato">

For i = 0 To 10

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & dateadd("d", i, date()) & "</OPTION>"

Next

response.write "</SELECT>
  %>
Avatar billede tmceu Praktikant
11. juni 2002 - 16:04 #6
Der mangler en " i SELECT close

response.write "</SELECT>

ændres til:

response.write "</SELECT>"
Avatar billede andersasp Nybegynder
11. juni 2002 - 16:13 #7
det er nu ikke den fejl den laver:

response.write "<SELECT NAME="Dato">
------------------------------^
Avatar billede tmceu Praktikant
11. juni 2002 - 16:16 #8
Selvfølgelig. I response.write skal alle " erstattes med ""

response.write "<SELECT NAME=""Dato"">"

For i = 0 To 10

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & dateadd("d", i, date()) & "</OPTION>"

Next

response.write "</SELECT>"
Avatar billede andersasp Nybegynder
11. juni 2002 - 16:25 #9
du er for sej!!  tak skal du have!!
Avatar billede andersasp Nybegynder
11. juni 2002 - 16:28 #10
FUCK!!  jeg ved godt jeg har givet dig points!  men hvad skal der tilføjes hvis den skal skrive i dette format:

Tirsdag d. 11. Juni 2002 istedet for 11-06-2002
Avatar billede tmceu Praktikant
11. juni 2002 - 16:35 #11
FormatDateTime([dato], vbLongDate)
Avatar billede andersasp Nybegynder
11. juni 2002 - 16:47 #12
Sorry jeg er lidt sløv!!  men hvor henne???
---------------------------------------------------------

    <%
arrMonth = Array("Januar", "Febuar", "Marts", "April", "Maj", "Juni", "Juli", "August", "September", "Oktober", "november", "December")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
dato = now()
datoStreng = arrDay(WeekDay(dato)-1) & " d. " & (day(dato)) & ". " & arrMonth(month(dato)-1) & " " & Year(dato)

  response.write "<SELECT NAME=""Dato"">"

For i = 0 To 10

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & dateadd("d", i, date()) & "</OPTION>"

Next

response.write "</SELECT>"
%>
Avatar billede tmceu Praktikant
11. juni 2002 - 16:52 #13
response.write "<SELECT NAME=""Dato"">"

For i = 0 To 10

response.write "<OPTION VALUE=""" & dateadd("d", i, date()) & """>" & FormatDateTime(dateadd("d", i, date()), vbLongDate) & "</OPTION>"

Next

response.write "</SELECT>"
Avatar billede andersasp Nybegynder
11. juni 2002 - 17:04 #14
kanon! men hvorfor kommer dagen ikke med?? således den skriver:

Tirsdag d. 11. Juni 2002
Avatar billede tmceu Praktikant
11. juni 2002 - 19:45 #15
Det afhænger af indstillingerne på serveren. Hvis den ikke er konfigureret med ugedag, kommer det ikke med.
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
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
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
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
Seneste spørgsmål Seneste aktivitet
I går 14:59 Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access
19/1014:58 Scanner program til PC Af fjorbak i Andet software
16/1016:25 En "Gammel" & "Retro" PC Service ? Husker ikke navnet .... Af Ikke-ekspert i Diverse
16/1016:17 Jeg har lige købt en Samsung mobil telefon Af Strawberry i Mobiltelefoner
16/1013:20 Lotus Approach Af Carsten i Andet software
White papers
Flere white papers »