---

Hej HTML'er
Nu har jeg brugt en masse tid på dette her prblem og er kørt
fast.
Jeg får hele tiden fejlen: Det er ikke en gyldig dato. Kan nogen
se hvorfor:

Koden:
<% Session.LCID = 1030 %>
<%

If IsDate(request("Date_Day") + "/" + request("Date_Month") + "/"
+ request("Date_Year")) Then

   Set RSEVENTS = Server.CreateObject("ADODB.Recordset")
   RSEVENTS.Open "Events", Conn, 2, 2
   RSEVENTS.addnew
   
   RSEVENTS("Event_Name") = request("Event_Name")
   RSEVENTS("Location") = request("Location")
   RSEVENTS("Location1") = request("Location1")
   RSEVENTS("Location2") = request("Location2")
   RSEVENTS("Description") = request("Description")
   RSEVENTS("Category") = request("Category")
   RSEVENTS("Buskorsel") = request("Buskorsel")
   RSEVENTS("Booket") = request("Booket")
   RSEVENTS("Instruktor") = request("Instruktor")
   RSEVENTS("Instruktor2") = request("Instruktor2")
   RSEVENTS("Instruktor3") = request("Instruktor3")
   RSEVENTS("Event_Booketden") = request("Event_Booketden")
   RSEVENTS("Busbestilt") = request("Busbestilt")
   RSEVENTS("Antal") = request("Antal")
   RSEVENTS("OBS") = request("OBS")
   RSEVENTS("Rettet") = request("Rettet")
   RSEVENTS("Rettetden") = request("Rettetden")
   RSEVENTS("stormc") = request("stormc")
   RSEVENTS("lillemc") = request("lillemc")
   RSEVENTS("sidevogn") = request("sidevogn")
   RSEVENTS("phone") = request("phone")
   RSEVENTS("kundenr") = request("kundenr")
      

   
   
   'eventDate = (request("Date_Month") + "/" + request("Date_Day")
+ "/" + request("Date_Year") + " " + request("Time_Hour") + ":" +
request("Time_Minute") + ":00 " + request("Time_AMPM")
   eventDate = request("Date_Day") + "/" + request("Date_Month") +
"/" + request("Date_Year") + " " + request("Time_Hour") + ":" +
request("Time_Minute") + ":00 " + request("Time_AMPM")
   RSEVENTS("Date") = eventDate
   
   If (request("Location") = "") Then
      RSEVENTS("Location") = Null
   Else
      RSEVENTS("Location") = request("Location")
   End If
   RSEVENTS.update
   
   RSEVENTS.close
   RSEVENTS.ActiveConnection = Nothing
   set RSEVENTS = nothing
Else
   'Response.Write(strErrorMsg)
End If

%>


og dette

<%If IsDate(request("Date_Day") + "/" + request("Date_Month") +
"/" + request("Date_Year")) Then%>
<b><font size="1">
<%
   If strErrorMsg = "" Then
      Response.Write("Aftalen er blevet tilføjet")
   Else
      Response.Write(Replace(strErrorMsg, vbCrLf, "<br>"))
   End If
%>
</font></b>
<br>

<br>
<br>


</p>


<table class="document" border="0" width="100%" id="table1">
   <tr>
      <td id="menu3">
      <p align="center"><a href="javascript:history.go(-1);">&lt;---
Tilbage</a>
<%Else%>


<b><font color="#FF0000">Det er ikke en gyldig
dato.</font></b><br><br>
<a href="javascript:history.go(-1);">&lt;--- Prøv igen</a>

<%End If%>

Der er også en masse html kode, men det er ikke vigtigt.

mhv
pth

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Palle Hansen skrev:

> If IsDate(request("Date_Day") + "/" + request("Date_Month") +
> "/" + request("Date_Year")) Then

Prøv med dateserial i stedet.

Se evt. http://asp-faq.dk/article/?id=98



--
Jens Gyldenkærne Clausen
»Diplomatiet består netop i, at de gamle kommatister kan få lov til
at tro, at de har vundet. Men i virkeligheden har de tabt.«
Ole Togeby i Information

---

