<%@ Language=VBScript %> <% Option Explicit %> <% dim body,obj,objcdomail body = "Please subscribe me to your mailing list:" & vbCrLf For Each obj in request.form body = body & obj & " : " & request.form(obj) & vbCrLf Next Dim objSendMail Set objSendMail = Server.CreateObject("CDONTS.NewMail") objSendMail.To ="codriver@robertfagg.com" objSendMail.From ="mailinglist@robertfagg.com" objSendMail.Subject = "ADD ME TO YOUR NEWS MAILING LIST" objSendMail.Body = body objSendMail.Send Set objCDOMail = Nothing response.redirect "homepage.html" %>