Ciclo While Wend ... un aiuto

[michele.santoro]

Ho trovato questo script che vorrei integrare in una pagina asp ma non ci riesco, pur avendo provato e riprovato in diversi modi.
Di seguito il codice da me usato:

 

<% 
sql = "SELECT * from news ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

While not Rs.eof 

link = "dettagli.asp?cod=" & rs("id")

%> 
<%
response.write Window(rs("menu"), "" & Rs("Titolo") & "", 300, 100, "b", "justify")
%>

<%
'Scorro i dati 
Rs.MoveNext 
Wend 

'Pulizia ADO 
Rs.close 
Set Rs = Nothing
 
%><%
Function Window(title,text,width,height,color,justification)
    response.write "<table border=0 cellpadding=0 cellspacing=0 width=" & width & " height=" & height & ">" & vblf
    response.write "<tr height=20><td width=12><img src=immagini/" & color & "lt.gif width=12 height=20 hspace=0 vspace=0 border=0></td><td background=immagini/" & color & "tm.gif><font class=title>" & title & "</font></td><td><img src=immagini/" & color & "rt.gif width=18 height=20 hspace=0 vspace=0 border=0></td></tr>" & vblf
    response.write "<tr><td width=12 background=immagini/" & color & "lm.gif></td>" & vblf
    response.write "<td background=immagini/" & color & "bg.gif valign=top><div align=" & justification & ">
" & text & "
</div>
</td>" & vblf
    response.write "<td width=18 background=immagini/" & color & "rm.gif></td></tr>" & vblf
    response.write "<tr height=6><td><img src=immagini/" & color & "lb.gif width=12 height=6 hspace=0 vspace=0 border=0></td><td background=immagini/" & color & "bm.gif></td><td><img src=immagini/" & color & "rb.gif width=18 height=6 hspace=0 vspace=0 border=0></td></tr></table>
" & vblf
End Function
%>

Il problema è che non riesco a visualizzare i link (Titolo) uno di seguito all'altro all'interno della stessa finestra.

Il massimo che sono riuscito ad ottenere è quello sopra, e cioè un record per ogni finestra, quindi tante finestre ripetute per quanti sono i record.

Come posso fare per avere tutti i record all'interno della stessa finestra?

Ringrazio chi vorrà aiutarmi e spero di essermi spiegato in modo abbastanza chiaro

[maximum]

Ti correggo un po' il codice, prova e dimmi se va meglio:

 

<table border=0 cellpadding=0 cellspacing=0 width="300" height="100">
<% 
sql = "SELECT * from news ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

While not Rs.eof 

link = "dettagli.asp?cod=" & rs("id")


response.write Window(rs("menu"), "" & Rs("Titolo") & "", "b", "justify")

'Scorro i dati 
Rs.MoveNext 
Wend 

'Pulizia ADO 
Rs.close 
Set Rs = Nothing
 
Function  Window(title,text,color,justification)
    response.write "<tr height=20><td width=12><img src=immagini/" & color & "lt.gif width=12 height=20 hspace=0 vspace=0 border=0></td><td background=immagini/" & color & "tm.gif><font class=title>" & title & "</font></td><td><img src=immagini/" & color & "rt.gif width=18 height=20 hspace=0 vspace=0 border=0></td></tr>" & vblf
    response.write "<tr><td width=12 background=immagini/" & color & "lm.gif> </td>" & vblf
    response.write "<td background=immagini/" & color & "bg.gif valign=top><div align=" & justification & ">
" & text & "
</div>
</td>" & vblf
    response.write "<td width=18 background=immagini/" & color & "rm.gif> </td></tr>" & vblf
    response.write "<tr height=6><td><img src=immagini/" & color & "lb.gif width=12 height=6 hspace=0 vspace=0 border=0></td><td background=immagini/" & color & "bm.gif></td><td><img src=immagini/" & color & "rb.gif width=18 height=6 hspace=0 vspace=0 border=0></td></tr>" & vblf
End Function
%>
</table>

[michele.santoro]

Intanto ti ringrazio per l'aiuto, purtroppo però è come prima, tante finestre una per ogni record.
Altre idee?

[maximum]

1)Mi spieghi di preciso che intendi per "tante finestre"?

2)Fai questa piccola modifica alla Function:

Function  Window(title,text,color,justification)

    Dim str
    
    str = "<tr height=20><td width=12><img src=immagini/" & color & "lt.gif width=12 height=20 hspace=0 vspace=0 border=0></td><td background=immagini/" & color & "tm.gif><font class=title>" & title & "</font></td><td><img src=immagini/" & color & "rt.gif width=18 height=20 hspace=0 vspace=0 border=0></td></tr>" & vblf
    str = str & "<tr><td width=12 background=immagini/" & color & "lm.gif> </td>" & vblf
    str = str & "<td background=immagini/" & color & "bg.gif valign=top><div align=" & justification & ">
" & text & "
</div>
</td>" & vblf
    str = str & "<td width=18 background=immagini/" & color & "rm.gif> </td></tr>" & vblf
    str = str & "<tr height=6><td><img src=immagini/" & color & "lb.gif width=12 height=6 hspace=0 vspace=0 border=0></td><td background=immagini/" & color & "bm.gif></td><td><img src=immagini/" & color & "rb.gif width=18 height=6 hspace=0 vspace=0 border=0></td></tr>" & vblf

    Window = str

End Function

[michele.santoro]

Con questa modifica mi da errore:
Numero errato di argomenti o assegnazione di proprietà non valida: 'Window'

Per quanto riguarda le finestre, ti allego un esempio di quello che vorrei ottenere. Io ottengo tante di quelle finestre per quanti sono i record nel db, mentre vorrei ottenerne solo una per tutti i record, come nell'esempio.

[maximum]

Allora ascolta, devi fare in modo che la finestra sia non generata dalla funzione "WINDOW", quindi l'html che ti genera la funzione deve stare fuori da ASP (HTML statico con tutte le sue proprietà e tutto quanto).

Mentre per intabellare dentro un'unica finestra il tutto, usa la funzione "WINDOW", in questa fatti stampare tante tabelle quante informazioni leggi, l'importante che siano tabelle invisibili (<table border="0" cellspacing="0" cellpadding="0">), per capisci.

Il risultato che avrai sarà un'unica finestra celeste, come l'allegato, al cui interno avrai, intebellate in tante tabelle (invisibili), quante informazioni leggi, tutte le tue informazioni.

Spero di essere stato chiaro.

[michele.santoro]

Non ci riesco, mi da sempre lo stesso risultato (tante finestre quanti sono i records) oppure mi da un'unica finestra con un unico record.

[michele.santoro]

Nada de nada!!
Aiuto!