Jens Gyldenkærne Clausen wrote in
dk.edb.internet.webdesign.serverside.asp:
> Palle Hansen skrev:
>
> > If IsDate(request("Date_Day") + "/" + request("Date_Month") +
> > "/" + request("Date_Year")) Then
>
> Prøv med dateserial i stedet.


altså istedet for IsDate?

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Palle Hansen wrote in dk.edb.internet.webdesign.serverside.asp:
> Jens Gyldenkærne Clausen wrote in
> dk.edb.internet.webdesign.serverside.asp:
> > Palle Hansen skrev:
> >
> > > If IsDate(request("Date_Day") + "/" + request("Date_Month") +
> > > "/" + request("Date_Year")) Then
> >
> > Prøv med dateserial i stedet.
>
>
> altså istedet for IsDate?
>
> --
> Har rettet til dette:
<%If DateSerial (request("Date_Day") + "/" + request("Date_Month") +
"/" + request("Date_Year")) Then%>
<b><font size="1">
<%
   If strErrorMsg = "" Then
      Response.Write("Aftalen er blevet tilføjet")
   Else
      Response.Write(Replace(strErrorMsg, vbCrLf, "<br>"))
   End If
%>
men får nu denne fejl:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01c2'

Antallet af argumenter er forkert eller egenskabstildelingen er
ugyldig: 'DateSerial'

/www/KTABooking(2)/admin/erdusikker.asp, linje 199
Linie 199 er: <%If DateSerial (request("Date_Day") + "/" +
request("Date_Month") + "/" + request("Date_Year")) Then%>


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Palle Hansen skrev:

>> Prøv med dateserial i stedet.

> altså istedet for IsDate?

Nej. Se det link jeg gav før.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

On 03 Nov 2007 21:28:01 GMT, Palle Hansen <tornelund@gmail.com> wrote:

>Hej HTML'er
>Nu har jeg brugt en masse tid på dette her prblem og er kørt
>fast.
>Jeg får hele tiden fejlen: Det er ikke en gyldig dato. Kan nogen
>se hvorfor:
>
>Koden:
><% Session.LCID = 1030 %>
><%
>

datDay = request("Date_Day")
datMonth = request("Date_Month")
datYear = request("Date_Year")
datHour = request("Time_Hour")
datMinute = request("Time_Minute")

> If IsDate(request("Date_Day") + "/" + request("Date_Month") + "/"
> + request("Date_Year")) Then

If IsDate(datDay & "-" & datMonth & "-" & datYear) Then
[1]
<snip>
   
>   eventDate = request("Date_Day") + "/" + request("Date_Month") +
>"/" + request("Date_Year") + " " + request("Time_Hour") + ":" +
>request("Time_Minute") + ":00 " + request("Time_AMPM")

eventDate = DateSerial(datYear, datMonth, datDay) + TimeSerial(datHour,
datMinute, 0)
(på én linie)

>   RSEVENTS("Date") = eventDate

[1]
Man kan diskutere, om det er den smarteste måde at checke for, om det er
en dato. Man kan i virkeligheden blot validere Request-input'ene for, om
de er heltal, så vil
DateSerial(datYear, datMonth, datDay)
altid være en dato.

Good luck!

--
Jørn Andersen,
Brønshøj

---

Jørn Andersen wrote in dk.edb.internet.webdesign.serverside.asp:
> On 03 Nov 2007 21:28:01 GMT, Palle Hansen <tornelund@gmail.com> wrote:
>
> >Hej HTML'er
> >Nu har jeg brugt en masse tid på dette her prblem og er kørt
> >fast.
> >Jeg får hele tiden fejlen: Det er ikke en gyldig dato.

Nu har jeg rettet, som Jørn skrev, men får stadig samme besked "Det er
ikke en gyldig dato.

