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
 User Fields Mod - Help Please		  New Topic  Topic Locked
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

Rawly
Starting Member

United Kingdom
41 Posts
Posted - 06 June 2001 :  11:05:02  Show Profile  Visit Rawly's Homepage  Send Rawly an AOL message  Send Rawly an ICQ Message  Send Rawly a Yahoo! Message
When I installed this MOD I get this error when opening the register.asp page

Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/rawly/inc_profile.asp, line 168 

"<td align=center bgcolor=""" & strCategoryCellColor & """ colspan="2"><b>" &_
--------------------------------------------------------------------^



Rawly

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 06 June 2001 :  14:42:26  Show Profile  Visit HuwR's Homepage
change the "2" to ""2""
Go to Top of Page

Rawly
Starting Member

United Kingdom
41 Posts
Posted - 06 June 2001 :  16:06:04  Show Profile  Visit Rawly's Homepage  Send Rawly an AOL message  Send Rawly an ICQ Message  Send Rawly a Yahoo! Message
Ok, thank you that sorted that problem,
now there is this one

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/rawly/inc_profile.asp, line 185 

"<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_



It came in the readme file in this context:


if rs2("USR_FIELDTYPE") = "S" then
					Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
					"<INPUT name=""" & rs2("USR_SHORTNAME") & """ size=""20"" value=""" & getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) & """></font></td>"
				Else
					"<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
					"<INPUT name=""" & rs2("USR_SHORTNAME") & """ type=""checkbox"" value=""1"" " 
					If fieldValue = "1" then Response.write "checked"
					Response.write "></font></td>"
				End If



Rawly
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 06 June 2001 :  16:23:19  Show Profile  Visit HuwR's Homepage
there should be a response.write in front of that string

ie

Else
    Response.write "<td valign=""top"" bgColor......
Go to Top of Page

Rawly
Starting Member

United Kingdom
41 Posts
Posted - 06 June 2001 :  17:36:20  Show Profile  Visit Rawly's Homepage  Send Rawly an AOL message  Send Rawly an ICQ Message  Send Rawly a Yahoo! Message
thank you that has sorted it

I apprecate it a lot

Rawly
Go to Top of Page

mano
Starting Member

1 Posts
Posted - 13 July 2001 :  16:46:18  Show Profile
Hi HuwR, Besides the two coding errors that are mentioned in this thread, there seem to be more - at least I still get after correcting the 2 mentioned here in a freshly downloaded and install snitz edition ... ;( For me the additional user fields are very important, so I really hope you can help me out here.

Compilation error Microsoft VBScript (0x800A0401)
End of instruction expected
/forum/pop_profile.asp, line 484, column 76
"<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize """ color=""" & strHeadFontColor & """>"

I'm not that good with ASP that I can see what's wrong here, but for sure it doesn't work. Looking forward to hear from you!




quote:

there should be a response.write in front of that string

ie

Else
    Response.write "<td valign=""top"" bgColor......
Go to Top of Page

Astralis
Senior Member

USA
1218 Posts
Posted - 23 July 2001 :  15:18:46  Show Profile  Send Astralis a Yahoo! Message
I'm also getting lots of coding problems with pop_profile at this moment. How can I correct these?

Huwr, do you have a newer version of this mod?

Edited by - astralis on 24 July 2001 10:17:53
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 24 July 2001 :  12:06:36  Show Profile  Visit HuwR's Homepage
quote:

