Del arkiv
Hejsa.Jeg bruger nedenstående kode som skabelon for mine nyheder, når de alle skal vises. Mit spm er, kan man få den til at dele dem op? For siden er ved at bliver meget lang. Og det ville være skønt hvis man kunne dele skidtet over flere sider?
<!-- #Include file="header.inc" -->
<body>
<table width="800" cellspacing="0" cellpadding="0" border="0" class="main">
<tr>
<td width="800" colspan="3" bgcolor="#FFFFFF">
<!-- #Include file="top.asp" -->
</td>
</tr>
<tr>
<td class="menu_left_tbl"><!-- #Include file="leftmenu.asp" --></td>
<td class="center_tbl">
<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("arkiv.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect
strSQL = "SELECT * FROM arkiv ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)
Do While Not rs.EOF
overskrift = rs("overskrift")
tekst = rs("tekst")
navn = rs("navn")
kilde = rs("kilde")
link = rs("link")
pic = rs("pic")
comment = rs("comment")
%>
<table cellpadding="0" cellspacing="1" border="0">
<tr>
<td colspan="2" class="menu_head" width="518" height="15" align="left">
<table cellpadding="0" cellspacing="0">
<tr>
<td height="14" width="400" align="left"><span id="font"><font color="#FFFFFF"><%=overskrift%></td>
<td width="129" align="right"><font color="#FFFFFF">Navn: <%=navn%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="4streger" align="middle" width="65"><img src="gfx/ts_top_billede_opdatering.gif"></td>
<td rowspan="4" width="445" class="4streger" bgcolor="#FFFFFF" align="middle"><br>
<table cellpadding="0" cellspacing="0" border="0">
<tr>
<td colspan=3 height="100" valign="top"><span id="font"><%=tekst%></td>
</td>
</tr>
<tr>
<td width="152" height="12"><span id="font"><b>»</b><a href="<%=comment%>">Diskuter artikel</a></td>
<td width="152" align="middle"><span id="font"><b>»</b>Kilde: <%=kilde%></td>
<td width="152" align="right"><a href="<%=link%>" target="_new"><b>»</b>Direkte link</A></td>
</tr>
</table>
</tr>
<tr>
<td class="4streger" width="65" height="80" align="middle" bgcolor="#FFFFFF"><img src="pics/<%=pic%>" height="70" width="53"></td>
</tr>
<tr>
<td class="4streger" align="middle" width="65"><img src="gfx/ts_bund_under_billede_opdateringb.gif"></td>
</tr>
<tr>
<td class="4streger" align="middle" width="65" height="9"><img src="gfx/ts_bund_under_billede_opdatering.gif"></td>
</tr>
</table>
<br>
<%
rs.movenext
loop
rs.Close
objConn.Close
%>
<br>
<br><br><center> <% Set objSponsor = Server.CreateObject("MSWC.ContentRotator")
Response.Write objSponsor.ChooseContent("sponsor.txt")
Set objSponsor = Nothing %>
<!-- #Include file="bottom.asp" -->
