<%@Language="VBScript"%>
<%
Dim myMail, i
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
dim query
query = Split(Request.Form,"&")
for i=0 to UBound(query) step 1
query(i) = Split(query(i),"=")
next
HTML = ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML &"
"
for i = 0 to UBound(query)
if query(i)(0) <> "recipient" and query(i)(0) <> "subject" and query(i)(0) <> "redirect" and query(i)(0) <> "submit" then
HTML = HTML &"
" &query(i)(0) &":
" &request.Form(query(i)(0)) &"
"
end if
next
HTML = HTML &"
"
HTML = HTML & ""
HTML = HTML & ""
myMail.From=request.form("email")
myMail.To=request.Form("recipient")
myMail.Subject=request.Form("subject")
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=HTML
myMail.Send
set mymail=nothing
Response.Redirect(request.Form("redirect"))
%>