|
|||||||
|
|
|
 |
|
|
Strumenti |
13-03-2004, 13:06
|
#1 |
|
Member
Iscritto dal: Nov 2003
Città: Verona
Messaggi: 162
|
Paginazione con database Acess
ho uno script per delle news o articoli, con la possibilità di mettere anche immagini come foto, ecc.
tutto funziona, vorrei però che dopo 5 news mi comparisse la scritta "pagina sucessiva" e "pagina precedente". Ho provato lo script Paginazione di Creamweb.it ma senza successo. vi posto il codice della pagina in questione, mi aiutate per favore  <% response.buffer=true%> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/news/db.mdb")&";" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("d:\inetpub\webs\fansclubchievoit\public\news") strImageFolder="/public/news/images/" folder1 = strImageFolder folder2 = Server.MapPath(folder1) Set files = Server.CreateObject("Scripting.FileSystemObject") If Not files.FolderExists(folder2) Then files.CreateFolder(folder2) End If Set objfolder = files.getFolder(folder2) %> <link href="public/news/style.css" rel="stylesheet" type="text/css"> <% set rsOldnews = connect.execute("select id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where visa=1 order by datum desc") set rsantal = connect.execute ("select antal from antal") intAntal=rsantal("antal") alignment="right" antal=0 do until rsoldnews.eof or antal = intantal if alignment = "left" and rsoldnews("bild") <> "no_image.jpg" then alignment ="right" else if rsoldnews("bild") <> "no_image.jpg" then alignment ="left" end if end if if rsoldnews("bild")="no_image.jpg" then %> <body topmargin="0"> <table width="95%" border="0" align="center" cellpadding="3" cellspacing="3" class="ruta"> <tr> <td valign="top" class=nyhetsrubrik><% =rsOldnews("Rubrik") %></td> </tr> <tr> <% if rsoldnews("ingress") >"" then %> <td valign="top"><strong> <font size="1"> <% =rsOldnews("ingress") %> </font></strong><br><br> <% =rsOldnews("nyheter") %></td> <% else %> <td valign="top"><% =rsOldnews("nyheter") %></td> <% end if %> </tr> <tr> <td valign="top"><font size="1"><strong> <% =FormatDateTime(rsOldnews("Datum"),2) %> </strong> <a href="mailto:<%=rsOldnews("eforfattare")%>"> <strong> </strong></a> </font></td> </tr> </table> <br> <br> <% end if if alignment="left" and rsoldnews("bild") <> "no_image.jpg" then %> <table width="95%" border="0" align="center" cellpadding="3" cellspacing="3" class="ruta"> <tr valign="top"> <td colspan="2" class=nyhetsrubrik><% =rsOldnews("Rubrik") %></td> </tr> <tr valign="top"> <td> <div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="<% =strImageFolder & rsOldnews("Bild") %>"></td> </tr> <tr> <td><b><font size="1"> <% =rsOldnews("Bildtext") %> </font></b></td> </tr> </table> </div> <div align="center"> <b><font size="1"> </font></b> </div></td> <% if rsoldnews("ingress") >"" then %> <td width="100%"> <font size="1"><strong> <% =rsOldnews("ingress") %> </strong></font><br><br> <% =rsOldnews("Nyheter") %> </td> <% else %> <td width="100%"> <% =rsOldnews("Nyheter") %> </td> <% end if %> </tr> <tr> <td valign="top" colspan=2 ><font size="1"><strong> <% =FormatDateTime(rsOldnews("Datum"),2) %> </strong> <strong> </strong> </font></td> </tr> </table> <br> <br> <% end if if alignment="right" and rsoldnews("bild") <> "no_image.jpg" then %> <table width="95%" border="0" align="center" cellpadding="3" cellspacing="3" class="ruta"> <tr> <td colspan="2" valign="top" class=nyhetsrubrik><% =rsOldnews("Rubrik") %></td> </tr> <tr> <% if rsoldnews("ingress") >"" then %> <td width="100%" valign="top"> <font size="1"><strong> <% =rsOldnews("ingress") %> </strong></font><br><br> <% =rsOldnews("Nyheter") %> </td> <% else %> <td width="100%" valign="top"> <% =rsOldnews("Nyheter") %> </td> <% end if %> <td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="<% =strImageFolder & rsOldnews("Bild") %>"></td> </tr> <tr> <td><b><font size="1"> <% =rsOldnews("Bildtext") %> </font></b></td> </tr> </table></td> </tr> <tr> <td valign="top" colspan=2 ><font size="1"><strong> <% =FormatDateTime(rsOldnews("Datum"),2) %> </strong><strong> </strong> </font></td> </tr> </table> <br> <br> <% end if antal=antal+1 rsOldnews.movenext loop rsOldnews.close set rsoldnews = nothing rsantal.close set rsantal = nothing %> GRAZIE 1000 |
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 20:55.