Hi HuwR, Besides the two coding errors that are mentioned in this thread, there seem to be more - at least I still get after correcting the 2 mentioned here in a freshly downloaded and install snitz edition ... ;( For me the additional user fields are very important, so I really hope you can help me out here.

Compilation error Microsoft VBScript (0x800A0401)
End of instruction expected
/forum/pop_profile.asp, line 484, column 76
"<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize """ color=""" & strHeadFontColor & """>"

I'm not that good with ASP that I can see what's wrong here, but for sure it doesn't work. Looking forward to hear from you!



there should be an & here
strDefaultFontSize & """ color
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 24 July 2001 :  12:08:37  Show Profile  Visit HuwR's Homepage
quote:

I'm also getting lots of coding problems with pop_profile at this moment. How can I correct these?

Huwr, do you have a newer version of this mod?

Edited by - astralis on 24 July 2001 10:17:53


The readme.txt file contained in the zip has recently been updated, but the Mod has not changed since it's release.
If you are getting problems other than the ones here, please post them so that I can address them
Go to Top of Page

Astralis
Senior Member

USA
1218 Posts
Posted - 24 July 2001 :  15:10:30  Show Profile  Send Astralis a Yahoo! Message
It seems every error that is corrected there is another within pop_profile.

This is another error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/forum/pop_profile.asp, line 485

"More About Me</font></b></td>"
^
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 24 July 2001 :  15:29:32  Show Profile  Visit HuwR's Homepage
Astralis

on the line above the offending line add &_ to the very end of the line.

I have updated the zip
Go to Top of Page

Astralis
Senior Member

USA
1218 Posts
Posted - 24 July 2001 :  16:18:50  Show Profile  Send Astralis a Yahoo! Message
Huwr,

This is the third error that I needed to correct after you updated the zip today. I'm not sure how to correct this though:

Microsoft VBScript compilation error '800a0400'

Expected statement

/forum/inc_profile.asp, line 170

"</tr><tr><td></td></tr>"
^

I understand it's tedious.

Just to be sure, do I need to upload any of the files that don't need modified from the readme file? In other words, except for updating the files from the readme file, do I need to upload any of the files in the updated zip?

Thanks.



Edited by - astralis on 24 July 2001 16:22:06

Edited by - astralis on 24 July 2001 16:25:11
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 24 July 2001 :  16:57:04  Show Profile  Visit HuwR's Homepage
quote:

Huwr,

This is the third error that I needed to correct after you updated the zip today. I'm not sure how to correct this though:

Microsoft VBScript compilation error '800a0400'

Expected statement

/forum/inc_profile.asp, line 170

"</tr><tr><td></td></tr>"
^

I understand it's tedious.

Just to be sure, do I need to upload any of the files that don't need modified from the readme file? In other words, except for updating the files from the readme file, do I need to upload any of the files in the updated zip?

Thanks.



Edited by - astralis on 24 July 2001 16:22:06

Edited by - astralis on 24 July 2001 16:25:11


I have checked th readme file, and the code in it for this looks fine, check that th line above the one in the error has the &_ at the end of it, as in the readme
Go to Top of Page

Astralis
Senior Member

USA
1218 Posts
Posted - 24 July 2001 :  19:17:42  Show Profile  Send Astralis a Yahoo! Message
Huwr,

You're probably busy implementing the new forum, but I have the exact file from your new readme file uploaded and it's giving me a bunch of errors. I'm going to try to reinstall it.

There is a &_ after the line above the error so I don't understand what the problem is.

I have replaced all the files with the information from your new readme file and I receive this error:
Microsoft VBScript compilation error '800a0400'

Expected statement

/forum/inc_profile.asp, line 170

"</tr><tr><td></td></tr>"
^

This is the file:

<%
'Rem User Field Code #######################################
if (intUserFields > 0) then
Response.write "<tr>" &_
"<td align=center bgcolor='" & strCategoryCellColor & "' colspan='2'><b>" &_
"<font face='" & strDefaultFontFace & "' size="' & strDefaultFontSize & "' color="' & strHeadFontColor & "'>Extra Info..</font></b></td>" &_
"</tr><tr><td></td></tr>"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnString
set rs2 = Conn.Execute("SELECT * FROM " & strMemberTablePrefix & "USERFIELDS ORDER BY USR_FIELD_ID")
do until rs2.EOF
fieldValue = getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID"))
Response.Write ("<tr><td valign=""top"" align=""right"" bgColor=" &strPopUpTableColor & " > <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
if rs2("USR_FIELDTYPE") = "T" then
Response.Write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><textarea maxLength=""255"" name=" & rs2("USR_SHORTNAME") &_
" cols=""20"" rows=3>" & getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) & "</textarea></td>"
Else
if rs2("USR_FIELDTYPE") = "S" then
Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"<INPUT name=""" & rs2("USR_SHORTNAME") & """ size=""20"" value=""" & getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) & """></font></td>"
Else
Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"<INPUT name=""" & rs2("USR_SHORTNAME") & """ type=""checkbox"" value=""1"" "
If fieldValue = "1" then Response.write "checked"
Response.write "></font></td>"
End If
End If
response.write "</tr>"
rs2.MoveNext
loop
rs2.Close
Conn.close
set Conn = Nothing
end if
'Rem User Field Code #######################################
%>

How can I fix this?


Edited by - astralis on 25 July 2001 11:18:12

Edited by - astralis on 25 July 2001 11:19:34
Go to Top of Page

HuwR
Forum Admin

United Kingdom
20584 Posts
Posted - 25 July 2001 :  12:05:37  Show Profile  Visit HuwR's Homepage
I have highlighted the line that is wrong in red, this is not how the line appears in the readme.
Go to Top of Page

Astralis
Senior Member

USA
1218 Posts
Posted - 25 July 2001 :  13:47:45  Show Profile  Send Astralis a Yahoo! Message
Huwr,

I downloaded your readme file again. This is the code that I copied straight from your new readme file that I downloaded two minutes ago:

<%
'Rem User Field Code #######################################
if (intUserFields > 0) then
Response.write "<tr>" &_
"<td align=center bgcolor='" & strCategoryCellColor & "' colspan='2'><b>" &_
"<font face='" & strDefaultFontFace & "' size="' & strDefaultFontSize & "' color="' & strHeadFontColor & "'>Extra Info..</font></b></td>" &_
"</tr><tr><td></td></tr>"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnString
set rs2 = Conn.Execute("SELECT * FROM " & strMemberTablePrefix & "USERFIELDS ORDER BY USR_FIELD_ID")
do until rs2.EOF
fieldValue = getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID"))
Response.Write ("<tr><td valign=""top"" align=""right"" bgColor=" &strPopUpTableColor & " > <b><font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">" & rs2("USR_LABEL") & ":</font></b></td>")
if rs2("USR_FIELDTYPE") = "T" then
Response.Write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><textarea maxLength=""255"" name=" & rs2("USR_SHORTNAME") &_
" cols=""20"" rows=3>" & getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) & "</textarea></td>"
Else
if rs2("USR_FIELDTYPE") = "S" then
Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"<INPUT name=""" & rs2("USR_SHORTNAME") & """ size=""20"" value=""" & getUserFieldValue(rs2("USR_FIELD_ID"),RS("MEMBER_ID")) & """></font></td>"
Else
Response.write "<td valign=""top"" bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" &_
"<INPUT name=""" & rs2("USR_SHORTNAME") & """ type=""checkbox"" value=""1"" "
If fieldValue = "1" then Response.write "checked"
Response.write "></font></td>"
End If
End If
response.write "</tr>"
rs2.MoveNext
loop
rs2.Close
Conn.close
set Conn = Nothing
end if
'Rem User Field Code #######################################
%>

After using the newest readme that I downloaded a couple of minutes ago, I'm still receiving this error:

Microsoft VBScript compilation error '800a0400'

Expected statement

/forum/inc_profile.asp, line 170

"</tr><tr><td></td></tr>"
^


Huwr, I thought maybe the problem might be because I corrected some of the errors in the pop_profile in your new readme file so I redid pop_profile again from your newest readme file and this is the error I'm receiving:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/forum/pop_profile.asp, line 493

"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize """ >"
-------------------------------------------------------------------------^

If you fix this, I know there is at least one more error in pop_profile. I think you have to add a &.

Can you put up a new readme file? I think there might have been a mix up when you copied it because you keep telling me there is nothing wrong with the new readme file.

I really don't understand it.



Edited by - astralis on 25 July 2001 13:56:51
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 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.55 seconds. Powered By: Snitz Forums 2000 Version 3.4.07