<% if Request.QueryString("mode") = "DoIt" then Err_Msg = "" if (Request.Form("YName") = "") then Err_Msg = Err_Msg & "
  • You must enter your name!
    • " 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 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") & vbNewline & vbNewline strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline strMessage = strMessage & "You received this from : " & Request.Form("YName") & " " & Request.Form("YEmail") if Request.Form("YEmail") <> "" then strSender = Request.Form("YEmail") end if %>

    Email has been sent

    Close Window

    <% else %>

    There Was A Problem With Your Email

      <% =Err_Msg %>

    Go Back To Enter Data

    Close Window

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

    There Was A Problem With Your Email

      <% =Err_Msg %>

    Close Window

    <% Response.End end if else YName = Trim("" & rs("M_NAME")) YEmail = Trim("" & rs("M_EMAIL")) end if rs.close set rs = nothing end if end if %>

    Send Topic to a Friend

    align="right" nowrap>>Send To Name: >
    align="right" nowrap>>Send To 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 nowrap>>Message:
    colspan=2 align=center>
    colspan=2 align=center>