I haven't watched The Apprentice since the first one, but a friend of mine let me know that a brotha won it this time. Fabulous! So what's all this talk about the finale being racist? And while were at it, is King Kong racist, too, because I really want to see that one and I just love Jack Black (no pun intended) ... hey, Mary J. Blige sure is upset for someone who supposedly is much happier now (but she looks fantastic, doesn't she...?) ... and is Stephen Spielberg both Jewish and anti-Semitic? Are Nick and Jessica really splitting up...??? I know that has nothing to do with apparent racism and to tell you the truth I don't really care, but ... sweet Jesus I think it's time for a chiraz...
<%
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
