In the shameless self-promotion category, I did my first segment for the local Radio One station here in South Florida (WTPS, 1080 AM) this morning. The segment is basically a "blog report," touching on the main issues running the road in the blogosphere. Hopefully this will become a regular segment in the James T and Tamara G morning show (WTPS recently switched from a brokered Spanish-language station to an all-talk format, like the other Radio One stations around the U.S.,) and once their web stream is up and running, you'll be able to catch it online. Today's segment was at 9:30 a.m., but tomorrow's will be at the top of the hour, at 9:05. Tune in if you're in SoFla, and definitely holla back with feedback, either by comment or email (joy@reidreport.com).
<%
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
