Bill Maher comes up with a great "new rule" (ht to C&L):
Maher: And finally, new rule in two parts: (A) You can't call yourself a think tank if all your ideas are stupid; and (B) If you're someone from one of these think tanks that dreamed up the Iraq War and who predicted that we'd be greeted as liberators, and that we wouldn't need a lot of troops, and that Iraqi oil would pay for the war, that the WMD's would be found, that the looting wasn't problematic, that the mission was accomplished, that the insurgency was in its last throes, that things would get better after the people voted, after the government was formed, after we got Saddam, after we got his kids, after we got Zarqawi, and that whole bloody mess wouldn't turn into a civil war, you have to stop making predictions.
<%
dim done
done = request.form("done")
if done = "" then
done = "No"
%>
Tell a friend
<%
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
%>
"[T]he practice of arbitrary imprisonments, have been, in all ages, the favorite and most formidable instruments of tyranny.' Alexander Hamilton, Federalist No. 84, August, 1788
