Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Require Member Profile-Help!
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

The Zim
Junior Member

107 Posts

Posted - 20 March 2009 :  11:05:11  Show Profile  Visit The Zim's Homepage
Hey, I got this error message:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/zimsgizmos/test/inc_profile.asp, line 114

Response.Write " <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> AIM: </font></b></td>" & vbNewLine
---------------------------------------------------------------------------^

When I attempted to add the Require Member Profile MOD from Snitz Bitz. Does anyone have any suggestions as to what I could do to fix this?

This error message appears when I try to Register a new user or edit someone's profile. Please help if you know how to fix this!

Also, I'm not sure whether there's an option that I could upload the files that I've edited on here for others to review, but it would be nice.

AnonJr
Moderator

United States
5768 Posts

Posted - 20 March 2009 :  11:17:33  Show Profile  Visit AnonJr's Homepage
Which version of Snitz are you running? I ask only because this MOD was integrated into 3.4.07. If you don't have any other MODs, it would be easier to upgrade.

Having said that, some context to your problem would help. Maybe post line 114 and a few lines above/below? Just make sure you put them in a [scrollcode] box or link to a .txt version of your file.
Go to Top of Page

The Zim
Junior Member

107 Posts

Posted - 21 March 2009 :  21:39:01  Show Profile  Visit The Zim's Homepage
Umm... I'm running version 3.4.06. I did not realize there was a new version?

So, if I upgrade to this new version, I can select different things to be required?

Here's that code you asked for (lines 123-178 according to my editor):

if strICQ = "1" then
         Response.Write "                    <tr>" & vbNewLine
      if strReqICQ = "1" then
               Response.Write "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> ICQ: </font></b></td>" & vbNewLine
      else
               Response.Write "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>ICQ: </font></b></td>" & vbNewLine
      end if
         Response.Write "                      <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""ICQ"" size=""25"" maxLength=""50"" value="""
         if strMode ><> "Register" then Response.Write(ChkString(rs("M_ICQ"), "display"))
         Response.Write """></font></td>" & vbNewLine & _
               "                    </tr>" & vbNewLine
end if

      if strMSN = "1" then
         Response.Write "                    <tr>" & vbNewLine
      if strReqMSN = "1" then
               Response.Write "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> MSN: </font></b></td>" & vbNewLine
      else
               Response.Write "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>MSN: </font></b></td>" & vbNewLine
      end if
         Response.Write "                      <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""MSN"" size=""25"" maxLength=""50"" value="""
         if strMode ><> "Register" then Response.Write(ChkString(rs("M_MSN"), "display"))
         Response.Write """></font></td>" & vbNewLine & _
               "                    </tr>" & vbNewLine
end if
      if strYAHOO = "1" then
         Response.Write "                    <tr>" & vbNewLine
      if strReqYAHOO = "1" then
               Response.Write "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> YAHOO: </font></b></td>" & vbNewLine
      else
               Response.Write "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>YAHOO: </font></b></td>" & vbNewLine
      end if
         Response.Write "                      <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""YAHOO"" size=""25"" maxLength=""50"" value="""
         if strMode ><> "Register" then Response.Write(ChkString(rs("M_YAHOO"), "display"))
         Response.Write """></font></td>" & vbNewLine & _
               "                    </tr>" & vbNewLine
end if
		if (strHomepage + strFavLinks) > 0 and (strUseExtendedProfile) then
			Response.Write	"                    <tr>" & vbNewLine & _
					"                      <td align=""center"" bgcolor=""" & strCategoryCellColor & """ colspan=""2"">" & vbNewLine & _
					"                      <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>Links </font></b></td>" & vbNewLine & _
					"                    </tr>" & vbNewLine
if strHomepage = "1" then
            Response.Write "                    <tr>" & vbNewLine
   if strReqHomepage = "1" then
          Response.Write        "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><font color=""" & strHiLiteFontColor """>*</font> Homepage: </font></b></td>" & vbNewLine & _
              "                      <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
         else
   if strHomepage = "1" then
            Response.Write "                    ><tr>" & vbNewLine & _
                    "                      <td bgColor=""" & strPopUpTableColor """ align=""right"" valign=""middle"" nowrap width=""10%""><b><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """>Homepage: </font></b></td>" & vbNewLine & _
              "                      <td bgColor=""" & strPopUpTableColor """><font face=""" & strDefaultFontFace """ size="" strDefaultFontSize """><input name=""Homepage"" size=""25"" maxLength=""255"" value="""
            if strMode ><> "Register" then
               if ChkString(rs("M_HOMEPAGE"), "display") <> " " and lcase(rs("M_HOMEPAGE")) <> "http://" then Response.Write(rs("M_HOMEPAGE")) else Response.Write("http://")
            else
               Response.Write("http://")


Edited by - The Zim on 21 March 2009 21:44:56
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 22 March 2009 :  02:29:00  Show Profile  Visit HuwR's Homepage
quote:
I did not realize there was a new version?
That is why we have an announcements forum.
Go to Top of Page

The Zim
Junior Member

107 Posts

Posted - 23 March 2009 :  08:05:11  Show Profile  Visit The Zim's Homepage
lol, well, I've just upgraded, lol.

Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 23 March 2009 :  12:14:37  Show Profile  Visit HuwR's Homepage
I think you can still subscribe to the announcements forum, so you will then get email should anything get released.
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 23 March 2009 :  12:34:22  Show Profile  Visit AnonJr's Homepage
quote:
Originally posted by HuwR

I think you can still subscribe to the announcements forum, so you will then get email should anything get released.

Used to be, but it doesn't seem to be enabled now...
Go to Top of Page

The Zim
Junior Member

107 Posts

Posted - 23 March 2009 :  17:44:46  Show Profile  Visit The Zim's Homepage
I know I saw something about a newsletter or something around here, but it sent me to another site to sign up for it. I didn't because I wasn't sure about doing that.

Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 23 March 2009 :  17:47:04  Show Profile  Visit AnonJr's Homepage
It probably sent you to the Snitz SourceForge.net page. IF that's the case, then there's no worries. If that's not the case, let us know which link and where it took you so we can fix it.
Go to Top of Page

The Zim
Junior Member

107 Posts

Posted - 23 March 2009 :  19:34:24  Show Profile  Visit The Zim's Homepage
I think that's where it took me, yes.

Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts

Posted - 24 March 2009 :  07:24:23  Show Profile  Visit HuwR's Homepage
quote:
Originally posted by AnonJr

quote:
Originally posted by HuwR

I think you can still subscribe to the announcements forum, so you will then get email should anything get released.

Used to be, but it doesn't seem to be enabled now...



ah yes, it is the security fixes forum which you can subscribe to, not the new releases.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.36 seconds. Powered By: Snitz Forums 2000 Version 3.4.07