lave side opdeling
hejsa! :-)Jeg har siddet og prøvet lave lidt på mit script så den automatisk laver en ny side hver gang den er nået til 30 titler. før jeg smider min kode ind som sådan som jeg prøvede den vil jeg gerne helst vente til i har prøvet for ikke at forvirre jer... jeg har nemlig forvirret mig selv godt og grundigt med de forskellige forsøg:o) Men hvis i heller ikke kan vil jeg prøve at vise jer min code så kan de være i kan rette den til.
Her er den kode som der skal tilføjes side opdelingskoden til.
--------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
str_sql2 = "SELECT * FROM downloads WHERE godkendt=(1) "
If Request("alfa") > "" Then str_sql2 = str_sql2 & " AND instr('" & LCase(Request("alfa")) & "',lcase(left(title,1)))>0"
Set rs = Conn.Execute (str_sql2)
%>
<div align="center">
<%
if rs.EOF then
%>
<span class="overskrift"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><b>Tomt!</b></font> </span>
<%
else
%>
<table width="88%" height="24" cellspacing="2">
<tr bgcolor="Black">
<td width="42%"><font face=tahoma size=2 color="#FFFFFF"><b>Titel</b></font></td>
</tr>
<%
Do Until rs.EOF
%>
<tr>
<td width="42%"><font face=tahoma size=2>
<% = rs("title") %>
</font></td>
</tr>
<%
rs.MoveNext
Loop
%>
<p></p>
</table>
</div>
<% end if
rs.Close
Conn.Close
Set rs = Nothing
Set Conn = Nothing %>
---------------------
