It's been a tough week of server problems, crashes, and a very bumpy change of web hosts. For those who kept checking in, thanks for hanging in there. And to think, I was forced to sit out the first wave of Pat Robertson nutty goodness and Dubya's Idaho vacation within a vacation (and the attendant "hanging loose") ... God must want me to step back and work on being nice to the expensively educated yet intellectually challenged ...
By the way now that I'm back I'd like to take this opportunity to welcome John Bolton to the U.N. Those 750 debt relief scuttling, climate change torpedoing amendments to the previous international agreement should usher you and your mustache in nicely...
Update, 9:54: One thing you learn when you have tech problems, or when you migrate web hosts, is that the Internet seems deceptively simple, but it isn't necessarily so. And when it gets complicated for you, you're forced to rely on a strange species of human being called the "IT person." They're usually male, and blessed with technical knowledge, but not always with the most pleasant or vibrant personalities ... I ran into a doozy of a techie at my new host, ace-net, and learned the hard way that while my old host had technical flaws (server meltdown and inability to resolve it for four days being the main one ...) telephone tech support was a blessing. The new guys are online "ticket" help only, and that gives them so much more freedom to be that particular kind of IT-guy snarky that makes you want to lock them in a room for 24 hours with Pat Robertson ... who, by the way, is insane.
<%
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
