massimo67
13-03-2004, 13:06
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 (http://www.creamweb.it/script/scheda_script.asp?idCat=4&id=9) di Creamweb.it ma senza successo.
vi posto il codice della pagina in questione, mi aiutate per favore :cry:
<% 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
tutto funziona, vorrei però che dopo 5 news mi comparisse la scritta "pagina sucessiva" e "pagina precedente".
Ho provato lo script Paginazione (http://www.creamweb.it/script/scheda_script.asp?idCat=4&id=9) di Creamweb.it ma senza successo.
vi posto il codice della pagina in questione, mi aiutate per favore :cry:
<% 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