<% '################################################################################# '## 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. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## 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. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% set rs = Server.CreateObject("ADODB.RecordSet") '## Forum_SQL strSql = "SELECT * FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID") rs = my_Conn.Execute (strSql) %>

Send an EMAIL Message

<% if lcase(strEmail) = "1" 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
    • " else if EmailField(Request.Form("YEmail")) = 0 then Err_Msg = Err_Msg & "
  • You Must enter a valid email address
    • " end if 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
    • " else if EmailField(Request.Form("Email")) = 0 then Err_Msg = Err_Msg & "
  • You Must enter a valid email address for the recipient
    • " end if end if if Request.Form("Msg") = "" then Err_Msg = Err_Msg & "
  • You Must enter a message
    • " end if '## Emails Message to the Author of this Reply. '## 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 Request.QueryString("mode") = "DoIt" then if (Err_Msg = "") then strRecipientsName = Request.Form("Name") strRecipients = Request.Form("Email") strFrom = Request.Form("YEmail") strFromName = Request.Form("YName") strSubject = "Sent From " & strForumTitle & " by " & Request.Form("YName") strMessage = "Hello " & Request.Form("Name") & vbCrLf & vbCrLf strMessage = strMessage & "You received the following message from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") " & vbCrLf & vbCrLf strMessage = strMessage & "At: " & strForumURL & vbCrLf & vbCrLf strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf %>

    Email has been sent

    <% else %>

    There Was A Problem With Your Email

      <% =Err_Msg %>

    Go Back To Enter Data

    Close Window

    <% Response.End end if else Err_Msg = "" if rs("M_EMAIL") <> " " then strSql = "SELECT M_NAME, M_USERNAME, M_EMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE "&Strdbntsqlname&" = '" & STRdbntUserName & "'" set rs2 = my_conn.Execute (strSql) YName = "" YEmail = "" if (rs2.EOF or rs2.BOF) then if strLogonForMail <> "0" then Err_Msg = Err_Msg & "
  • You Must be logged on to send a message
    • " %>
      <% =Err_Msg %>
    <% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>

    Return to <% =rs("M_NAME")%>'s Profile

    <% end if %>

    Close Window

    <% Response.End end if else YName = Trim("" & rs2("M_NAME")) YEmail = Trim("" & rs2("M_EMAIL")) end if rs2.close set rs2 = nothing %>
    " method=Post id=Form1 name=Form1> ">
    align="right" nowrap>Send To Name: ><% =rs("M_NAME") %>">
    align="right" nowrap>Send To Email: ><% =rs("M_EMAIL") %>">
    align="right" nowrap>>Your Name: > "" then Response.Write("hidden") else Response.Write("text") end if %> value="<% = YName %>" size=25>> <% if YName <> "" then Response.Write(YName) end if %>
    align="right" nowrap>>Your Email: > "" then Response.Write("hidden") else Response.Write("text") end if %> value="<% = YEmail %>" size=25>> <% if YEmail <> "" then Response.Write(YEmail) end if %>
    colspan=2>Message:
    colspan=2>
    colspan=2 align=center>
    <% else %>

    No Email address is available for this user.

    <% end if %> <% end if %> <% else %>

    Click to send "><% =rs("M_NAME")%> an email

    <% end if %> <% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>

    Return to <% =rs("M_NAME")%>'s Profile

    <% end if %> <% set rs = nothing %>