Reidblog [The Reid Report blog]

ReidBlog: The Obama Interview
Listen now:

Mahatma Hillary
"If it happened in the world,
Hillary was there!"

Finalist: Best Liberal Blog
Thanks to all who voted!

The Gross National Debt

<% dim done done = request.form("done") if done = "" then done = "No" %>

Recommend ReidBlog:

<% Else if request.form("done") = "Yes" then 'sets variables dim email, sendmail email = request.form("email") Set sendmail = Server.CreateObject("CDONTS.NewMail") 'put the webmaster address here sendmail.From = "webmaster@aspbasics.com" 'The mail is sent to the address entered in the previous page. sendmail.To = email 'Enter the subject of your mail here sendmail.Subject = "Check out this website" 'send a specific page or send a site url dim url 'url = Request.ServerVariables("HTTP_REFERER") url = "http://www.aspbasics.net" 'This is the content of the message. sendmail.Body = "Site recommendation from a friend!" & _ vbCrlf & vbCrlf & "A friend has sent you this email and thought you would should check out this site." & _ vbCrlf & url & vbCrlf 'this sets mail priority.... 0=low 1=normal 2=high sendmail.Importance = 1 sendmail.Send 'Send the email! response.redirect Request.ServerVariables("HTTP_REFERER") 'Response.write ("Sent to ") & email End if End if %>