forbedring af news system..

mon du mener:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

if request.querystring("id") <> "" then
strSQL = "Select * from news where ID = " & CInt(request.querystring("id"))
set rs = Conn.Execute(strSQL)
%>
<table border="0" width="100%">
  <tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift") %></font></td>
<td rowspan="3" valign="top" width="8"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
  <tr>
    <td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
  </tr>
  <tr>
    <td width="100%" valign="top">- Skrevet af: <%=rs("af")%></td>
  </tr>
<tr><td><a href="java script:history.go(-1)"></td></tr>
<%
else

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)

%>

<%
i=0
Do While not rs.eof
%>
<table border="0" width="100%">
  <tr>
<%
str1 = "<td width=""100%"" valign=""top""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """>" & rs("overskrift") & "</a></font></td>"
str2 = "<td rowspan=""3"" valign=""top"" width=""18""><font size=""1"" face=""Verdana""><a href=""?id="&rs("id") & """><img border=""0"" src=""" & rs("billede") & """></a></font></td>"
i=i+1
if i mod 2 = 0 then
  Response.Write str1 & str2
else
  Response.Write str2 & str1
end if
%>
  </tr>

</table>
<hr style="border: 1 dotted black" width="200" size="1" color="black">
<%
%>
<%
rs.Movenext
loop
end if
%>

You´re so right. :P sæt et svar

Sejt :-)

Det er et svar her..!