Hej Frank
Frank wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej alle
>
> Jeg har lavet en side, eller rettere sagt fået noget hjælp til en
> side, men men men når den kommer op på nettet så er datoen på
> nyheden på svensk (måned, dato, år) og det synes jeg ikke om,
> hvordan får jeg den vendt om så den er på dansk? På forhånd tak
>
Jeg plejer at benytte et lille vb-script som jeg includere på mine
sider.
Scriptet ser således ud:
<% ' VBscript til omregning af en data til Dansk Dato format.
' Filen inkluderes på siden og scriptet kaldes således:
' DKDato(Dato,Format)
' Format kan være følgende:
' #1 : 00-11
' #2 : 00-11-99 timer:minutter
' #3 : 00-11-99 timer:minutter:sekunder
' #4 : 00-11-9999
' #5 : 00-11-9999 timer:minutter
' #6 : 00-11-9999 timer:minutter:sekunder
' #7 : 00. mdrnavn 9999
' #8 : 00. mdrnavn 9999 timer:minutter
' #9 : mdrnavn
'
'Flere kan tilføjes hvis nødvendigt%>
<script language="VBScript" runat="Server">
Function DKDato(nDato, nFormat)
If isDate(nDato) = False Then
DKDato = nDato
Exit Function
End If
Dim arrMinth
Dim arrDays
arrMonth =
"januar,februar,marts,april,maj,juni,juli,august,september,oktober,n
ovember,december"
arrMonth = Split(arrMonth,",")
datDay = PutZero(Day(nDato))
datMonth = PutZero(Month(nDato))
datYear = Year(nDato)
datHour = PutZero(Hour(nDato))
datMin = PutZero(Minute(nDato))
datSec = PutZero(Second(nDato))
Select Case nFormat
Case "#1"
DKDato = datDay&"-"&datMonth
Case "#2"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&"
"&datHour&":"&datMin
Case "#3"
DKDato = datDay&"-"&datMonth&"-"&Mid(datYear,3,2)&"
"&datHour&":"&datMin&":"&datSec
Case "#4"
DKDato = datDay&"-"&datMonth&"-"&datYear
Case "#5"
DKDato = datDay&"-"&datMonth&"-"&datYear&" "&datHour&":"&datMin
Case "#6"
DKDato = datDay&"-"&datMonth&"-"&datYear&"
"&datHour&":"&datMin&":"&datSec
Case "#7"
DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear
Case "#8"
DKDato = datDay&". "&arrMonth(datMonth-1)&" "&datYear&" kl.
"&datHour&":"&datMin
Case "#9"
DKDato = arrMonth(datMonth)
Case Else
DKDato = nDato
End Select
End Function
Function PutZero(value)
If Len(value) = 1 Then value="0"&value
PutZero = value
End Function
</script>
Håber du kan bruge det
Rasmus
>
> <%
> option explicit
>
> response.buffer = true
> %>
> <html>
> <head>
> <meta http-equiv="Content-Type" content="text/html;
> charset=windows-1252">
> <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
> <meta name="ProgId" content="FrontPage.Editor.Document">
> <title>Ny side 5</title>
> <base target="_self">
> </head>
> <body>
> <CENTER>
> <%
> dim mode
> dim ID
>
> dim cn
> dim rst
> dim SQL
> dim dato
>
> set cn = Server.CreateObject("ADODB.Connection")
> set rst = server.CreateObject("ADOR.Recordset")
>
> cn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> Server.MapPath ("database/k_svommer.mdb")
>
> mode = request.querystring("Mode")
> id = request.querystring("ID")
>
> select case mode
> case "VisNyhed"
> SQL = "SELECT * FROM Nyheder WHERE ID = " & id
> case "VisNyhedsarkiv"
> SQL = "SELECT * FROM Nyheder ORDER BY Dato DESC"
> case else
> SQL = "SELECT TOP 10 * FROM Nyheder ORDER BY Dato DESC"
> end select
>
> rst.Open SQL, cn, 0, 1, 1
>
> if mode = "VisNyhed" then
> if rst.eof then
> response.write "Fejl" & vbcrlf
> else
> response.write "<table border=0 cellpadding=0 cellspacing=0
> width=""80%"">" & vbcrlf
> response.write " <TR><TD><B>" & rst("Overskrift") & "</B> ("
&
> rst("Dato") & ")<BR><BR>" & vbcrlf
> response.write " <TR><TD>" & rst("tekst") & "</A>" & vbcrlf
> response.write "</table>" & vbcrlf
>
> response.write "<BR><A
> HREF=""JavaScript:history.back()"">Tilbage</A>" & vbcrlf
> end if
> else
>
> response.write "<table border=0 cellpadding=0 cellspacing=0
> width=""80%"">" & vbcrlf
> response.write " <tr>" & vbcrlf
> response.write " <td width=""100%"">" & vbcrlf
> response.write "<p align=center><img border=0
> src=""images/intro.gif"" width=228 height=230>" & vbcrlf
> response.write " <tr>" & vbcrlf
> response.write " <td width=""100%""> </td>" & vbcrlf
> response.write " <tr>" & vbcrlf
> response.write " <td width=""100%""
align=center> Velkommen
> til GI 40's hjemmeside<br>denne side indeholder oplysninger om
> gymnastikafdelingen, svømmeskolen og som noget nyt er der
kommet
> en konkurrenceafdeling til pr. den 1. august 2001." & vbcrlf
> response.write "</table>" & vbcrlf
> response.write "<BR>" & vbcrlf
>
> if mode = "VisNyhedsarkiv" then
> response.write "<B>Alle nyheder</B><BR>" & vbcrlf
> else
> response.write "<B>Seneste 10 nyheder</B><BR>" & vbcrlf
> end if
>
> if rst.eof then
> response.write "Ingen nyheder" & vbcrlf
> else
> response.write "<BR>" & vbcrlf
> response.write "<table border=0 cellpadding=0 cellspacing=0>"
&
> vbcrlf
> do until rst.EOF
> if isnull(rst("tekst")) then
> response.write "<TR><TD>" & rst("Dato") & " " &
> rst("Overskrift") & vbcrlf
> else
> response.write "<TR><TD>" & rst("Dato") & " <A
> HREF='forside.asp?Mode=VisNyhed&ID=" & rst("ID") & "'>" &
> rst("Overskrift") & "</A>" & vbcrlf
> end if
> if datediff("d", rst("Dato"), date()) < 7 then
> response.write "<IMG SRC=""images/ny.gif"" TITLE=""Mindre
end
> en uge gammel"">" & vbcrlf
> end if
>
> rst.movenext
> loop
> response.write "</table>" & vbcrlf
> response.write "<BR><A
> HREF=""forside.asp?Mode=VisNyhedsarkiv"">Vis nyhedsarkiv</A>" &
> vbcrlf
> end if
>
> end if
>
> rst.close
> cn.close
>
> set rst = nothing
> set cn = nothing
> %>
> </CENTER>
> </body>
> </html>
>
>
> --
> 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
--
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