<% Dim emailPostMessage Dim emailErrorMessage Dim emailFromAddress Dim emailToAddress emailFromAddress = "subscribe-agent@badmimi.com" emailToAddress = "subscribe@badmimi.com" If (Request.Form.Count <> 0) Then Dim t1name,address address = Request.Form("address") If (IsEmailValid( address )) Then Dim ObjMail Set ObjMail = Server.CreateObject("CDONTS.NewMail") ObjMail.To = emailToAddress ObjMail.From = emailFromAddress ObjMail.Subject = "Email-Subscribe" ObjMail.Body = address ObjMail.Send Set ObjMail = Nothing emailPostMessage = "

Thank You. We will keep you informed!

" Else emailErrorMessage = "

Please enter an email address in the format name@domain.tld

" End If connection.execute("EXEC p_WP_EMAIL_SIGNUP " & getQuotedString(address) ) End If %>