Scenarie:
Jeg har en masse strErrorMsg på siden. Hvis der bliver fundet noget i
denne sætning : If strErrormsg <> "" Then strErrorMsg = strErrorMsg & "<a
onClick=""return window.confirm('ADVARSEL\n\nDette er i stid med gældende
regler! Hvis du vil fortsætte alligevel, skal du klikke på -OK- \n\nEr du
sikker?');"" href=""index1_erdusikker.asp "">Klik her, hvis du vil
oprette alligevel »</a>"
bliver man sendt til index1_erdusikker.asp siden. Det er her jeg får
fejlen. Kan det have noge at gøre med, at der ikke bliver taget noget med
fra siden med strErrorMsg til index1_erdusikker.asp



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Palle Hansen skrev:

> Nu har jeg rettet, som Jørn skrev, men får stadig samme besked
> "Det er ikke en gyldig dato.

Prøv at bytte om på måned og dag:

If IsDate(datMonth & "-" & datDay & "-" & datYear) Then

- så virker det formentlig. Men hvis du - eller en serveradmin -
finder på at sætte serveren til at læse "danske" datoer, vil Jørns
model fungere, og ovenstående give fejl. Derfor er det ikke en
model jeg vil anbefale.


Jørns alternative forslag er langt bedre



A: tjek om de tre talværdier er numeriske (isNumeric(X))

B: konverter dem til heltal (cInt(X))

C: tjek for en sikkerheds skyld om talværdierne er større end nul

(C2: tjek om hver af dem er "rimelige" værdier - 1 <= dag <= 31, 1
<= måned <= 12, 1900? <= år <= 2100?)

D: Lav en dato med Dateserial (Dateserial(år, måned, dag))

E: Tjek evt. for konverteringsfejl ved at sammenligne inputværdien
dag med den dag man får ud af den nye dato (hvis man fx har angivet
DateSerial(2007, 11, 31) får man datoværdien 1. december 2007 (da
der kun er 30 dage i november) - og ved at sammenligne
indputværdien 31 med værdien fra den nye dato (Day(X)) - 1 - kan
man se at der er konverteret.


--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Jens Gyldenkærne Clausen wrote in
dk.edb.internet.webdesign.serverside.asp:
> Nu er jeg ikke hardcore programmør, sååååå det kan jeg umiddlbart
ikke overskue.
MEN det er der undre mig er, at det har virket før, lige indtil jeg
placerede dette:
If strErrormsg <> "" Then strErrorMsg = strErrorMsg & "<a
onClick=""return window.confirm('ADVARSEL\n\nDette er i stid med
gældende regler! Hvis du vil fortsætte alligevel, skal du klikke på
-OK- \n\nEr du sikker?');"" href=""index1_erdusikker.asp "">Klik her,
hvis du vil oprette alligevel »</a>"
Altså så man bliver sendt til anden side. Så meget kan en dato da ikke
ændre sig synes man

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Palle Hansen wrote in dk.edb.internet.webdesign.serverside.asp:

> If strErrormsg <> "" Then

Har du husket dit end if?

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Martin Jensen wrote in dk.edb.internet.webdesign.serverside.asp:
> Palle Hansen wrote in dk.edb.internet.webdesign.serverside.asp:
>
> > If strErrormsg <> "" Then
>
> Har du husket dit end if?
>
> jeps, ellers ville den fejle med det istedet.

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Jens Gyldenkærne Clausen wrote in
dk.edb.internet.webdesign.serverside.asp:
> Palle Hansen skrev:
>
> > >
>
>
>
>
> C: tjek for en sikkerheds skyld om talværdierne er større end nul
>
Nu har jeg konstateret et der ingen værdi er i Date_Day, Date_Month og
Date_Year, så spørger jeg: Hvofor er der så ike det :) Hvis jeg køre
uden om denne sætning, ja så virker det: If strErrormsg <> "" Then
strErrorMsg = strErrorMsg & "<a onClick=""return
window.confirm('ADVARSEL\n\nDette er i stid med gældende regler! Hvis
du vil fortsætte alligevel, skal du klikke på -OK- \n\nEr du
sikker?');"" href=""index1_erdusikker.asp "">Klik her, hvis du vil
oprette alligevel »</a>"

>
>
> --


--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Palle Hansen wrote in dk.edb.internet.webdesign.serverside.asp:
> Jens Gyldenkærne Clausen wrote in
> dk.edb.internet.webdesign.serverside.asp:
> > Palle Hansen skrev:
> >
> > > >
> >
> >
> >
> >
> > C: tjek for en sikkerheds skyld om talværdierne er større end nul
Tak det løst mit problem. Tak fo hjælpen alle sammen.



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials