J
|
Jane 5/7/2008 |
Hi, response.write "<input type=button class=button value=send onclick=""window.location.href='tablename_list.asp?send=emailaddress1';"">"
if request.querystring("send")="emailaddress1" then 'select list of emails str = "select EmailAddress1 from TableName" emails = "" Set rsTemp = server.CreateObject("ADODB.Recordset") rsTemp.open str, dbConnection while not rsTemp.eof emails = emails & rsTemp("EmailAddress1") & ", " rsTemp.MoveNext wend rsTemp.Close : set rsTemp = Nothing emails = left(emails,Len(emails)-2) 'send email email=emails message="Hello there" & vbcrlf & "Best regards" subject="Sample subject" sendmail email, subject, message Response.redirect "TableName_list.asp" end if |