Udløbsdato på info fra DB
Hej!Jeg fik mig et svar fra Dawin, som jeg var for hurtig til at acceptere, fordi jeg nu får en fejlmelding. Det jeg ønsker, er at have en udløbdsdato på det jeg henter fra min DB til min gæstebog.
Min fil ser ud som følgende:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Systematics homekitchen</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<link href="ego.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
@import url("systematic.css");
-->
</style>
<style>
BODY { SCROLLBAR-FACE-COLOR: #ffffff;
SCROLLBAR-HIGHLIGHT-COLOR: #ff0000;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #DFDFDF;
SCROLLBAR-ARROW-COLOR: #ff0000;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</style>
</head>
<body class="broedtxt">
<table width="680" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60"><img src="grafik/trans.gif" width="80" height="30" border="0"></td>
<td width="620"></td>
</tr>
<tr>
<td></td>
<td valign="top" class="overskrifter"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="grafik/overskrifter/risogros.gif" width="240" height="24"></td>
</tr>
<tr>
<td><img src="grafik/trans.gif" width="6" height="15"></td>
</tr>
<tr>
<td class="broedtxt"><p>Om det må være ris eller ros, så
vil disse kommentarer ligge tilgængelig i to måneder,
hvorefter de vil blive slettet fra denne side.<br>
<img src="grafik/trans.gif" width="6" height="10"> </p>
</td>
</tr>
</table></td>
</tr>
<tr>
<td></td>
<td valign="top" class="broedtxt"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../Systematic/users.mdb")
Conn.Open DSN
' SQL forespørgsel - desc = sætter kommentarerne i nummerorden i forhold til 'ID'.
' Denne kode (now()-60)>udldato fortæller, at kommentarerne skal udløbe efter 60 dage.'
' Kommentarerne kunne også være hentet ind efter top 20 med denne streng:
' strSQL = "Select top 20 * from risogros order by ID desc"
strSQL = "Select * from risogros where (now()-1)>udldato order by ID desc"
' Udfør forespørgsel (objRec indeholder nu resultatet)
Set objRec = Conn.Execute(strSQL)
do while not objRec.eof
comment = Replace(objrec("text"), vbCrLf, "<BR>")
response.write "<table border=""1"" bordercolor=""#cccccc"" width=""550"" cellpadding=""20"" cellspacing=""3""><tr><td bordercolor=""#cccccc"">"
response.write "<table width=""550"" align=""center"" cellpadding=""3"" cellspacing=""0""><tr class=""broedtxt""><td background=""system/td_back.gif"">"
response.write "<span class=""overskrifter"">" & objrec("nick") & "</span>"
response.write "</td><td align=""right"" background=""system/td_back.gif"">"
response.write "<a href=mailto:" & objrec("email") & " onFocus=""this.blur()""><img src=grafik/envelope.gif border=0 alt=" & objrec("email") & "></a>"
response.write "</td></tr>"
response.write "<tr><td colspan=""2"">"
response.write "<table class=""broedtxt"" cellpadding=""0"" cellspacing=""0"" width=""100%""><tr><td>"
response.write comment
response.write "</td></tr></table>"
response.write "</td></tr>"
response.write "<tr class=""datotidDB""><td background=""system/td_back2.gif"">"
response.write "date: " & objrec("dato")
response.write "</td><td align=""right"" background=""system/td_back2.gif"">"
response.write "time: " & objrec("tid")
response.write "</td></tr></table>"
response.write "</td></tr></table><br>"
objRec.movenext
loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
Fejlen den melder er:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/systematic/risogros.asp, line 83
Er der hurtigt hjælp at hente?
//D
