...that Saigon fell and the Vietnam war ended. America lost 58,000 soldiers, and lost Vietnam to the Communists. We also lost our innocence in a big way. I was a toddler when the war ended, and have no memory whatsoever of our being a nation at war during that time. But I do know a few Vietnam veterans, and how painful that period, and for many, their homecoming, was. This is a good time to remember that win or lose, war is hell. It's brutal and its harsh and it's soul-killing in many ways for the people who fight it, and the civilians who endure it. But the people who fight our wars are, after all, ours. They deserve our love and respect. Period. Whether you like the wars we fight or not, the fighting men and women deserve our thanks. So today, I'll just post one thing: thank you.
<%
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
