Inizio dell'applet:
codice:
<applet code="BELscrola.class" align="right" width="140" height="140">
<param name="Notice" value="000000000000000000000000000000000000000000000000000000001 - Ver.1b">
<param name="bgcolor" value="255,255,255">
<param name="centertest" value="false">
<param name="lrmarginx" value="5">
<param name="xcrolldelay" value="20">
<param name="hlcolor" value="0,255,0">
Inizializzazione contatore, connessione al db, inizializzazione ciclo e recupero dei dati.
codice:
<% nm = -1
Set rec = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM news"
Set rec = Conn.Execute(SQL)
while not rec.EOF
id = rec("id")
titolo = rec("titolo")
data = rec("data")
testo = rec("testo")
nm = nm + 1 %>
Codice da ripetere per ogni news dell'applet
codice:
<param name="delay<%=nm%>" value="5000">
<param name="size<%=nm%>" value="15">
<param name="testcolor<%=nm%>" value="#000BFF">
<param name="xtyle<%=nm%>" value="bold">
<param name="dexc<%=nm%>" value="<%=titolo%>">
<param name="fontface<%=nm%>" value="Arial">
<param name="xizepauxe<%=nm%>" value="1">
<param name="dexturl<%=nm%>" value="news.asp?id=<%=id%>">
<% nm = nm + 1 %>
<param name="size<%=nm%>" value="10">
<param name="testcolor<%=nm%>" value="#FF0000">
<param name="dexc<%=nm%>" value="<%=data%>">
<param name="xtyle<%=nm%>" value="bold">
<% nm = nm + 1 %>
<param name="size<%=nm%>" value="12">
<param name="dexc<%=nm%>" value="<%=testo%>">
<param name="xtyle<%=nm%>" value="plain">
<param name="fontface<%=nm%>" value="Arial">
<param name="xizepauxe<%=nm%>" value="2">
<% nm = nm + 1 %>
<param name="dexc<%=nm%>" value="Per aprire una news cliccare sul titolo">
<param name="size<%=nm%>" value="10">
Chiusura ciclo e fine dell' applet
codice:
<% rec.MoveNext
Wend %>
</applet>
L'applet l'ho scaricata da Html.it
Come si può notare dal codice dell'applet originale il valore <%=nm%> dopo ogni voce è un contatore che identifica con un numero un blocco di valori dell'applet.