<%@ Language = VBScript %> <% Email = request.form("Email") AddDate = now() output = "Sign up on my Mailing List to recieve Newsletters, Appearances, Updates and other Offers!" 'Send an email to confirm the email address if len(Email) <> 0 then 'Time to open the database set con = server.createObject("ADODB.Connection") con.open(strServerConnection) 'Check whether email exists sqlString = "Select Email from Newsletter where Email = '"&Email&"'" set rs = con.execute(sqlString) 'Return error if email already exists while not rs.eof if rs("Email") = Email then output = "This email is already in our database." blnError = true end if rs.moveNext wend if not blnError then sqlString = "Insert into Newsletter (Email, Status, AddDate) values ('"&Email&"', 0, '"&AddDate&"')" con.execute(sqlString) con.close 'Compose email message here Message = "To confirm your subscription for our newsletter at "&CompanyName&" ("&DomainName&")," &vbCrLf Message = Message & "simply click on the following link:" & vbCrLf & "http://"&DomainName&"/maillist_confirm.asp?email="&Email Message = Message & vbCrLf & vbCrLf & "If you did not sign up for this newsletter, please ignore this mail." &vbCrLf Signature = vbCrLf & "Important: Do not reply to this email." & vbCrLf & vbCrLf & "____________________" & vbCrLf Signature = Signature & CompanyName & vbCrLf & "http://"&DomainName set newMailObj = server.createObject("CDONTS.NewMail") newMailObj.BodyFormat = 1 newMailObj.MailFormat = 0 newMailObj.from = "no-reply@"&replace(DomainName, "www.", "") newMailObj.to = Email newMailObj.subject = CompanyName & " Newsletter Signup Confirmation." newMailObj.body = Message & Signature newMailObj.send set newMailObj = nothing output = "
PLEASE CHECK YOUR SPAM OR JUNKMAIL FOLDERS FOR ACTIVATION E-MAIL...

" &vbCrLf output = output & "
as many filters will not send email generated by me to your inbox.
" &vbCrLf output = output & "Please confirm your subscription and activate your new account.
" &vbCrLf output = output & "You may now sign up another e-mail address or resume viewing my website.
" end if end if %> Holly Weber

<%=output%>

Email: