<%

Dim DATAPATH
DATAPATH = "C:/path to database"

Set MAILRS = Server.CreateObject("ADODB.Recordset")
Set MAILDB = Server.CreateObject("ADODB.Connection")
MAILDB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DATAPATH & ";"
SQL = "SELECT * from Email"
MAILRS.Open SQL, MAILDB, 3, 1, 1

If MAILRS.EOF Then
Response.Write "NO Records in Database"
Response.End
End If
%>


<%
Dim EMAILCOUNT
EMAILCOUNT = MAILRS.Recordcount

Dim COUNTER
COUNTER = 1
%>

<form name="form1" method="post" action="mail.asp">
    <p><br>
      Recipients: 

<input type="text" name="SENDTO" value="<%
Do While  NOT COUNTER > EMAILCOUNT
Dim Email
Email = MAILRS("Email")
%>
<%=EMAIL%><%If NOT (COUNTER = EMAILCOUNT) Then%>; <%End If%>
<%
COUNTER = COUNTER + 1
MAILRS.Movenext
Loop
%>
">
</p>
    <p>Message: 
      <textarea name="MESSAGE" cols="50" rows="10"></textarea>
    </p>
    <p>
      <input type="submit" name="Submit" value="Submit">
    </p>
  </form>	
<%
MAILRS.close
Set MAILRS = Nothing
MAILDB.close
Set MAILDB = Nothing
%>