3 svar · 385 visningar · startad av JPS
Jag har en sida där jag skall presentera data med olika format enligt följande:
Jag har ett recordset med paging där data skall presenteras olika dels beroende på format 1-Annons stor, 2-Annons mellan, 3-Annons liten dels i tabellformat med formatering.
1. Annons stor - skall listats först och på en rad var.
Annons Olle
Annons Anna
Annons Nisse
2. Annons mellan - listas i tabell med 2 i bredd och en cell mellan som marginal.
<table>
<tr>
<td>Annons Ulla</td>
<td>marginal</td>
<td>Annons Jan</td>
</tr>
<tr>
<td>Annons Nisse 2</td>
<td>marginal</td>
<td>Annons Peter</td>
</tr>
</table>
3. Annons liten - listas i precis som ovan men sist.
<table>
<tr>
<td>Annons Ulla</td>
<td>marginal</td>
<td>Annons Jan</td>
</tr>
<tr>
<td>Annons Nisse 2</td>
<td>marginal</td>
<td>Annons Peter</td>
</tr>
</table>
4. Här kommer paging
Jag har kört helt fast så tips på kod tas tacksamt emot!
<%
dim iAd
Do until.RecSet.EOF
iAd = iAd + 1
'... Din kod här
If iAd mod 10 Then
'Var 10:e post kommer en ny annons
Response.Write "<tr><td colspan=""2"">Besök en annons!</td></tr>"
End If
RecSet.MoveNext
Loop
%>
Eller ha en funktion som väljer ut en slump banner istället för
Response.Write "<tr><td colspan=""2"">Besök en annons!</td></tr>"
Det är ju bara att bygga vidare på koden.
<%
dim iAd, b
Do until.RecSet.EOF
iAd = iAd + 1
'... Din kod här
If iAd mod 10 Then
b = b + 1
Select Case b
Case 1
Response.Write "<tr><td colspan=""2""><h1>Stor annons</h1></td></tr>"
Case 2
Response.Write "<tr><td colspan=""2""><h2>Mellan annons</h2></td></tr>"
Case else
Response.Write "<tr><td colspan=""2""><h3>Liten annons</h3></td></tr>"
End Select
'Var 10:e post kommer en ny annons
End If
RecSet.MoveNext
Loop
%>