|
|
 | Problem med Dato format
Fra : Knud H Knudsen |
Dato : 15-01-01 12:34 |
|
Jeg har et problem med at når jeg skriver datoer til min access database
byttes der om på måned og dag 12-01-2001 bliver til 01-12-2001. Jeg har
skrevet at session.lcid =1030.
Jeg benytter følgende code:
<%
Session.LCID = 1030
Dim objConn, objRS, strConn, f
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Data Source=APQP;;Password=;"
objConn.Open strConn
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = adUseServer
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic
objRS("Deadline") = request("Deadline")
%>
Er der nogen der kan fortælle mig hvad jeg skal ændre?
Hilsen
Knud H Knudsen
| |
 Lauritz Jensen (15-01-2001)
| Kommentar
Fra : Lauritz Jensen |
Dato : 15-01-01 16:41 |
|
Knud H Knudsen wrote:
>
> Jeg har et problem med at når jeg skriver datoer til min access database
> byttes der om på måned og dag 12-01-2001 bliver til 01-12-2001. Jeg har
> skrevet at session.lcid =1030.
[...]
> objRS("Deadline") = request("Deadline")
[...]
> Er der nogen der kan fortælle mig hvad jeg skal ændre?
Prøv at ændre "deadline"-linien (no pun intended) til:
Deadline = Split(request("Deadline"), "-")
If UBound(Deadline) = 2 Then
objRS("Deadline") = DateSerial(CLng(Deadline(2)), CLng(Deadline(1)),
CLng(Deadline(0)))
Else
objRS("Deadline") = Null
End If
(Ja, Jeg ville nok lave en funktion til det!)
--
Lauritz
| |
Knud H Knudsen (16-01-2001)
| Kommentar
Fra : Knud H Knudsen |
Dato : 16-01-01 11:55 |
|
Tak det ser ud til at virke fint
Jeg har lavet en funktion som jeg kalder
Mvh
Knud H Knudsen
"Lauritz Jensen" <lauritz2@hotmail.com> skrev i en meddelelse
news:3A631A0D.D7479BDB@hotmail.com...
> Knud H Knudsen wrote:
> >
> > Jeg har et problem med at når jeg skriver datoer til min access database
> > byttes der om på måned og dag 12-01-2001 bliver til 01-12-2001. Jeg har
> > skrevet at session.lcid =1030.
> [...]
> > objRS("Deadline") = request("Deadline")
> [...]
> > Er der nogen der kan fortælle mig hvad jeg skal ændre?
>
> Prøv at ændre "deadline"-linien (no pun intended) til:
> Deadline = Split(request("Deadline"), "-")
> If UBound(Deadline) = 2 Then
> objRS("Deadline") = DateSerial(CLng(Deadline(2)), CLng(Deadline(1)),
> CLng(Deadline(0)))
> Else
> objRS("Deadline") = Null
> End If
> (Ja, Jeg ville nok lave en funktion til det!)
> --
> Lauritz
| |
|
|