Omskrivning af kode

Ideer til layout af nedenstående kode (så den ikke belaster serveren for meget)

<!-- #INCLUDE FILE="checkbruger.asp" -->
<html>

<head>
<LINK REL=STYLESHEET HREF="typografi.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
</head>

<body>
<!-- #INCLUDE FILE="header.asp" -->
<font face="Times New Roman" size="3">
<%
  Session.LCID = 1030
  soegeord = TRIM(Request("soegeord"))
  If soegeord <> "" Then
    Set Con = Server.CreateObject("ADODB.Connection")
    Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=\\server\mappe\database.mdb"
    SQLtemp="SELECT * FROM Artikler WHERE beskrivelse LIKE '"
    SQLtemp=SQLtemp & "%" & soegeord & "%" & "' OR titel LIKE '"
    SQLtemp=SQLtemp & "%" & soegeord & "%" & "' OR resume LIKE '"
    SQLtemp=SQLtemp & "%" & soegeord & "%" & "' OR hardware_id LIKE '"
    SQLtemp=SQLtemp & "%" & soegeord & "%" & "' ORDER BY opdateret_d DESC"
    Set RS = Con.Execute( SQLtemp )
    If RS.EOF Then
      Response.Write("Der blev desværre ikke fundet nogle artikler indeholdende søgeordet <font color='#FF0000'>"& soegeord & "</font>")
    Else
%>Artikler</font>
<table width="100%" border=0 cellspacing=0 cellpadding=2>
<% 
  While Not RS.EOF
%>
<tr><td><ul>
      <li><font face="Times New Roman" size="3"><a href="visartikel.asp?artikler_id=<%response.write RS("artikler_id")%>"><%response.write RS("titel")%></a> <%response.write RS("opdateret_d")%> <face="Times New Roman" size="2">
      <br>
<%
  Response.Write RS("resume")
  RS.MoveNext
  WEND 
%>
</li></ul></td></tr>
</table>
<% 
  End If
  End If
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=\\server\mappe\database.mdb"
SQL1 = "SELECT * FROM Artikler ORDER BY opdateret_d DESC"
SQL2 = "SELECT COUNT(*) AS Antal FROM Artikler"
Set RS = Con.Execute( SQL1 )
Set RS2 = Con.Execute( SQL2 )
If soegeord = "" Then
%>
<font face="Times New Roman" size="3">
Der er <%Response.Write RS2("Antal")%> artikler i databasen.</font>

<table width="100%" border=0 cellspacing=0 cellpadding=2>
<% While Not RS.EOF%>
<tr><td><ul>
      <li><font face="Times New Roman" size="3"><a href="visartikel.asp?artikler_id=<% Response.Write RS("artikler_id") %>"><% Response.Write RS("titel") %></a> <% Response.Write RS("opdateret_d") %> <face="Times New Roman" size="2">
      <br>
<%
  Response.Write RS("resume")
  RS.MoveNext
  WEND 
%>
</li></ul></td></tr>
</table>
<% End If%>
</body>