<% 'This page gets the email subscriber information out of the db. SET CONN = server.createobject("ADODB.connection") CONN.OPEN "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\") & "\data\NothingToIt.mdb;UID=;PWD=;" SQL = "SELECT * FROM subscriber_tbl" SET RS = server.CreateObject("ADODB.recordset") RS.OPEN SQL, CONN, 2 rs.movefirst subscriberCount=0'this keeps a count of the number of subscribers While not RS.EOF subscriberCount = subscriberCount + 1 response.write "SUBSCRIBER " & rs("subscriber_email") & " " & rs("subscriber_datestamp")&"
" RS.movenext WEND rs.close set rs=nothing conn.close set conn = nothing Response.write "Total Subscribers: " & subscriberCount %>