Endnu en Dato fejl i Access
HejEfter at jeg nu har forsøgt 1000 gange at finde fejlen på, hvorfor at den bliver ved med at skrive datoen på engelsk, søger jeg nu jeres hjælp.
I Access har jeg forsøgt med 2 muligheder, for at se om fejlen lå der. Den ene er hvor jeg har sat dato-feltet med " DD-MM-YYYY " og så hvor feltet er helt blankt.
Men intet virker.
Her er min kode, som udskriver siden...
<%@ Language=VBScript %>
<% Session.LCID = 1030 %>
<!--#include File="tabel.asp"-->
<html>
<head>
<title>Sound Of Memphis Kalender</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
a:hover { font-family: Arial, Helvetica, sans-serif; font-size: 10pt; color: black; text-decoration: underline}
-->
</style>
<link rel="stylesheet" href="style.css"></head>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<title>Sound Of Memphis Kalender</title>
</head>
<body bgcolor="#ffffff">
<table width="50%" align="left" border="1" >
<tr>
<td> <p align=center> Velkommen til kalenderen! </p>
<form method="POST" action="update.asp">
<b>Spillejob - Skriv BOOKING<br></b>
<b>Navn:</b> Hvis man <b>IKKE </b>kan. Så udfyld KUN Navn + dato + (evt. beskrivelse)<br>
<input type="text" name="Person" size="30"><br>
<br>
<b>Spillested:</b><br>
<input type="text" name="Spillested" size="30"><br>
<br>
<b>Spilledato:</b><br> SKAL skrives på følgende måde (f.eks. 16-03-2006) Bindestreg skal bruges<br>
<input type="text" name="Spilledato" size="50"><br>
<br>
<b>Spilletid:</b><br>
<input type="text" name="Spilletid" size="50"><br>
<br>
<b>Beskrivelse:</b>(hvis vi f.eks. ikke skal have lys med)<br>
<textarea name="Beskrivelse" rows="8" cols="25"></textarea><br>
<input type="submit" value="Tilføj til kalenderen"><br><br><br>
<a href="sparretdage.asp">Udskriv dage som er spærret</a><br><br>
<a href="spilledage.asp">Udskriv dage hvor vi skal spille</a><br><br>
<a href="helekalenderen.asp">Udskriv hele kalenderen</a>
</p>
</table>
</td>
</tr>
<td width="50%">
<p align="center" ><b>Spillejobs</b>
<%
dim objConn, oRS, SQL
Set objConn = Server.CreateObject("ADODB.Connection")
'--oprette recordset
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Database.mdb")
Set oRS = Server.CreateObject("ADODB.Connection")
'--Åbne recordset
set oRS = objConn.Execute("SELECT ID, Person, Spillested, Spilledag, Spilletid, Spilledato, Beskrivelse FROM kalender where Person='Booking' order by Spilledato")
'--Udskriv poster
Tabel oRS
oRS.Close
Set oRS = Nothing
objConn.Close
Set objConn = Nothing
' ----------- EN I ALT TÆLLER -----------------------
Dim Connect, connString
Set Connect = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Connect.Open connString
QueryTotal = "Select count(*) as Found from kalender where person='booking' and spilledato>date();"
Set rsTotal = connect.Execute(QueryTotal)
Ialt = rsTotal("Found")
response.write "Der er i alt <b>" & Ialt & "</b> Spillejobs i år"
' ----------- EN I ALT TÆLLER SLUT-----------------------
response.write "<br><br>"
' ----------- EN I ALT TÆLLER -----------------------
Set Connect = Server.CreateObject("ADODB.Connection")
connString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
Connect.Open connString
QueryTotal = "Select count(*) as Found from kalender where person<>'booking' and spilledato>date();"
Set rsTotal = connect.Execute(QueryTotal)
Ialt = rsTotal("Found")
response.write "Der er i alt <b>" & Ialt & "</b> dage i år, hvor vi er optaget"
' ----------- EN I ALT TÆLLER SLUT-----------------------
%>
</td>
<td width="50%">
<p align="center">Dage som er <b>SPÆRRET</b>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
'--oprette recordset
objconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("Database.mdb")
Set oRS = Server.CreateObject("ADODB.Connection")
'--Åbne recordset
set oRS = objConn.Execute("SELECT ID, Person, Spillested, Spilledag, Spilletid, Spilledato, Beskrivelse FROM kalender where Person<>'Booking' order by spilledato")
'--Udskriv poster
Tabel oRS
oRS.Close
Set oRS = Nothing
objConn.Close
Set objConn = Nothing
%>
</table>
</body>
</html>
</td>
</tr>
</table>
</body>
</html>
