Snitz Forums 2000 - Contact us, page

Author

Topic

Page: of 2

thelodger
Junior Member

United Kingdom
296 Posts

Posted - 28 July 2008 : 18:25:07

Is there a mod that provides a contact us page in the forum?

If not anyone fancy making one?<

leatherlips
Senior Member

USA
1838 Posts

Posted - 28 July 2008 : 18:35:56

I've made one on my forum:

http://mangionemagic.com/forum/pop_contact_admin.asp

I actually modified it a bit from another older mod that used it as a pop up page. If you're interested in what I've done I can send you the files.<

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 28 July 2008 : 21:53:09

there used to be an addon page called "The Ramble" if i remeber correctly. it was used in Hurw and crash's portals that they had. what it would do is display all the admins/moderators details so that you could contact them...maybe if somone coudl track down a version of the portal they might be able to modify it a little to send email to an admin or something like that.

but it depeends on what you are after an how u want it to work.<

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 29 July 2008 : 11:50:08

Something like this (sends EMail to admin - that's all it does):


<%
'################################################################################
'## Snitz Forums 2000 v3.4.06
'################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## 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 (at your option) 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 our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if Request.QueryString("ID") <> "" and IsNumeric(Request.QueryString("ID")) = True then
 intMemberID = cLng(Request.QueryString("ID"))
else
 intMemberID = 0
end if

if Request.QueryString("mode") = "DoIt" then
 Err_Msg = ""
 strSql = "SELECT M.M_RECEIVE_EMAIL, M.M_EMAIL, M.M_NAME FROM " & strMemberTablePrefix & "MEMBERS M"
 strSql = strSql & " WHERE M.MEMBER_ID = " & intAdminMemberID
 set rs = my_Conn.Execute (strSql)
 strRName = ChkString(rs("M_NAME"),"display")
 strREmail = rs("M_EMAIL")
 strRReceiveEmail = rs("M_RECEIVE_EMAIL")
 rs.close
 set rs = nothing
  if lcase(strEmail) = "1" then
   if Request.QueryString("mode") = "DoIt" then
    'Err_Msg = ""
    strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
    strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
    strSql = strSql & " WHERE MEMBER_ID = " & MemberID

    set rs2 = my_conn.Execute (strSql)
    YName = rs2("M_NAME")
    YEmail = rs2("M_EMAIL")
    set rs2 = nothing
   else
    YName = Request.Form("YName")
    YEmail = Request.Form("YEmail")
    if YName = "" then
     Err_Msg = Err_Msg & "<li>You must enter your UserName</li>"
    end if
    if YEmail = "" then
     Err_Msg = Err_Msg & "<li>You must give your e-mail address</li>"
    else
     if EmailField(YEmail) = 0 then
      Err_Msg = Err_Msg & "<li>You must enter a valid e-mail address</li>"
     end if
    end if
   end if
   if Request.Form("Msg") = "" then
    Err_Msg = Err_Msg & "<li>You must enter a message</li>"
   end if
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
   Response.Write(" <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center>Your EMail has been sent.</center></font></b></p>" & vbNewLine)
   Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""JavaScript:history.go(-2)"">Go Back</a></font></p><br /><br />" & vbNewLine
  else
   Response.Write(" <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem.</center></font></b></p>" & vbNewLine)
   Response.Write " <table align=""center"">" & vbNewLine & _
    "  <tr>" & vbNewLine & _
    "   <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
    "  </tr>" & vbNewLine & _
    " </table>" & vbNewLine
       Response.Write("      <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go Back To Enter Data.</center></a></font></p>" & vbNewLine)
   end if
 else
   Response.Write " <form action=""contact_admin.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
  "  <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
  "  <input type=""hidden"" name=""Name"" value=""" & Name & """>" & vbNewLine & _
  "  <input type=""hidden"" name=""Email"" value=""" & Email & """>" & vbNewLine & _
  "   <table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
  "    <tr>" & vbNewLine & _
  "     <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
  "      <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact Us</font></b></td>" & vbNewLine

Response.Write "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b>" & vbNewLine & _
  "          <br>" & vbNewLine & _
  "            <table border=""0"">" & vbNewLine & _
  "              <tr>" & vbNewLine & _
  "                <td align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine

Response.Write "                </font></td>" & vbNewLine & _
  "              </tr>" & vbNewLine & _
  "            </table></font></td>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" cols=""50"" rows=""10""></textarea></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "       <tr>" & vbNewLine & _
  "        <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
  "       </tr>" & vbNewLine & _
  "      </table>" & vbNewLine & _
  "     </td>" & vbNewLine & _
  "    </tr>" & vbNewLine & _
  "   </table>" & vbNewLine & _
  "</form>" & vbNewLine
end if
WriteFooter
Response.End
%>

Edited by - Carefree on 29 July 2008 11:50:50

leatherlips
Senior Member

USA
1838 Posts

Posted - 29 July 2008 : 14:00:07

Carefree, your does not verify that anything was entered into the fields. Here is the code I have for my contact page. Just copy and paste it and name it contact_us.asp. Note that if you decided to call it something different you'll have to change line 120 to point to your page.

<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## 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
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
if Request.QueryString("mode") = "DoIt" then
   Err_Msg = ""
   if (Request.Form("YName") = "") then 
      Err_Msg = Err_Msg & "<li>You must enter your name</li>"
   end if
   if (Request.Form("YEmail") = "") then 
      Err_Msg = Err_Msg & "<li>You Must give your e-mail address</li>"
   else
      if (EmailField(Request.Form("YEmail")) = 0) then 
         Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address</li>"
      end if
   end if
   if (Request.Form("Name") = "") then 
      Err_Msg = Err_Msg & "<li>You must enter the recipients name</li>"
   end if
   if (Request.Form("Email") = "") then 
      Err_Msg = Err_Msg & "<li>You Must enter the recipients e-mail address</li>"
   else
      if (EmailField(Request.Form("Email")) = 0) then 
         Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address for the recipient</li>"
      end if
   end if
   if (Request.Form("Msg") = "") then 
      Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
   end if
   if lcase(strEmail) = "1" then
      if (Err_Msg = "") then
         strRecipientsName = Request.Form("Name")
         strRecipients = Request.Form("Email")
         strSubject = strForumTitle
         strMessage = Request.Form("Msg") & vbNewline & vbNewline
         strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
      strFromName = Request.Form("YName")
         strSender = Request.Form("YEmail")
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
         Response.Write("      <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center>Your email has been sent</center></font></b></p>" & vbNewLine)
         Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""JavaScript:history.go(-2)"">Go Back</a></font></p><br /><br />" & vbNewLine
      else
         Response.Write("      <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
         Response.Write "      <table align=""center"">" & vbNewLine & _
               "        <tr>" & vbNewLine & _
               "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
               "        </tr>" & vbNewLine & _
               "      </table>" & vbNewLine
         Response.Write("      <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go Back To Enter Data</center></a></font></p>" & vbNewLine)
      end if
   end if
else 
   '## Forum_SQL
   strSql =  "SELECT M_NAME, M_USERNAME, M_EMAIL "
   strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
   strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""

   set rs = my_conn.Execute (strSql)
   if (rs.EOF or rs.BOF)  then
      Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
      Response.Write("      <p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
      Response.Write "      <table align=""center"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
            "        </tr>" & vbNewLine & _
            "      </table>" & vbNewLine
      set rs = nothing
      Response.Write("      <p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
      Response.End
   else
   Name = Trim("" & rs("M_NAME"))
   Email = Trim("" & rs("M_EMAIL"))
   end if

   rs.close
   set rs = nothing

   Response.Write "      <form action=""contact_us.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
         "      <input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
         "      <input type=""hidden"" name=""Name"" value=""" & Name & """>" & vbNewLine & _
         "      <input type=""hidden"" name=""Email"" value=""" & Email & """>" & vbNewLine & _
         "      <table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
         "        <tr>" & vbNewLine & _
         "          <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
         "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _


         "<tr>" & vbNewLine & _
         "                <td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & "</font></b></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _


         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" cols=""50"" rows=""10""></textarea></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "            </table>" & vbNewLine & _
         "          </td>" & vbNewLine & _
         "        </tr>" & vbNewLine & _
         "      </table>" & vbNewLine & _
         "      </form>" & vbNewLine
end if
WriteFooter
Response.End
%>

texanman
Junior Member

United States
410 Posts

Posted - 29 July 2008 : 14:39:57

Hi, this is very nice but is it what he (or me

) is looking for ?
Can't we get something similar to what you have with popup from register,asp? This will only go to the Super Admin.
I was hoping to see something that lists all admin names with their e-mails hidden as you have. This gives the person the option which admin to contact.
Cheers<

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 29 July 2008 : 14:51:46

liek i said before..bepends on what u want exactly...i think i have an old bug reporting system that would send a pm to the admin thats knocking about. that way there no chance of spam bots filling up your email inbox and what not.

it was simple and it worked great. it woud log basic details of the user and the problem that was specifyed. i coudl dig it out if maybe thats what you want instead?<

thelodger
Junior Member

United Kingdom
296 Posts

Posted - 29 July 2008 : 15:26:47

leatherlips, yours looks great for my needs, just two questions

1, Where does the contact us go to? is it main admin email addy or somewhere else?

2, as I don't code, how can I make a link so it shows at the top of the main forum?<

balexandre
Junior Member

Denmark
418 Posts

Posted - 29 July 2008 : 16:09:45

just to let you guys know that I made mine from pop_email file, and it requests the name and email if you are not registered/logged in or it fills automatically if you already on the system

to test:

http://www.ga-paneuropean.com/

click on "Contacto do GAPE"

Bruno Alexandre
(Strøby, DANMARK)

"a Portuguese in Danmark"

MOD's contribution to Snitz community *
Facebook Module *
RSS Snitz Multiple Feed *
Online videos (Youtube, Google video, Flash, Quicktime, etc) *
Add avatar with image crop (on the fly) *
Show last messages in the forum *
Show how many messages since yours IN PAGE TITLE *
Updated version of Gender MOD *
Fly to the top instead of jumping *

an idea: iPhone version of Snitz

<mySnitzForum>GAPE</mySnitzForum>

Edited by - balexandre on 29 July 2008 16:24:35

leatherlips
Senior Member

USA
1838 Posts

Posted - 29 July 2008 : 17:38:03

quote:
Originally posted by thelodger

1, Where does the contact us go to? is it main admin email addy or somewhere else?

2, as I don't code, how can I make a link so it shows at the top of the main forum?

1. It goes to the main admin.
2. To place a link to it open inc_header.asp.

Look for:

"          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>"

Add the parts in red to make it look like this:

"          <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
         "          |" & vbNewline & _
"          <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>"

thelodger
Junior Member

United Kingdom
296 Posts

Posted - 29 July 2008 : 17:59:29

Cheers, I will do it tomorrow as its 11pm here, but great work its much appreciated.<

thelodger
Junior Member

United Kingdom
296 Posts

Posted - 30 July 2008 : 17:07:05

leatherlips can you check the code please, my forum died a death when I added it lol, I just removed the code and it came back to life

leatherlips
Senior Member

USA
1838 Posts

Posted - 30 July 2008 : 17:58:22

quote:
Originally posted by thelodger

leatherlips can you check the code please, my forum died a death when I added it lol, I just removed the code and it came back to life

What error are you getting? The code I have above works fine for me.<

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 30 July 2008 : 17:59:39

quote:
Originally posted by MaD2ko0l

liek i said before..bepends on what u want exactly...i think i have an old bug reporting system that would send a pm to the admin thats knocking about. that way there no chance of spam bots filling up your email inbox and what not.

it was simple and it worked great. it woud log basic details of the user and the problem that was specifyed. i coudl dig it out if maybe thats what you want instead?

That sounds like something I'd like to play with. I'd appreciate your passing it on.<

thelodger
Junior Member

United Kingdom
296 Posts

Posted - 31 July 2008 : 03:54:28

For some reason I am not getting an error, just a dead forum when I add that code as explained, this is what it looks like after I have added it, is this correct? obviously I have just highlighted the code I have added in red. sorry to be pain I am hopeless at this.

quote:
" <a href=""search.asp"
if Request.QueryString("FORUM_ID") <> "" then Response.Write("?FORUM_ID=" & cLng(Request.QueryString("FORUM_ID")))
Response.Write """" & dWStatus("Perform a search by keyword, date, and/or name...") & " tabindex=""-1""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>"& vbNewline & _
" |" & vbNewline & _
" <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>"
'##USER SPACE mod ## Add line below ###################
if trim(strUSSwitch) <> "" then
Response.Write " |" & vbNewLine & " <a href=""user_space.asp?mode=0"" " & dWStatus("View your forum folders") & " tabindex=""-1""><acronym title=""View your forum folders"">Your Space</acronym></a>"
end if
'## End ##############################################
end sub

Edited by - thelodger on 31 July 2008 03:55:00

leatherlips
Senior Member

USA
1838 Posts

Posted - 31 July 2008 : 08:17:32

You need a space before the green in this section:

FAQ</acronym></a>" & vbNewline & _

Edit: I just went to your forum (I had to Google to try to find it as your link in your profile no longer exists

)

Anyway, I noticed your last link is not FAQ but Your Space. Therefore you'll either want to add the contact link after Your Space, or keep it where I said and at the end of it add & vbNewLine & _

Here was the code should be if you keep it after the FAQ:

<a href=""faq.asp""" & dWStatus("Answers to Frequently Asked Questions...") & " tabindex=""-1""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""contact_us.asp""" & dWStatus("Contact " & strForumTitle & "") & " tabindex=""-1""><acronym title=""Contact " & strForumTitle & """>Contact</acronym></a>" & vbNewLine & _

Edited by - leatherlips on 31 July 2008 09:26:15

Page: of 2

Topic