Langsom database
Hej!Jeg har lidt problemer med en kode, som skal hente nogle data ud fra en Access database. Min kode ser sådan ud:
<html>
<head>
<title>Sebastians Ønskeliste - Julen 2003</title>
<link href="styles.css" type="text/css" rel="stylesheet">
<script type="text/javascript" language="JavaScript">
<!--
function popup(url) { //v.2.0
window.open(url,'','width=360, height=480, scrollbars=yes');
}
//-->
</script>
</head>
<body background="images/bg.jpg">
<p><b>Sebastians Ønskeliste - Julen 2003</b></p>
<table width="100%" cellpadding="0" cellspacing="0" style="border: 1px solid #D3A85C;">
<tr>
<td width="25%" style="border-bottom: 1px solid #D3A85C;"><b>Titel:</b></td>
<td width="25%" style="border-bottom: 1px solid #D3A85C;"><b>Beskrivelse:</b></td>
<td width="25%" style="border-bottom: 1px solid #D3A85C;"><b>Set hos:</b></td>
<td width="25%" style="border-bottom: 1px solid #D3A85C;"><b>Pris:</b></td>
</tr>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db.mdb")
Conn.Open DSN
strSQL = "Select * from List"
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
%>
<tr>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''">---</td>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''">---</td>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''">---</td>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''">---</td>
</tr>
<%
End If
Do While Not rs.EOF
%>
<tr>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''"><%=rs("Title")%><% If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "80.163.84.218" Then %> (<a href="java script:popup('edit.asp?id=<%=rs("ID")%>')">ændr</a>/<a href="java script:popup('del.asp?id=<%=rs("ID")%>')">slet</a>)<% End If %></td>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''"><%=rs("Description")%></td>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''"><%=rs("Shop")%></td>
<td width="25%" onmouseover="this.bgColor='#5A5A79'" onmouseout="this.bgColor=''"><%=rs("Price")%></td>
</tr>
<%
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
</table>
<p><b>OBS!</b> Ønskerne er ikke listet efter en bestemt rækkefølge.</p>
<% If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "80.163.84.218" Then %>
<a href="java script:popup('add.asp')">Tilføj ønske</a>
<% End If %>
</body>
</html>
Problemet er, at den står og loader i lang tid, hvorefter den så timer out.
Hvad kan der være galt?
