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
 Admin Options Error Message		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

MaGraham
Senior Member

USA
1297 Posts
Posted - 04 June 2013 :  09:52:09  Show Profile  Reply with Quote
An admin is recieving this error message when in the Admin Options area after clicking to reset a member's password.


Microsoft VBScript compilation error '800a0411'

Name redefined

/fp/admin_reset.asp, line 130

Dim strUsername
----^


Here are lines 128-139



if intSendMail = 1 then
Dim rsUser
Dim strUsername

Set rsUser = Server.CreateObject("ADODB.RecordSet")

strSql = "SELECT M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & intMid

rsUser.Open strSql, my_Conn

if not rsUser.EOF then


Could someone tell me how to correct this error?


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

AnonJr
Moderator

United States
5768 Posts
Posted - 04 June 2013 :  11:14:25  Show Profile  Visit AnonJr's Homepage
The "Name redefined" error means that somewhere else in the code, running prior to that line, there exists "Dim strUsername" or some other "Dim" statement that includes "strUsername".

As for how to fix it, it would depend on where/how it's being redefined.
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 05 June 2013 :  05:36:59  Show Profile
Easiest is to delete that line and see if it adversely affects the code.
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 05 June 2013 :  10:44:35  Show Profile  Visit AnonJr's Homepage
That's one way to do it. I do wonder though if something isn't being included twice...
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 05 June 2013 :  11:00:15  Show Profile
Not in "admin_reset.asp", there isn't. Apparently another mod used the same variable and added it to "config.asp".
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 05 June 2013 :  11:11:24  Show Profile  Visit AnonJr's Homepage
Interesting. Just out of curiosity, which MOD?
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 06 June 2013 :  19:33:53  Show Profile
I removed it and I suppose it worked. I received this error message though (while on one of my admin's account. Is this set in stone?


There has been a problem!

Only the Forum Admin can access this page
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 06 June 2013 :  21:18:11  Show Profile
quote:
AnonJr
Interesting. Just out of curiosity, which MOD?
Password Reset
quote:
MaGraham
I removed it and I suppose it worked. I received this error message though (while on one of my admin's account. Is this set in stone?


There has been a problem!

Only the Forum Admin can access this page
No, since you're using the admin levels mod. 
Delete the following lines (appx 51-68):

if MemberID <> intAdminMemberID then
	Err_Msg = "<li>Only the Forum Admin can access this page</li>"

	Response.Write	"<table align=""center"" width=""50%"" height=""50%"">" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"    <td>" & vbNewLine & _
			"    <p align=""center""><font face=""Verdana, Arial, Helvetica"" size=""3"" color=""#FF0000"">There has been a problem!</font></p>" & vbNewLine & _
			"      <table align=""center"" border=""0"">" & vbNewLine & _
			"        <tr>" & vbNewLine & _
			"          <td><font face=""Verdana, Arial, Helvetica"" size=""2"" color=""#FF0000""><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"    <p align=""center"" valign=""middle""><font face=""Verdana, Arial, Helvetica"" size=""2""><a href=""JavaScript:history.go(-1)"">Go Back To Admin Section</a></font></p>" & vbNewLine & _
			"    </td>" & vbNewLine & _
			"  </tr>" & vbNewLine & _
			"</table>" & vbNewLine
	Response.End
end if
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts
Posted - 06 June 2013 :  22:40:04  Show Profile


That worked PERFECT!

Thank you so much, Carefree!!
"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Edited by - MaGraham on 06 June 2013 22:41:59
Go to Top of Page

Carefree
Advanced Member

Philippines
4217 Posts
Posted - 07 June 2013 :  05:53:29  Show Profile
Any time.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.32 seconds. Powered By: Snitz Forums 2000 Version 3.4.07