Mystik omkring datoer
Nogle af de datoer, som jeg har i min accessdatabase ændrer sig, når jeg skriver dem ud i mit ASP-dokument...Min accessdatabase ser sådan ud:
Id Fornavn Efternavn Telefon Foedselsdato
1 Anders And 33221100 20-01-1954
2 Fætter Højben 44332211 14-11-1952
3 Joakim von And 55443322 03-06-1935
5 Mickey Mouse 77665544 14-03-1956
6 Andersine And 88776655 28-04-1959
43 Fætter Guf 99887766 20-04-1964
93 eks0 ffff 66666666 01-02-2000
99 eks1 fff 66666666 01-02-1900
103 eks2 fff 66666666 01-02-1800
110 eks3 fff 66666666 01-02-1700
111 eks4 fff 66666666 01-02-1600
112 eks5 fff 66666666 01-02-1500
Mit resultat ser sådan ud:
Fornavn Efternavn Telefon Fødselsdato
Anders And 33221100 20-01-1954
Fætter Højben 44332211 14-11-1952
Joakim von And 55443322 03-06-1935
Mickey Mouse 77665544 14-03-1956
Andersine And 88776655 28-04-1959
Fætter Guf 99887766 20-04-1964
eks0 ffff 66666666 01-02-2000
eks1 fff 66666666 01-02-1900
eks2 fff 66666666 01-02-1800
eks3 fff 66666666 19-01-1700
eks4 fff 66666666 25-12-1599
eks5 fff 66666666 01-12-1499
Mit ASP-dokument ser sådan ud:
<% @ Language="VBScript" LCID=1030 %>
<% Option Explicit %>
<% response.buffer=true %>
<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %>
<%
Dim CONN, DSN, SQL, RS
Set CONN = Server.CreateObject("ADODB.CONNection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
CONN.Open DSN
SQL = "Select * from personer"
Set RS = CONN.Execute(SQL)
%>
<html>
<title>Vis database</title>
<head><link REL="stylesheet" TYPE="text/css" href="generel.css"></head>
<body>
<table tr class="list" cellspacing="0" cellpadding="0">
<%
response.write"<tr class='listhead'>" &_
"<td>" & "Fornavn" & "</td>" &_
"<td>" & "Efternavn" & "</td>" &_
"<td>" & "Telefon" & "</td>" &_
"<td>" & "Fødselsdato" & "</td>" &_
"</tr>"
do while not RS.eof
response.write "<tr>"
response.write "<td>" & RS("Fornavn") & "</td>"
response.write "<td>" & RS("Efternavn") & "</td>"
response.write "<td>" & RS("Telefon") & "</td>"
response.write "<td>" & RS("Foedselsdato") & "</td>"
response.write"</tr>"
RS.MoveNext
loop
%>
</table>
<%
CONN.Close
Set CONN = Nothing
%>
</body>
</html>
