---

Har dette script:
<%

Do
strNavn ="<br><font color=#ff0000><b>" & rs("Dato") &
"</B></font><br>" & rs("Dato") & "<br>" & rs("tid") & "<br>" &
rs("hjemme") & "<br>" & rs("ude") & "<br>" & rs("sted")
strLink = "" & strNavn & "</a>"
Response.Write " " & strLink & "<br> "
rs.MoveNext
Loop While Not rs.EOF
%>

Men datoen vender forkert - har så prøvet at bruge dette script:
<%


'Indsættelse af datoen MyDate i en database:
Dag = Day(MyDate)
Maaned = Month(MyDate)
Aar = Year(MyDate)
strSQLDate = "INSERT INTO Tabel (datoFelt) VALUES (DateSerial(" &
Aar & ", " & Maaned & ", " & Dag & "))"
%>

Men uden held - nogen der kan hjælpe?

--
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

---

bo wrote in dk.edb.internet.webdesign.serverside.asp:
> Har dette script:
> <%
&gt;
&gt; Do
&gt; strNavn ="<br><font color=#ff0000><b>" & rs("Dato") &
&gt; "</B></font><br>" & rs("Dato") & "<br>" & rs("tid") & "<br>" &
&gt; rs("hjemme") & "<br>" & rs("ude") & "<br>" & rs("sted")
&gt; strLink = "" & strNavn & "</a>"
&gt; Response.Write " " & strLink & "<br> "
&gt; rs.MoveNext
&gt; Loop While Not rs.EOF
&gt; %>
>
> Men datoen vender forkert - har så prøvet at bruge dette script:
> <%
&gt;
&gt;
&gt; 'Indsættelse af datoen MyDate i en database:
&gt; Dag = Day(MyDate)
&gt; Maaned = Month(MyDate)
&gt; Aar = Year(MyDate)
&gt; strSQLDate = "INSERT INTO Tabel (datoFelt) VALUES (DateSerial("
&
&gt; Aar & ", " & Maaned & ", " & Dag & "))"
&gt; %>
>
> Men uden held - nogen der kan hjælpe?
>
> --

Har fikset den - brugte en global.asa

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Session_OnStart
Session.LCID = 1030
End Sub
</SCRIPT>







> 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


--
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

---

On 08 Oct 2006 09:57:49 GMT, bo <bobo@dbmail.dk> wrote:

>Har dette script:
><%
>
>Do
> strNavn ="<br><font color=#ff0000><b>" & rs("Dato") &
>"</B></font><br>" & rs("Dato") & "<br>" & rs("tid") & "<br>" &
>rs("hjemme") & "<br>" & rs("ude") & "<br>" & rs("sted")
> strLink = "" & strNavn & "</a>"
>Response.Write " " & strLink & "<br> "
> rs.MoveNext
>Loop While Not rs.EOF
>%>
>
>Men datoen vender forkert

Du kan enten bruge de indbyggede dato-formater - se fx:
<url: http://www.html.dk/tutorials/asp/lektion4.asp>

- eller du kan selv formattere dem til udskrift, fx:
datDato = rs("Dato")
strDato = Day(datDato) & "." & Month(datDato) & "." & Year(datDato)

Det vil i dag give: "8.10.2006"
- og du skal bare indsætte strDato i din udskrift i stedet for
rs("Dato").

>- har så prøvet at bruge dette script:
>'Indsættelse af datoen MyDate i en database:
>Dag = Day(MyDate)
>Maaned = Month(MyDate)
>Aar = Year(MyDate)
>strSQLDate = "INSERT INTO Tabel (datoFelt) VALUES (DateSerial(" &
>Aar & ", " & Maaned & ", " & Dag & "))"
>%>
>
>Men uden held - nogen der kan hjælpe?

Det er sådan set fint nok, men det har jo ikke noget med din udskrift
at gøre - men med det, du spørger ind til databasen om.

Det svar, du får fra databasen er sådan set ligeglad med, i hvilket
format du spørger (forudsat, at det er forståeligt). Det format, du
får ud i dit RecordSet (rs) afhænger af serverens format (eller
indstillinger i dit script) - og grunden til, at det er "omvendt" er
nok, at din server bruger engelsk som standard-indstilling.


Hvis du bruger datoer tit (og hvem gør ikke det?), kan du gøre det
nemmere og mere overskueligt ved at lægge de to "konverteringer" ind i
en funktion.
Til forespørgsel ind i databasen se fx:
<url:
http://groups.google.com/group/dk.edb.internet.webdesign.serverside.asp/msg/a81a0e1a49ca1573?hl=da>

Til formattering af dato til udskrift:
Function fktMitDatoFormat(varDate)
Dim varStrDate
If IsDate(varDate) Then
varStrDate = Day(varDate) & "." & _
Month(varDate) & "." & Year(varDate)
Else
varStrDate = "-"
End If
fktMitDatoFormat = varStrDate
End Function

Du henter den så med:
strDato = fktMitDatoFormat(rs("Dato"))

Hvis du gemmer funktionen i en separat include-fil, kan du rette
dato-format på hele dit site samtidig ved blot at rette formatet i
funktionen i include-filen


Good luck!

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