Do while problema con RS.EOF

**spider81man** · 14-04-2005, 12:30

Ciao a tutti, dovrei cercare di ricavare tutti gli indirizzi mail che ho in una tabella di un DB Access.
Ho provato così:

codice:

<html>
<body>
<%
dim mail
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Provider = "Microsoft.jet.OLEDB.4.0"
	Conn.Open Server.MapPath("DB/newsletters.mdb")
		
	sql = "SELECT mail FROM mail"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, Conn, , , adCmdTable
	do while rs.EOF
	mail=rs(0)
	loop
	rs.Close()
	
	Set rs = Nothing
	Conn.Close()
	Set Conn = Nothing
%>


</p>
<%=mail%>
</body>

</html>

ma mi da pagina bianca.
Come posso fare anche a mettere tra una mail e l'altra il ";"?
Grazie a tutti
spider81man

**marco_c** · 14-04-2005, 12:40

do while NOT rs.EOF

**spider81man** · 14-04-2005, 12:43

Ciao,
avevo provato ma mi va in LOOP perenne la pagina e non carica niente e non mi scrive a video niente

**optime** · 14-04-2005, 12:47

un classico. manca il .movenext

**spider81man** · 14-04-2005, 12:52

Grazie :P
scusate ma dopo 1 anno fermo si dimenticano anche le basi

Discussione: Do while problema con RS.EOF

Strumenti discussione

Ricerca discussione

Visualizza

Do while problema con RS.EOF

Permessi di invio