Dato format

Lige nøjagtig datoformater giver ofte problemer i access, Jeg gør selv det at jeg bruger java/vbscript til at fange datoformatet og udskrive det som jeg vil have det i mine asp scripts.

Hilsen
Kim fra http://www.bufferzone.dk

Hej bufferzone
tak for dit svar, er det noget du har et eksembel på ???

Du kan teste den side hvor det går galt
http://www.c-house.dk/maxweb

klik på en dato på kalendern og opret en event,
der efter skal du edit den event, og læg mærke til dato format

test login er guest guest

jeg har eksempler men kun på intranet, der ikke er forbundet til Internettet, men jeg kan prøve at give dig et scripteksempel når jeg kommer på arbejde i morgen, så kan du se hvordan jeg gør det.

På forhånd tak

Dette script indeholder funktionen der omformar dataformatet

<%
Function visDato(dato)
    If dato <> "" Then
        visDato = day(dato) & ". "
        Select Case Month(dato)
                Case 1: visDato = visDato & " januar"
                Case 2: visDato = visDato & " februar"
                Case 3: visDato = visDato & " marts"
                Case 4: visDato = visDato & " april"
                Case 5: visDato = visDato & " maj"
                Case 6: visDato = visDato & " juni"
                Case 7: visDato = visDato & " juli"
                Case 8: visDato = visDato & " august"
                Case 9: visDato = visDato & " september"
                Case 10: visDato = visDato & " oktober"
                Case 11: visDato = visDato & " november"
                Case 12: visDato = visDato & " december"
        End Select
        visDato = visDato & " " & year(dato)
    End If
End Function

Function formDato(hvilken)
    formDato = day(hvilken) & "-" & month(hvilken) & "-" & year(hvilken)
End Function
%>

Dette script udskriver udtrækket fra database til browseren under brug af det datoformat skabt af funktionen
<%
    strSql="SELECT * From database WHERE (startDato <= date() AND slutDato >= date()) ORDER BY dato DESC"
    set objConn=server.createObject("ADODB.Connection")
   
    with objConn
        .open ConnectionString
        set objRS=.Execute(strSql)
    If Not objRS.EOF Then
    Response.Write "<b>Nyheder:</b><br><br>"
   
        While not objRS.EOF
            Response.write "<TABLE cellpadding='6' bgcolor='#F0F8FF' style='font-family: verdana; font-size:10px; border: 1px solid darkblue' width='487' cellspacing='0'>"
            Response.write "<TR><TD><b>" &objRS("overskrift") &"</b><P>" &objRS("tekst") &"</P><P></TD></TR>"
            Response.write "<TR><TD bgcolor='#B0CCFF'> <i>Forfatter:</i> <b>" &objRS("ansvarlig") & "</b> - " & visDato(objRS("dato"))
            response.write "</TD></tr></TABLE><br>"           
            objRS.moveNext
        Wend
    End If   
    .close
    end with
%>