optimering af script
denne lille bid :-) tager en krig om at blive færdig på min server.Hvad er det der tager så lang tid ? og hvad kan optimeres.
Jeg skal bare have listet alle varer, og have mulighed for at slette dem og tilføje en ekstra tekst til en vare.
Tager det ekstra lang tid pga tabellen ? eller hvad går galt ?
----
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>varer-admin</title>
</head>
<body link="#000080" vlink="#000080" alink="#000080">
<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../webshop-dk/data/priser.mdb")
Conn.Open DSN
%>
<p align="center"><font size="6" color="#808080">Slet / rediger varer</font></p>
<div align="center">
<center>
<table cellspacing="0" border="1" height="48" width="651" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td align="center" bgcolor="#808080" height="19" width="60">
<font color="#FFFFFF">varenummer</font></td>
<td align="center" bgcolor="#808080" height="19" width="74">
<font color="#FFFFFF">Gruppe</font></td>
<td align="center" bgcolor="#808080" height="19">
<font color="#FFFFFF">Betegnelse</font></td>
<td align="center" bgcolor="#808080" height="19" width="150">
<font color="#FFFFFF">Ekstra tekst (fx udsolgt)</font></td>
<td align="center" bgcolor="#808080" height="19" width="75"><font color="#FFFFFF">action</font></td>
</tr>
<%
' SQL forespørgsel
strSQL = "Select * from varer order by nr"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
if rs.eof OR rs.bof then
Response.Write "<b><center>Der er ingen varer i din butik endnu<br><br>"
else
' Gennemløb Recordset (rs) med en løkke
Do
%>
<form method="post" action="varerettet.asp?id=<%response.write rs("id")%>" name="f<%response.write rs("id")%>">
<tr>
<td align="left" bgcolor="#FFFFFF" height="19" width="60"><font color="#000080" size="2"><%response.Write rs("nr")%></b></font> </td>
<td align="left" bgcolor="#FFFFFF" height="19" width="74"><font color="#000080" size="2"><%response.Write rs("gruppe")%></b></font> </td>
<td align="left" bgcolor="#FFFFFF" height="19"><font color="#000080" size="2"><%response.Write rs("betegnelse")%> </td>
<td align="left" bgcolor="#FFFFFF" height="19" width="150">
<p align="center"><input type="text" name="tekst" size="20" value="<% response.write rs("tekst")%>"></td>
<td align="center" bgcolor="#FFFFFF" height="19" width="75"><font color="#000080" size="2"><a href="vareslet.asp?id=<%response.write Rs("id")%>">
<font color="#FF0000">Slet</font></a><font color="#FF0000"> </font></font>
<a href="java script:document.f<%response.write rs("id")%>.submit();">
<font size="2">opdater</font></a></td>
</tr>
</center>
</div>
</form>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
end if%>
</table>
</div>
<p> </p>
</body>
</html>
