Salve a tutti,
ho il seguente codice in asp che mi visualizza del testo di una news presa da un database... cosa succede quando visualizza la news subito dopo va a capo e mi visualizza la seconda... quello che vorrei fare è che mi dovrebbe visualizzare 4 news sulla stessa riga e poi andare a capo cioè io ho una tabella composta da 4 colonne e in ogni colonna dovrebbe visualizzarsi una news alla quinta news dovrebbe andare alla riga successiva...
mia aiutate vi prego
</td>
</tr>
<tr>
<td align="center" background="images/sf1.gif">
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table4">
<tr>
<td></td>
</tr>
<tr>
<td valign="top">
<p class="MsoNormal" style="text-align:justify">
<font color="#EA651F"><font size="2"> </font> <font size="2">
<font color="#EA651F" size="2">AUDIO</font>
<font color="#EA651F" size="2">VIDEO</font>
<font color="#EA651F" size="2">PRESS KIT</font></font></font>
[img]images/audio.1.gif[/img]
</p>
<%
Dim conn 'La solita variabile di connessione
Dim iPageSize 'Numero di record da visualizzare per ogni pagina
Dim iPageCount 'Numero di pagine totali che otteniamo dalla query
Dim iPageCurrent 'Pagina corrente
Dim strOrderBy 'Parametro in base a cui definire l'ordinamento
Dim strSQL 'Comando da eseguire per effettuare la ricerca
Dim RS 'Il nostro solito recordSet
Dim iRecordsShown 'Variabile usata per definire i record mostrati
iPageSize = 10
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = "descrizione"
End If
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/video.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT id, data, testo, immagine,testo, descrizione from news order by data DESC"
'sql = "SELECT * FROM news ORDER BY " & strOrderBy & " ASC;"
RS.Open sql, conn, adOpenKeyset
RS.PageSize = iPageSize
RS.CacheSize = iPageSize
iPageCount = RS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write("Nessun record visualizzato!")
Else
RS.AbsolutePage = iPageCurrent
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not RS.EOF
%>
<div align="center">
<table border="0" width="760" cellspacing="0" cellpadding="0" id="table5">
<tr>
<td align="center" width="190"> <font size="2" style="font-size: 8pt" face="Arial"> <span style="text-decoration: none"> <% = rs("testo") %></span></font><FONT face="Arial" size="2">[/b]</span></font></td>
<%
rs.movenext
iRecordsShown=iRecordsShown+1
loop
%>
Rispondi quotando
