> Ja. Men du har stadig ikke vist hvordan du bruger sldatoarray.
>
Her kommer koden for startdato og slutdato. Startdato virker og
slutdato virker ikke.
' Hent startdato:
Dim stdato
stdato = Request.Form("startdato")
' Find de enkelte dele
Dim stdatoArray
stdatoArray = Split(stdato, "-")
If Ubound(stdatoArray) = 2 Then
' Tre elementer i datoen, fortsæt behandlingen
Dag = stdatoArray(0)
Maaned = stdatoArray(1)
Aar = stdatoArray(2)
Else
response.write "Forkert dato - udskriv fejlmeddelelse "
End If
' Hent slutdato:
If Request.Form("slutdato") = "" THEN
response.write "slutdato er tom"
ELSE
Dim sldato
sldato = Request.Form("slutdato")
response.write "sldato= " & sldato
' Find de enkelte dele
Dim sldatoArray
sldatoArray = Split(sldato, "-")
If Ubound(sldatoArray) = 2 Then
' Tre elementer i datoen, fortsæt behandlingen
Dagl = sldatoArray(0)
Maanedl = sldatoArray(1)
Aarl = sldatoArray(2)
response.write "Aar1=" & Aar1
Else
response.write "Forkert dato - udskriv fejlmeddelelse "
End If
END IF
Længere ned og inden min Conn.execute har jeg følgende:
Response.write strSQL
Response.write "Datoværdierstart: År: " & Cstr(aar) & ", Måned: " &
Cstr(maaned) & ", Dag: " & Cstr(Dag)
Response.write "Datoværdierslut: År1: " & Cstr(aar1) & ", Måned1: " &
Cstr(maaned1) & ", Dag1: " & Cstr(Dag1)
response.end
Den viser fint min strSQL og viser også datoer for start datoen men
den er sørgelig tom for slutdatoen.
Håber jeg har fået alle data med denne gang.....
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials