<%@ Language=VBScript %>
<% dim contactname, contactemail
if Request.QueryString("email") <> "" then
contactemail = Request.QueryString("email")
else
contactemail = Request("email")
end if
if Request.QueryString("cname") <> "" then
contactname = Request.QueryString("cname")
else
contactname = Request("cname")
end if
if request("pass") = "1" then
dim fullbody
fullbody = "This message was sent from
Allearnatives.com..." & VbCrLf & VbCrLf & "Name: " & request("name")
& VbCrLf & VbCrLf & "Message: " & VbCrLf & request("message")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = ""
Mailer.FromAddress = "[EMAIL PROTECTED]"
Mailer.ReplyTo = request("fromemail")
Mailer.RemoteHost = "mail.x.com"
Mailer.AddRecipient "", "x"
Mailer.Subject = "Allearnatives.com: " & request
("subject")
Mailer.BodyText = fullbody
if not Mailer.SendMail then
Response.Write "Mail send failure. Error
was " & Mailer.Response
end if
end if %>
<html>
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
