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
 reducks87's banner rotation ***HELP***
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

yomini
Starting Member

2 Posts

Posted - 21 July 2009 :  11:03:50  Show Profile  Visit yomini's Homepage
I just updated to Version 3.4.07, installed reducks87's banner rotation. Everything works great except register.asp, when you go to register you get this.

Microsoft VBScript runtime error '800a01f5'

Illegal assignment: 'RandomNumber'

/forum/banner.asp, line 14


Here's my inc_header and banner files

http://okmini.com/inc_header,asp.txt

http://okmini.com/banner.asp.txt

Thanks for your help!!

AnonJr
Moderator

United States
5768 Posts

Posted - 21 July 2009 :  12:41:10  Show Profile  Visit AnonJr's Homepage
inc_base.asp defines "RandomNumber" as a function and that is causing a conflict with the name of your variable "RandomNumber" in banner.asp

You could use the following alternate version of banner.asp:
<%
'************************************************************
'* Code written by Alexander Haneng (C) 1998-2001           *
'* FREE download from http://www.haneng.com/                *
'************************************************************
'************************************************************
'*Code modified by reducks87                                *
'*Download available at http://www.reducks87.ontheinter.net *
'************************************************************

RANDOMIZE
intBannerLowestNumber = 1
intBannerHighestNumber = 2
intBannerRandomNumber = INT((intBannerHighestNumber - intBannerLowestNumber + 1) * Rnd + intBannerLowestNumber)
SELECT CASE intBannerRandomNumber
	CASE "1"
		Response.Write("<A HREF=""http://europeanautospecialist.net/"" target=""_blank""><IMG SRC=""http://okmini.com/forum/ea.gif"" BORDER=""0""></A>")
	CASE "2"
		Response.Write("<A HREF=""http://minibeotch.com"" target=""_blank""><IMG SRC=""http://MINIBEOTCH.COM/images/MB_BANNER.gif"" BORDER=""1""></A>")
END SELECT
%>
Go to Top of Page

yomini
Starting Member

2 Posts

Posted - 21 July 2009 :  13:26:11  Show Profile  Visit yomini's Homepage
Thanks so much, that did the job!!

yoMINI
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 21 July 2009 :  13:49:14  Show Profile  Visit AnonJr's Homepage
Your welcome.
Go to Top of Page
  Previous Topic Topic Next Topic  
 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.31 seconds. Powered By: Snitz Forums 2000 Version 3.4.07