| Author |
 Topic  |
|
|
Muse
Starting Member
27 Posts |
 Posted - 02 May 2005 : 06:42:35
|
After installing the Avatar Mod I get this error when trying to view profiles:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'rs'
/snitzforum/pop_profile.asp, line 165
Here is line 165:
if mLev > 2 or rs("M_RECEIVE_EMAIL") = "1" then
Thank you for the help!
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 02 May 2005 : 06:57:45
|
Review your code changes, especially to pop_profile
rs should be a recordset object, opened before line 165 in the code. |
 |
|
|
Muse
Starting Member
27 Posts |
Posted - 02 May 2005 : 10:47:44
|
Here's the code from line 35 (right after the Snitz Copyright info ends) to line 164.
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#include FILE="inc_func_posting.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<% if not(strUseExtendedProfile) and Request.QueryString("verkey") = "" then %>
<!--#INCLUDE FILE="inc_header_short.asp" -->
<% else %>
<!--#INCLUDE FILE="inc_header.asp" -->
<%
end if
%>
<!--#INCLUDE FILE="inc_profile.asp" -->
<%
Dim strURLError
if Instr(1,Request.Form("refer"),"search.asp",1) > 0 then
strRefer = "search.asp"
elseif Instr(1,Request.Form("refer"),"register.asp",1) > 0 then
strRefer = "default.asp"
else
strRefer = chkString(Request.Form("refer"),"refer")
end if
if strRefer = "" then strRefer = "default.asp"
if Request.QueryString("id") <> "" and IsNumeric(Request.QueryString("id")) = true then
ppMember_ID = cLng(Request.QueryString("id"))
else
ppMember_ID = 0
end if
if strAuthType = "nt" then
if ChkAccountReg() <> "1" then
Response.Write "<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & vbNewLine & _
"<b>Note:</b> This NT account has not been registered yet, thus the profile is not available.<br />" & vbNewLine
if strProhibitNewMembers <> "1" then
Response.Write "If this is your account, <a href=""policy.asp"">click here</a> to register.</font></p>" & vbNewLine
else
Response.Write "</font></p>" & vbNewLine
end if
WriteFooter
Response.End
end if
end if
'############################# E-mail Validation Mod #################################
if Request.QueryString("verkey") <> "" then
verkey = chkString(Request.QueryString("verkey"),"SQLString")
'###Forum_SQL
strSql = "SELECT M_KEY, MEMBER_ID, M_EMAIL, M_NEWEMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_KEY = '" & verkey & "'"
set rsKey = my_Conn.Execute (strSql)
if rsKey.EOF or rsKey.BOF then
'Error message to user
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>There is a Problem!</b></font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your verification key did not match the one that we have in our database.<br />Please try changing your e-mail address again by clicking the Profile link at the top right hand corner.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of this forum.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</a></font></p>" & vbNewLine
rsKey.close
set rsKey = nothing
WriteFooter
Response.End
elseif strComp(verkey,rsKey("M_KEY")) <> 0 then
'Error message to user
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>There is a Problem!</b></font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your verification key did not match the one that we have in our database.<br />Please try changing your e-mail address again by clicking the Profile link at the top right hand corner.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of this forum.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</a></font></p>" & vbNewLine
rsKey.close
set rsKey = nothing
WriteFooter
Response.End
elseif rsKey("M_EMAIL") = rsKey("M_NEWEMAIL") then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>E-mail Already Verified!</b></font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your e-mail address has already been updated in our database.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of this forum.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</a></font></p>" & vbNewLine
rsKey.close
set rsKey = nothing
WriteFooter
Response.End
else
userID = rsKey("MEMBER_ID")
'Update the user e-mail
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_EMAIL = '" & chkString(rsKey("M_NEWEMAIL"),"SQLString") & "'"
strSql = strSql & ", M_KEY = ''"
strSql = strSql & " WHERE MEMBER_ID = " & userID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><b>Your E-mail Address Has Been Updated!</b></font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your new e-mail address has been successfully updated in our database.</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</a></font></p>" & vbNewLine
rsKey.close
set rsKey = nothing
WriteFooter
Response.End
end if
end if
'#################################################################################
select case Request.QueryString("mode")
case "display" '## Display Profile
if strDBNTUserName = "" then
Err_Msg = "You must be logged in to view a Member's Profile"
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member's Profile</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & Err_Msg & "</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
" <br />" & vbNewLine
if not(strUseExtendedProfile) then
WriteFooterShort
Response.End
else
WriteFooter
Response.End
end if
end if
While I hate to just throw the code out here and ask for someone to please point out the error, I can't seem to find it myself. I'm sure after I have more experience the error will jump out at me, but for now I can't see the forest through the trees. I'm learning as fast as I can, and have one (more) favor to ask: If it's not too much trouble, could you explain why the error is an error, that way I'll know for future reference. Thank you so much! |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 02 May 2005 : 17:01:26
|
quote:
Here's the code from line 35 (right after the Snitz Copyright info ends) to line 164
If the error is on line 165 you have a lot of code missing .... what you have pasted here seems to be the entire page code. It's hard to understand without using the [code] tags.
Can you save your ASP code with a TXT extension and upload ? Basically you need a pop_profile.txt on the server so we can read it properly |
|
|
|
Muse
Starting Member
27 Posts |
Posted - 03 May 2005 : 04:16:27
|
Laser, thank you for your help!
I "found" the missing code by comparing the pop_profile.asp in my directory to the example in the smilie manager plus mod. I opened the example file in Araneae and edited it according to the Avatar Mod and PM Mod instructions then uploaded it. Avatars are working fine now, thank you again! |
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 03 May 2005 : 18:18:10
|
Great news  |
|
|
| |
Topic |
|
|
|
Topic Locked
