<% set rs = Server.CreateObject("ADODB.RecordSet") '## Forum_SQL strSql = "SELECT M.M_EMAIL, M.M_NAME FROM " & strMemberTablePrefix & "MEMBERS M" strSql = strSql & " WHERE M.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") & vbNewline & vbNewline strMessage = strMessage & "You received the following message from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") " & vbNewline & vbNewline strMessage = strMessage & "At: " & strForumURL & vbNewline & vbNewline strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline if strFrom <> "" then strSender = strFrom end if %>

    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 %>