Asp-fil åbner periodisk slet ikke (med udtræk fra Access)
HejJeg har et problem med en fil, der kun en gang i mellem ikke åbner, men efter reload gør det. Jeg mener ikke, at jeg åbner databasen to gange.
Filen ser sådan ud:
<% @Language=JavaScript %>
<!-- #include file=\"database.asp\" -->
<html>
<head>
<title></title>
</head>
<body bgcolor=\"#99CC99\" link=\"#306800\"
vlink=\"#808080\" alink=\"ffffff\">
<font face=\"Comic Sans MS\" size=\"-1\" color=\"#306800\"><b>
Varegrupper:</b></font>
<table width=95% valign=\"top\" border=\"1\" bordercolor=\"#306800\" cellpadding=\"2\" cellspacing=\"0\">
<%
// lav kategorioversigt
res = objConnection.Execute(\"SELECT * FROM Varegruppe ORDER BY ID\");
while (!res.EOF) {
Response.write(\"<tr><td valign=top><font face=\'Comic Sans MS\' size=\'-1\'><b>\");
Response.Write(\"<a target=center style=\'text-decoration:none\' href = search.asp?varegruppe=\");
Response.Write(res.Fields(\"ID\"));
Response.Write(\">\");
Response.Write(res.Fields(\"varegruppe\"));
Response.Write(\"</A><BR>\");
Response.write(\"</font></td></tr>\");
res.move(1);
}
%>
<p> <font face=\"Comic Sans MS\" size=\"-1\" color=\"#336600\"><br>
</font>
</table>
</body>
</html>
**************************
Filen search.asp ser sådan ud:
<%
sql = \"\";
if (Request.QueryString(\"varenr\") != garbage) {
// Søgning på varenr fra en anden side.
// Varenummerets id er angivet i varenr.
// Dette er det eneste søgekriterium.
// Find de produkter, varenummeret hører til.
varenrid = Request.QueryString(\"varenr\");
sql = \"SELECT * FROM varenrsearch WHERE varen.varenr= \";
sql += varenrid;
}
if (Request.QueryString(\"varegruppe\") != garbage) {
// Søgning på varegruppe. Varegruppe angiver ikke varegruppens
// navn, men dens id. Dette er det eneste søgekriterium.
// Find alle produkter i denne varegruppe.
varegruppe = Request.QueryString(\"varegruppe\");
sql = \"SELECT * FROM varegruppesearch WHERE varegruppe= \" + varegruppe;
}
res = objConnection.Execute(sql);
%>
<h5><font face=\"Comic Sans MS\" size=\"-1\" color=\"#306800\">Søgeresultat</font></h5>
<font face=\"Comic Sans MS\" size=\"-1\" color=\"#306800\"><%
if (res.EOF) {
%> Der er ingen varer, der opfylder søgekriterierne. </font> </td>
</tr>
</table>
</body>
</html>
<%
Response.End();
}
%>
<font face=\"Comic Sans MS\" size=\"-1\" color=\"#306800\">Der er fundet følgende varer,
der opfylder søgekriterierne: </font><font face=\"Times New Roman, Times, serif\" size=\"-1\"><br>
<br></font>
<table width=100% border=\"2\" bordercolor=\"#336600\" cellpadding=\"2\" cellspacing=\"0\">
<%
while (!res.EOF) {
%>
<tr>
<td> <font face=\"Comic Sans MS\" size=\"-1\" color=\"#306800\"> <%=res.Fields(\"Varenr\")%>
<%=res.Fields(\"Varenavn\")%></font></td>
<td valign=\"middle\">
<form action=tilfoj.asp method=post name=\"\" target=right>
<input type=hidden name=produkt value=<%=res.Fields(\"ID\")%>>
<input type=submit value=\"Bestil vare\">
</form>
</td>
</tr>
<%
res.Move(1);
}
%>
</table>
</body>
</html>
*******************************
Filen database.asp ser sådan ud:
<%
objConnection = Server.CreateObject(\"ADODB.Connection\");
strConn = \"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =\" +
Server.MapPath(\"XX.mdb\");
objConnection.Open(strConn);
function toSqlDate(date) {
return \"\'\" + date.getDate() + \"-\" + (date.getMonth() + 1) + \"-\" + date.getYear() + \"\'\";
}
%>
På forhånd tak - jeg er nybegynder.
