Help! Microsoft VBScript runtime error '800a01f4'

I'm new at VB. My friend actually coded this and he's away for awhile. I've been sitting for awhile trying to figure out what I've done wrong. I'm decent at web design but not with VB. Please help!

Error Message:

Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'PageBottom'

/Default.asp, line 29

CODE:

Expand|Select|Wrap|Line Numbers

 <!--#include virtual="/Library/SQL.inc"-->
 
<%

'

' MAKING CHANGES TO THIS FILE WILL AFFECT THE ENTIRE SITE!!!! BE CAREFUL!

'

%>
 
<%'This function returns true if the browser is thought to be IE, otherwise it returns false.

Function IsIE()
 
    If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") > 0 Then

        IsIE = True

    Else

        IsIE = False

    End If
 
End Function

%>
 
<%

Function GetHits()
 
    Dim rsTemp

    Set rsTemp = Exec("exec GetUniqueHits 'lapi.ntdls.com'")
 
    If NOT rsTemp.EOF And NOT rsTemp.BOF Then

        GetHits = rsTemp("UniqueHits")

    End If
 
    rsTemp.Close

    Set rsTemp = Nothing
 
End Function

%>
 
<%Sub PageTop(Title)%>

<%SQLOpen%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

<html>

    <head>

        <title>LAPI-Lower Alabama Paranormal Investigators - <%=Title%></title>

        <STYLE TYPE="text/css">

        <!--

            a.Menu { color:#fff000; font-family: Garamond; font-size: 21px; text-decoration:none;}

            a.Menu:hover { color:#ff0000; font-family: Garamond; font-size: 21px; text-decoration: none; }
 
            a { color:#fff000; font-family: Garamond; font-size: 18px; text-decoration:none;}

            a:hover { color:#ff0000; font-family: Garamond; font-size: 18px; text-decoration: none; }

            td.BodyTable {background: #000000 url('/Images/Watermark.jpg') no-repeat scroll top center ;}

        -->

        </STYLE>

    </head>

    <body BGColor="#000022" Text="#eeeeee">

        <table align="center" width="766" border="0" cellspacing="0" cellpadding="0">

            <tr>

                <td height="50" valign="top" align="Center" <%IF IsIE() Then%>BGColor="#000077" Background="/Images/TopLeftFade.gif"<%Else%>BGColor="#000033"<%End IF%>>

                    &nbsp;

                </td>

                <td height="50" valign="top" align="Center" <%IF IsIE() Then%>style="filter:progid:DXImageTransform.Microsoft.Gradient(endColorstr='#000022', startColorstr='#000077', gradientType='1');"<%Else%>BGColor="#000033"<%End IF%>>

                    <Img Src="/Images/Logo.gif">

                </td>

            </tr>

            <tr>

                <td height="679" Width="150" valign="top" <%IF IsIE() Then%>style="filter:progid:DXImageTransform.Microsoft.Gradient(endColorstr='#000022', startColorstr='#000077', gradientType='0');"<%Else%>BGColor="#000033"<%End IF%>>

                        <!--#include file="Menu.asp"-->

                </td>

                <td Class="BodyTable" height="679" valign="top">

                <center><font Size="5" Color="#FFFFFF"><%=Title%></font></Center>
 
            <tr>

                <td Align="Center" <%IF IsIE() Then%>BGColor="#000022"<%Else%>BGColor="#000033"<%End IF%>><Font Size="-2"><%=GetHits%> Unique Hits</Font></td>

                <td BGColor="#000000"></a></font> 
 
<Center><font size="-2" color="#FFFFFF" face="arial">Copyright &copy; <%=Year(Date)%> Chris Hicks. All rights reserved.</font></Center></font> 

</td>

            </tr>
 
        </table>

    </body>

</html>

<%SQLClose%>

<%End Sub%>

Feb 26 '07 #1

Subscribe Post Reply

3698

willakawill

1,646

1GB

Hi. The expression 'PageBottom' does not appear in this script. Is this the file default.asp or is this file included in default.asp?

I am also moving this post to the asp forum

Feb 26 '07 #2

Weenizzle

I believe that it is included. It is set up as Top and Bottom are one thing. The default is different scripts are combined. Basicly, the main menu. I have no clue if that helped. Maybe it did. this is the link to the default.asp page if you'd like to see.

http://lapi.ntdls.com

Feb 26 '07 #3

willakawill

1,646

1GB

OK. So the problem in finding this bug is that all of the different scripts come together and this gets called from that and that gets called from this etc. Very difficult to trace a fault especially from this end.

You need to find the page that defines the function 'PageBottom' and the page that calls this function. Then you need to see why they are not in the same place at the same time.

Feb 26 '07 #4

Weenizzle

Ok. Thanks!

Feb 26 '07 #5

willakawill

1,646

1GB

Ok. Thanks!

You are very welcome. Please let us know how it turns out.

Feb 26 '07 #6

by: Dave | last post by:

After following Microsofts admonition to reformat my system before doing a final compilation of my app I got many warnings/errors upon compiling an...

Visual Basic 4 / 5 / 6

metadocumentation (keyword help)

by: Jacek Generowicz | last post by:

Where can I find concise, clear documentation describing what one has to do in order to enable Python's internal help to be able to provide...

Python

Interpreter-like help in cmd.Cmd

by: Sarir Khamsi | last post by:

Is there a way to get help the way you get it from the Python interpreter (eg, 'help(dir)' gives help on the 'dir' command) in the module cmd.Cmd?...

Python

Help

by: Sudheer Kareem | last post by:

Dear All Please tell me how to assosiate help files with my Vb.net Project. Regards Sudheer

.NET Framework

Please help with authoring tool questions

by: d.warnermurray | last post by:

I am doing a project for school that involves creating help files for a html authoring tool. If you could help me with answers to some questions it...

HTML / CSS

Problem with Help when using numarray

by: Colin J. Williams | last post by:

Python advertises some basic service: C:\Python24>python Python 2.4.1 (#65, Mar 30 2005, 09:13:57) on win32 Type "help", "copyright",...

Python

To Access MVPs regarding Access 2003 Help

by: Bruce Dodds | last post by:

I recently started using Access 2003 for the first time. I wanted to pass on some comments about the Help system to Access MVPs who frequent this...

Microsoft Access / VBA

HTML Help file

by: dixie | last post by:

Help, I'm really out of my depth here (not unusual I hear you say :-). I have just installed HTML Help in an application. I told it in the Project...

Microsoft Access / VBA

Trigger a Help event.

by: lord.zoltar | last post by:

I've managed to get a nice little chm help system written. Now I need to display it! I added a HelpProvider to my MDIParent form and set the...

Visual Basic .NET

need help with upgrade of from vb6 to vb.net

by: trunxnirvana007 | last post by:

'UPGRADE_WARNING: Array has a new behavior. Click for more:...

Visual Basic 4 / 5 / 6

Discuss your understanding of the Java platform.

by: better678 | last post by:

Question: Discuss your understanding of the Java platform. Is the statement "Java is interpreted" correct? Answer: Java is an object-oriented...

General

List of Topmost 8 Electronics Engineering Forum Websites

by: teenabhardwaj | last post by:

How would one discover a valid source for learning news, comfort, and help for engineering designs? Covering through piles of books takes a lot of...

General

Benefits of Blockchain App Development for Enterprise Businesses

by: Kemmylinns12 | last post by:

Blockchain technology has emerged as a transformative force in the business world, offering unprecedented opportunities for innovation and...

General

https redirect with reverse proxy

by: jalbright99669 | last post by:

Am having a bit of a time with URL Rewrite. I need to incorporate http to https redirect with a reverse proxy. I have the URL Rewrite rules made...

IIS / Internet Information Server

Hyperconverged All-in-One Streaming Engine, ushering in new age for distributed database

by: antdb | last post by:

Ⅰ. Advantage of AntDB: hyper-convergence + streaming processing engine In the overall architecture, a new "hyper-convergence" concept was...

General

How to layout php header location with a variable as the location?

by: Matthew3360 | last post by:

Hi there. I have been struggling to find out how to use a variable as my location in my header redirect function. Here is my code. ...

PHP

How do I view Redshift db tables in Alteryx

by: Arjunsri | last post by:

I have a Redshift database that I need to use as an import data source. I have configured the DSN connection using the server, port, database, and...

General

by: WisdomUfot | last post by:

It's an interesting question you've got about how Gmail hides the HTTP referrer when a link in an email is clicked. While I don't have the specific...

General

One of the easiest ways to set the background color of Excel documents in Java

by: Carina712 | last post by:

Setting background colors for Excel documents can help to improve the visual appeal of the document and make it easier to read and understand....

General

Help! Microsoft VBScript runtime error '800a01f4'

Similar topics