Author |
Topic |
|
The Zim
Junior Member
107 Posts |
Posted - 20 March 2009 : 11:05:11
|
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
|
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. |
|
|
The Zim
Junior Member
107 Posts |
Posted - 21 March 2009 : 21:39:01
|
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 |
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 22 March 2009 : 02:29:00
|
quote: I did not realize there was a new version?
That is why we have an announcements forum. |
|
|
The Zim
Junior Member
107 Posts |
Posted - 23 March 2009 : 08:05:11
|
lol, well, I've just upgraded, lol. |
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 23 March 2009 : 12:14:37
|
I think you can still subscribe to the announcements forum, so you will then get email should anything get released. |
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 23 March 2009 : 12:34:22
|
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... |
|
|
The Zim
Junior Member
107 Posts |
Posted - 23 March 2009 : 17:44:46
|
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. |
|
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 23 March 2009 : 17:47:04
|
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. |
|
|
The Zim
Junior Member
107 Posts |
Posted - 23 March 2009 : 19:34:24
|
I think that's where it took me, yes. |
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 24 March 2009 : 07:24:23
|
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. |
|
|
|
Topic |
|