<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Correspondence and Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% if Request.QueryString("mode") = "DoIt" then Err_Msg = "" if (Request.Form("YName") = "") then Err_Msg = Err_Msg & "
  • You must enter your UserName
    • " end if if (Request.Form("YEmail") = "") then Err_Msg = Err_Msg & "
  • You Must give your email address
    • " end if if (EmailField(Request.Form("YEmail")) = 0) then Err_Msg = Err_Msg & "
  • You Must enter a valid email address
    • " end if if (Request.Form("Name") = "") then Err_Msg = Err_Msg & "
  • You must enter the recipients name
    • " end if if (Request.Form("Email") = "") then Err_Msg = Err_Msg & "
  • You Must enter the recipients email address
    • " end if if (EmailField(Request.Form("Email")) = 0) then Err_Msg = Err_Msg & "
  • You Must enter a valid email address for the recipient
    • " end if if (Request.Form("Msg") = "") then Err_Msg = Err_Msg & "
  • You Must enter a message
    • " end if '## Emails Topic To a Friend. '## This needs to be Edited to use your own email component '## if you don't have one, try the w3Jmail component from www.dimac.net it's free! if lcase(strEmail) = "1" then if (Err_Msg = "") then strRecipientsName = Request.Form("Name") strRecipients = Request.Form("Email") strSubject = "From: " & Request.Form("YName") & " Interesting Page" strMessage = "Hello " & Request.Form("Name") & vbCrLf & vbCrLf strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf strMessage = strMessage & "You received this from : " & Request.Form("YName") & " " & Request.Form("YEmail") %> <% Response.Write "

    Email has been sent

    " & vbCrLf else %>

    There Was A Problem With Your Email

      <% =Err_Msg %>

    Go Back To Enter Data

    Close Window

    <% Response.End end if end if else %>

    Send Topic to a Friend

    <% if strAuthType="nt" then '## Forum_SQL strSql = "SELECT M_NAME, M_USERNAME, M_EMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE M_USERNAME = '" & Session("userid") & "'" else if strAuthType="db" then '## Forum_SQL strSql = "SELECT M_NAME, M_EMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE M_NAME = '" & Request.Cookies("User")("Name") & "'" end if end if set rs = my_conn.Execute (strSql) if rs.EOF or rs.BOF then '## Do Nothing else %> <% end if %> <% rs.close %>
    align="right" nowrap>>Send To Name: >
    align="right" nowrap>>Send To Email: >
    align="right" nowrap>>Your Name: >">><% =rs("M_NAME") %>
    align="right" nowrap>>Your Email: >">><% =rs("M_EMAIL") %>
    colspan=2 nowrap>>Message:
    colspan=2 align=center>
    colspan=2 align=center>
    <% end if %>