Author |
Topic |
cbovis
New Member
United Kingdom
91 Posts |
Posted - 22 September 2002 : 02:59:24
|
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
|
|
|
Black Star
Starting Member
6 Posts |
Posted - 22 September 2002 : 18:42:48
|
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 ? |
|
|
cbovis
New Member
United Kingdom
91 Posts |
Posted - 22 September 2002 : 19:53:07
|
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
|
|
|
BWJM
Junior Member
Canada
193 Posts |
Posted - 22 September 2002 : 22:26:26
|
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. |
|
|
|
rasure
Junior Member
289 Posts |
Posted - 23 September 2002 : 01:17:42
|
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 |
|
|
cbovis
New Member
United Kingdom
91 Posts |
Posted - 23 September 2002 : 02:48:08
|
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
|
|
|
cbovis
New Member
United Kingdom
91 Posts |
Posted - 23 September 2002 : 03:04:42
|
updated, those bugs should be fixed |
Thanks
DJNeuphoria
|
|
|
rasure
Junior Member
289 Posts |
Posted - 23 September 2002 : 07:49:10
|
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 |
|
|
cbovis
New Member
United Kingdom
91 Posts |
Posted - 23 September 2002 : 12:02:01
|
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
|
|
|
Black Star
Starting Member
6 Posts |
Posted - 23 September 2002 : 12:49:44
|
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 ? |
|
|
rasure
Junior Member
289 Posts |
Posted - 23 September 2002 : 13:53:50
|
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 |
|
|
Black Star
Starting Member
6 Posts |
Posted - 23 September 2002 : 20:36:22
|
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 ? |
|
|
Black Star
Starting Member
6 Posts |
Posted - 23 September 2002 : 20:54:00
|
I found the problem (don't know the fix): the problem only occurs when you turn on the "Allow Dynamic Signatures" feature.
|
|
|
schef
Junior Member
USA
164 Posts |
Posted - 24 September 2002 : 01:03:44
|
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 |
|
|
jarod
Starting Member
30 Posts |
Posted - 25 September 2002 : 03:19:00
|
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. |
|
|
Topic |
|