Snitz Forums 2000 - Site Integration - header/footer problems

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Site Integration - header/footer problems

New Topic

Topic Locked

Printer Friendly

Author

Topic

Pertinax
Starting Member

23 Posts

Posted - 08 September 2007 : 08:31:48

I'm using 3.4.06.
I downloaded Site Integration and started making the changes, however
for changes to file - inc_header.asp, I can't find the line

"<a name=""top""></a><font face=""" & strDefaultFontFace & """>" & vbNewLine & _
vbNewLine & _

.
There are several lines which have some of the same content, but nothing exactly the same.

Similarly, for changes to file - inc_footer.asp, I can't find the line (lines ?)

"</table>" & vbNewLine & _
"</font>" & vbNewLine & _

Can anyone help, please ?

ruirib
Snitz Forums Admin

Portugal
26364 Posts

Posted - 08 September 2007 : 10:31:43

At line 276, inc_header.asp, you have:


"<a name=""top""></a>" & vbNewLine & _
		vbNewLine & _

Replace that by:


"<a name=""top""></a>" & vbNewLine
if strSiteIntegEnabled = "1" then
  response.write "<table width=""100%"" border="""
	if strSiteBorder = "1" then
		response.write "1"
	else
		response.write "0"
	end if
	response.write """ cellspacing=""0"" cellpadding=""0"">" & vbNewLine
  if strSiteHeader = "1" then
    response.write "  <tr>" & vbNewLine & _
    "    <td"
    if strSiteLeft = "1" or strSiteRight = "1" then
      if strSiteLeft = "1" and strSiteRight = "1" then
        Response.write " colspan=""3"""
      else
		Response.write " colspan=""2"""
      end if
    end if
    response.write ">"
    %><!--#include file="inc_site_header.asp"--><%
    response.write "</td>" & vbNewLine & _
    "  </tr>" & vbNewLine
  end if
  response.write "  <tr>" & vbNewLine & _
  "    <td valign=""top"">" & vbNewLine
  if strSiteLeft = "1" then
    %><!--#include file="inc_site_left.asp"--><%
    response.write "</td>" & vbNewLine & _
    "  <td valign=""top"">" & vbNewLine
  end if
end if
response.write vbNewLine & _

For inc_footer.asp, find


Response.Write	"  </tr>" & vbNewLine & _
		"</table>" & vbNewLine & _
		"</body>" & vbNewLine & _
		"</html>" & vbNewLine

Replace it by


Response.Write	"  </tr>" & vbNewLine & _
		"</table>" & vbNewLine
if strSiteIntegEnabled = "1" then
  if strSiteRight = "1" then
    Response.Write	"    </td>" & vbNewLine & _
    "    <td valign=""top"">" & vbNewLine
    %><!--#include file="inc_site_right.asp"--><%
  end if
  Response.Write	"    </td>" & vbNewLine & _
  "  </tr>" & vbNewLine
  if strSiteFooter = "1" then
    Response.write  "  <tr>" & vbNewLine & _
    "    <td"
    if strSiteLeft = "1" or strSiteRight = "1" then
      if strSiteLeft = "1" and strSiteRight = "1" then
        Response.write " colspan=""3"""
      else
		Response.write " colspan=""2"""
      end if
    end if
    Response.write ">"
    %><!--#include file="inc_site_footer.asp"--><%
    Response.write "    </td>" & vbNewLine & _
    "  </tr>" & vbNewLine
  end if
  Response.write "</table>" & vbNewLine
end if
response.write "</body>" & vbNewLine & _
		"</html>" & vbNewLine

Snitz 3.4 Readme | Like the support? Support Snitz too