Photo Archive News

Send this page to a friend

<% if request.querystring("s")="1" then Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= request.form("user_from_email") MyCDONTSMail.To= request.form("user_to_email") MyCDONTSMail.Subject="Photo Archive News" if len(request.form("user_from"))<2 then strUser_From = request.form("user_from") else strUser_From = UCase(Left(request.form("user_from"),1)) & Mid(request.form("user_from"),2) end if MyBody = "Hi " & request.form("user_to") & "," & vbCrLf MyBody = MyBody & "I'm sending you a link to Photo Archive News - it may be of interest." & vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & request.form("location") & vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & "Regards, " & vbCrLf & strUser_From & vbCrLf MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing response.write "An email has been sent to your friend.

Click here to go back the page you were reading..." else %> Please note: we don't use keep the email addresses you specify - they're only used to send an email to your friend.

?s=1"> ">

Your Name:
Your Email Address:
Their Name:
Their Email Address:

<% end if %>