Klassisk DB problem

Hej

Jeg har fået et klassisk database problem når jeg skal udskrive via Access og ASP.
Den vender datoen om...

Jeg har smidt <% Session.LCID = 1030 %> i toppen af hvert asp side, men når jeg skal skrive f.eks. 01-10-2008, så skriver den 10-01-2008..

Håber en kan hjælpe..

Her er koden som udskriver siden på skærmen..

<% Session.LCID = 1030 %>

<center>
<%
Sub Tabel(Byref objRecordSet)
    Dim i
    Response.Write"<TABLE BORDER=1  CELLSPACING=0 CELLPADDING=2 ALIGN=CENTER frame=below>"

    'udskriv header( feltnavn)
    Response.Write "<tr bgColor=#CDC9C9>"
   
        For i = 0 to objRecordset.Fields.Count - 1

            Response.Write "<td><font face=arial size=1><b>" & objRecordset.fields.item(i).name & "</b></font></td>"
           
        Next

    Response.Write "</tr>"

    'udskriv krop (feltpost)
   
   
   
    j=0
   
    Do While Not objRecordset.EOF
    select case weekday(objrecordset("Spilledato"))
    case 1
    dage ="Søndag"
    case 2
    dage ="Mandag"
    case 3
    dage ="Tirsdag"
    case 4
    dage ="Onsdag"
    case 5
    dage ="Torsdag"
    case 6
    dage ="Fredag"
    case 7
    dage ="Lørdag"
   
    end select
   
   
    j=j+1
   
        if(j mod 2)=0 then
       
        Response.Write "<tr bgColor=#F8F8FF>"
            else Response.Write "<tr bgColor=#E8E8E8>"
        End if
       
   
       
           

           
            'response.write "<td>" & objRecordset("Id") & "</td>"
            response.write "<td>" & objRecordset("Person") & "</td>"
            'response.write "<td>" & objRecordset("Spillested") & "</td>"
            response.write "<td>" & dage & "</td>"           
            'response.write "<td>" & objRecordset("Spilletid") & "</td>"
            response.write "<td>" & objRecordset("Spilledato") & "</td>"
           
            'response.write "<td>" & objRecordset("Beskrivelse") & "</td>"
           
           
            response.write "<td><a href=sletpost.asp?ID=" & objRecordset("ID") & ">Slet</a></td>"
           
           
        objRecordset.MoveNext
       
        Response.Write "</tr>"
       
    Loop
   
    Response.Write "</table>"
   
End Sub
%>
</center>