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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 MOD: Custom Avatars 1.3 (Updated 3.4.03)
 New Topic  Topic Locked
 Printer Friendly
Previous Page | Next Page
Author Previous Topic Topic Next Topic
Page: of 7

cbovis
New Member

United Kingdom
91 Posts

Posted - 22 September 2002 :  02:59:24  Show Profile
Mod updated, that error should now be gone and i have added a note when installing the array part telling the user to check if the numbers match up.

Thanks

DJNeuphoria


Go to Top of Page

Black Star
Starting Member

6 Posts

Posted - 22 September 2002 :  18:42:48  Show Profile
I seem to get another error: when I disable avatars and I try to register a new user I get an error:

Microsoft JET Database Engine (0x80040E07)
Data type mismatch in criteria expression.
/blackstar.bex/TEST/register.asp, line 603


Any ideas ?
Go to Top of Page

cbovis
New Member

United Kingdom
91 Posts

Posted - 22 September 2002 :  19:53:07  Show Profile
ok i found that error:

around line 597 you will find the following:

strSql = strSql & ", ''"
strSql = strSql & ", ''"
strSql = strSql & ", ''"

replace the last 2 lines with

strSql = strSql & ", " & 1
strSql = strSql & ", " & 1

ill update the zip in the morning

Thanks

DJNeuphoria


Go to Top of Page

BWJM
Junior Member

Canada
193 Posts

Posted - 22 September 2002 :  22:26:26  Show Profile
Another bug!

Now that Admins can view a user's avatar settings, they cannot change it.

Fix: Find the following code in pop_profile.asp near line 1579:

if strBio = "1" then
	strSql = strSql & ", M_BIO = '" & chkString(Request.Form("Bio"),"message") & "'" 
end if

After the above code, add the following:

if StrShowAvatar = "1" then
	strSql = strSQL & ", M_AVATAR = '" & chkString(Request.Form("Avatar"),"SQLString") &  "'"
	strSql = strSQL & ", M_AVATAR_WIDTH = '" & chkString(Request.Form("AvatarW"),"SQLString") & "'"
	strSql = strSQL & ", M_AVATAR_HEIGHT = '" & chkString(Request.Form("AvatarH"),"SQLString") & "'"
end if


The line number referenced is correct for the copy of pop_profile.asp as it was included in the zip file.

Go to Top of Page

rasure
Junior Member

289 Posts

Posted - 23 September 2002 :  01:17:42  Show Profile  Visit rasure's Homepage
I got this error when trying to register (in register.asp)This occurs when no avatar is specified.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rsKey'

/forum/register.asp, line 601

*************************************
I think this is where it is
*************************************
strSql = strSql & ", '"
strSql = strSql & ", '" & chkString(rsKey("M_AVATAR"),"message") & "'"
strSql = strSql & ", '" & chkString(rsKey("M_AVATAR_WIDTH"),"message") & "'"
strSql = strSql & ", '" & chkString(rsKey("M_AVATAR_HEIGHT"),"message") & "'"
strSql = strSql & ")"

Psychic & Spiritual Development Resources

Edited by - rasure on 23 September 2002 01:24:18
Go to Top of Page

cbovis
New Member

United Kingdom
91 Posts

Posted - 23 September 2002 :  02:48:08  Show Profile
quote:
Originally posted by rasure

I got this error when trying to register (in register.asp)This occurs when no avatar is specified.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rsKey'

/forum/register.asp, line 601

*************************************
I think this is where it is
*************************************
strSql = strSql & ", '"
strSql = strSql & ", '" & chkString(rsKey("M_AVATAR"),"message") & "'"
strSql = strSql & ", '" & chkString(rsKey("M_AVATAR_WIDTH"),"message") & "'"
strSql = strSql & ", '" & chkString(rsKey("M_AVATAR_HEIGHT"),"message") & "'"
strSql = strSql & ")"



what version of snitz? sounds like it cant find the rskey function. Works fine for me as i just tested it out.

Thanks

DJNeuphoria


Go to Top of Page

cbovis
New Member

United Kingdom
91 Posts

Posted - 23 September 2002 :  03:04:42  Show Profile
updated, those bugs should be fixed

Thanks

DJNeuphoria


Go to Top of Page

rasure
Junior Member

289 Posts

Posted - 23 September 2002 :  07:49:10  Show Profile  Visit rasure's Homepage
quote:
Originally posted by cbovis
what version of snitz? sounds like it cant find the rskey function. Works fine for me as i just tested it out.



