<%response.buffer=true%> <% my_username=request("UserName") my_useremail=request("UserEmail") my_to=request("mail-toName") my_toAddress=request("mail-toaddress") my_subject=request("mail-subject") my_relay=request("mail-relay") if (my_useremail="") or (my_username="") or (instr(my_useremail,"@")=0) or (instr(my_useremail,".")=0) then %>

Please fill in your name and a valid e-mail address.

<% else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = my_relay Mailer.FromAddress = my_useremail Mailer.FromName = my_username Mailer.AddRecipient my_to, my_toaddress Mailer.Subject = my_subject for each whatever in request.querystring If instr(whatever,"mail-")=0 then Mailer.BodyText = whatever & " = " & request.querystring(whatever) & vbcrlf end if next for each whatever in request.form If instr(whatever,"mail-")=0 then Mailer.BodyText = whatever & " = " & request.form(whatever) & vbcrlf end if next my_emailcopy=request("emailcopy") If my_emailcopy="" then else Mailer.AddRecipient "form filler",my_emailcopy end if If Mailer.SendMail then %> Your message was sent sucessfully
<% Else %> Request was not sucessfull
<% response.write mailer.response End If end if %> click here to close.