optimering med Response.Write hvordan?
Jeg har disse 2 sider som giver mig kvaler når jeg prøver at optimer siderne med Response.write så jeg ikke skal kalde fortolkeren så mange gange.Er der nogen der kan hjælpe?
Side 1:
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<TITLE>Titel</TITLE>
<link rel=stylesheet type="text/css" href="fd.css">
</HEAD>
<BODY bgcolor="white" >
<%'server.mappath("./")%>
<%
Dim amt
amt = Request.Querystring("amt")%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
set rs=connect.execute("SELECT * From tabel Where amt = '" & amt & "' Order By firma ASC")
If rs.eof then
%>
<table align="center" bgcolor="white">
<tr>
<td> Ingen poster fundet
</td>
</tr>
</table>
<%
Else %>
<Center>Firmaerne står i alfabetisk orden</center>
<% do until RS.EOF
%>
<table border="0" cellpadding="3" cellspacing="0" width="490" align="center" >
<tr>
<td class="firma1" colspan="2"> <%=rs("firma")%>, <%=rs("adresse1")%>, <%=rs("adresse2")%>, <%=rs("postnummer")%> <%=rs("town")%> <a href="detaljer2.asp?id=<%=rs("id")%>" target="detaljer" class="laes">Læs mere</a> </td>
</tr>
<tr><td height="1"></td></tr>
</table>
<%
rs.movenext
loop
end if
RS.Close
Connect.Close
Set RS = Nothing
Set Connect = nothing
%>
</BODY>
</HTML>
Side 2:
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<TITLE>Titel</TITLE>
<link rel=stylesheet type="text/css" href=" fd.css">
<meta http-equiv="imagetoolbar" content="no">
</HEAD>
<BODY bgcolor="white" >
<%
Set rs = Server.CreateObject("ADODB.Recordset")
set rs=connect.execute("SELECT * From tabel Where id = " & Request.Querystring("id"))
%>
<%
If rs.eof then
%>
<table align="center" bgcolor="white">
<tr>
<td> Ingen poster fundet
</td>
</tr>
</table>
<%
Else %>
<% do until RS.EOF
%>
<br>
<table align="left" cellpadding="0" cellspacing="0" border="0" width="250">
<tr>
<td class="firma"><%=rs("firma")%> </td>
<td class="id"> <%=rs("id")%></td>
</tr>
<tr>
<td colspan="2" class="adresse">
<%=rs("adresse1")%><br>
<%=rs("adresse2")%><br>
<%=rs("Postnummer")%> <%=rs("town")%><br>
</td>
</tr>
<tr>
<td class="tlf" colspan="2">
Telefon: <%=rs("tlf")%><br>
Fax: <%=rs("fax")%><br>
Email: <a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><br>
Hjemmeside: <a href="http://<%=rs("www")%>" target="_blank"><%=rs("www")%></a>
</td>
</tr>
<tr><td colspan="2" class="beskrivelse"><%=rs("beskrivelse")%></td></tr>
<tr><td colspan="2" class="beskrivelse"></td></tr>
</table>
<%
rs.movenext
loop
end if
RS.Close
Connect.Close
Set RS = Nothing
Set Connect = nothing
%>
</BODY>
</HTML>
DEt var siderne