The lastest version I`ll re-download your upadated mod and start again, think I was trying to fix too many errors at once lol

Psychic & Spiritual Development Resources
Go to Top of Page

cbovis
New Member

United Kingdom
91 Posts

Posted - 23 September 2002 :  12:02:01  Show Profile
ok, the type mismatch error sounded as though it couldnt find the function which brought me onto the idea that u might be using a version without it. But nevermind.

Thanks

DJNeuphoria


Go to Top of Page

Black Star
Starting Member

6 Posts

Posted - 23 September 2002 :  12:49:44  Show Profile
Even with the latest zip I still get the error abour the rKey. When you disable avatars and register I get this error.

Any ideas ?
Go to Top of Page

rasure
Junior Member

289 Posts

Posted - 23 September 2002 :  13:53:50  Show Profile  Visit rasure's Homepage
Yes im still getting same error even with updated version, my only problem was thouhg is where to actually put this bit....as I feel this is where Im going wrong somewhere

'#################
Around line 591 You will find the following
'#################

strSql = strSql & ", 1"

'#################
Directly Below This Add The Following
'#################

if strShowAvatar = "1" then
strSql = strSql & ", '" & ChkString(Request.Form("Avatar"),"message") & "'"
strSql = strSql & ", '" & ChkString(Request.Form("AvatarW"),"message") & "'"
strSql = strSql & ", '" & ChkString(Request.Form("AvatarH"),"message") & "'"
else
strSql = strSql & ", ''" & 1
strSql = strSql & ", ''" & 1
strSql = strSql & ", ''" & 1
end if

Psychic & Spiritual Development Resources
Go to Top of Page

Black Star
Starting Member

6 Posts

Posted - 23 September 2002 :  20:36:22  Show Profile
I think I found another bug or something I did wrong maybe but only the avatar of the first post in a topic is showing. The replies don't get an avatar.

Any ideas ?
Go to Top of Page

Black Star
Starting Member

6 Posts

Posted - 23 September 2002 :  20:54:00  Show Profile
I found the problem (don't know the fix): the problem only occurs when you turn on the "Allow Dynamic Signatures" feature.

Go to Top of Page

schef
Junior Member

USA
164 Posts

Posted - 24 September 2002 :  01:03:44  Show Profile  Visit schef's Homepage  Send schef an AOL message
before i set it up... can there still be an option to select an avatar without entering the URL? Say enter one from a drop down list??

ATV Outdoors
Go to Top of Page

jarod
Starting Member

30 Posts

Posted - 25 September 2002 :  03:19:00  Show Profile
I keep getting an error

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'iReplyCount'

/khs/messageboards/topic.asp, line 553

Heres the code.

if iReplyCount = "" then '## No replies found in DB
' Nothing
else
intI = 0
rM_NAME = 0
rM_RECEIVE_EMAIL = 1
rM_AIM = 2
rM_ICQ = 3
rM_MSN = 4
rM_YAHOO = 5
rM_PM = 6

rM_TITLE = 7
rMEMBER_ID = 8
rM_HOMEPAGE = 9
rM_LEVEL = 10
rM_POSTS = 11
rM_COUNTRY = 12
rREPLY_ID = 13
rFORUM_ID = 14
rR_AUTHOR = 15
rTOPIC_ID = 16
rR_MESSAGE = 17
rR_LAST_EDIT = 18
rR_LAST_EDITBY = 19
rR_SIG = 20
rR_STATUS = 21
rR_DATE = 22
rM_AVATAR = 23
rM_AVATAR_WIDTH = 24
rM_AVATAR_HEIGHT = 25
if CanShowSignature = 1 then
rM_SIG = 26


end if

end if

for iForum = 0 to iReplyCount

Reply_MemberName = arrReplyData(rM_NAME, iForum)
Reply_MemberReceiveEmail = arrReplyData(rM_RECEIVE_EMAIL, iForum)
Reply_MemberAIM = arrReplyData(rM_AIM, iForum)
Reply_MemberICQ = arrReplyData(rM_ICQ, iForum)
Reply_MemberMSN = arrReplyData(rM_MSN, iForum)
Reply_MemberYAHOO = arrReplyData(rM_YAHOO, iForum)
Reply_MemberPM = arrReplyData(rM_PM, iForum)

Reply_MemberTitle = arrReplyData(rM_TITLE, iForum)
Reply_MemberID = arrReplyData(rMEMBER_ID, iForum)
Reply_MemberHomepage = arrReplyData(rM_HOMEPAGE, iForum)
Reply_MemberLevel = arrReplyData(rM_LEVEL, iForum)
Reply_MemberPosts = arrReplyData(rM_POSTS, iForum)
Reply_MemberCountry = arrReplyData(rM_COUNTRY, iForum)
Reply_ReplyID = arrReplyData(rREPLY_ID, iForum)
Reply_ForumID = arrReplyData(rFORUM_ID, iForum)
Reply_Author = arrReplyData(rR_AUTHOR, iForum)
Reply_TopicID = arrReplyData(rTOPIC_ID, iForum)
Reply_Content = arrReplyData(rR_MESSAGE, iForum)
Reply_LastEdit = arrReplyData(rR_LAST_EDIT, iForum)
Reply_LastEditBy = arrReplyData(rR_LAST_EDITBY, iForum)
Reply_Sig = arrReplyData(rR_SIG, iForum)
Reply_Status = arrReplyData(rR_STATUS, iForum)
Reply_Date = arrReplyData(rR_DATE, iForum)
Reply_MemberAvatar = arrReplyData(rM_AVATAR, iForum)
Reply_MemberAvatarW = arrReplyData(rM_AVATAR_WIDTH, iForum)
Reply_MemberAvatarH = arrReplyData(rM_AVATAR_HEIGHT, iForum)
if CanShowSignature = 1 then
Reply_MemberSig = trim(arrReplyData(rM_SIG, iForum))

end if

Please help I need this up my morning.
Go to Top of Page
Page: of 7 Previous Topic Topic Next Topic  
Previous Page | 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.18 seconds. Powered By: Snitz Forums 2000 Version 3.4.07