När man skall skicka email så skall det vara (;) imellan adresserna hur gör man det med nedanstående kod?? eller finns det något anna förslag?
skall skicka till alla som är med i databasen tack på förhand // Jocke

<% Dim Connect, SQLsats, RecSet

Set Connect = Server.CreateObject("ADODB.connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\medlem.mdb")&";"
SQLsats = "Select * from adress order by created DESC"
Set RecSet = connect.Execute(SQLsats)
do until RecSet.EOF
Response.Write RecSet("mail")&"<br>"
recset.MoveNext
loop
recset.close
connect.close
set recset = nothing
set connect = nothing
%>

Response.Write RecSet("mail") & ";"

Tackar för svaret

Det gick ju bra, Fast det kom upp en ny ruta för var mailadress. Det blev fasligt många rutor. Vad skall man göra för att alla adresser skall vara i samma ruta?? Snacka om att jag är nybörjare på detta, säkert skitenkelt svar. Inputen skrivs varje gång, så det blir en ny ruta för varje.

<% Dim Connect, SQLsats, RecSet
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\medlem.mdb")&";"
SQLsats = "Select * from adress order by created DESC"
Set RecSet = connect.Execute(SQLsats)
do until RecSet.EOF %>
<input type=text name=motagare readonly value="<% Response.Write RecSet("mail") & ";"%>">
<%
recset.MoveNext
loop
recset.close
connect.close
set recset = nothing
set connect = nothing
%>

testa det här:
<code>
<% Dim Connect, SQLsats, RecSet
Set Connect = Server.CreateObject("ADODB.connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\medlem.mdb")&";"
SQLsats = "Select * from adress order by created DESC"
Set RecSet = connect.Execute(SQLsats)
response.write "<input type=text name=motagare readonly value="""
do until RecSet.EOF
Response.Write RecSet("mail") & ";"
recset.MoveNext
loop
response.write """>"
recset.close
connect.close
set recset = nothing
set connect = nothing
%>
</code>