472,352 Members | 1,497 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 472,352 software developers and data experts.

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


Expand|Select|Wrap|Line Numbers
  1. <!--#include virtual="/Library/SQL.inc"-->
  3. <%
  4. '
  6. '
  7. %>
  9. <%'This function returns true if the browser is thought to be IE, otherwise it returns false.
  10. Function IsIE()
  12.     If InStr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") > 0 Then
  13.         IsIE = True
  14.     Else
  15.         IsIE = False
  16.     End If
  18. End Function
  19. %>
  21. <%
  22. Function GetHits()
  24.     Dim rsTemp
  25.     Set rsTemp = Exec("exec GetUniqueHits 'lapi.ntdls.com'")
  27.     If NOT rsTemp.EOF And NOT rsTemp.BOF Then
  28.         GetHits = rsTemp("UniqueHits")
  29.     End If
  31.     rsTemp.Close
  32.     Set rsTemp = Nothing
  34. End Function
  35. %>
  39. <%Sub PageTop(Title)%>
  40. <%SQLOpen%>
  41. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
  42. <html>
  43.     <head>
  44.         <title>LAPI-Lower Alabama Paranormal Investigators - <%=Title%></title>
  45.         <STYLE TYPE="text/css">
  46.         <!--
  47.             a.Menu { color:#fff000; font-family: Garamond; font-size: 21px; text-decoration:none;}
  48.             a.Menu:hover { color:#ff0000; font-family: Garamond; font-size: 21px; text-decoration: none; }
  50.             a { color:#fff000; font-family: Garamond; font-size: 18px; text-decoration:none;}
  51.             a:hover { color:#ff0000; font-family: Garamond; font-size: 18px; text-decoration: none; }
  52.             td.BodyTable {background: #000000 url('/Images/Watermark.jpg') no-repeat scroll top center ;}
  53.         -->
  54.         </STYLE>
  55.     </head>
  56.     <body BGColor="#000022" Text="#eeeeee">
  57.         <table align="center" width="766" border="0" cellspacing="0" cellpadding="0">
  58.             <tr>
  59.                 <td height="50" valign="top" align="Center" <%IF IsIE() Then%>BGColor="#000077" Background="/Images/TopLeftFade.gif"<%Else%>BGColor="#000033"<%End IF%>>
  60.                     &nbsp;
  61.                 </td>
  62.                 <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%>>
  63.                     <Img Src="/Images/Logo.gif">
  64.                 </td>
  65.             </tr>
  66.             <tr>
  67.                 <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%>>
  68.                         <!--#include file="Menu.asp"-->
  69.                 </td>
  70.                 <td Class="BodyTable" height="679" valign="top">
  71.                 <center><font Size="5" Color="#FFFFFF"><%=Title%></font></Center>
  73.             <tr>
  74.                 <td Align="Center" <%IF IsIE() Then%>BGColor="#000022"<%Else%>BGColor="#000033"<%End IF%>><Font Size="-2"><%=GetHits%> Unique Hits</Font></td>
  75.                 <td BGColor="#000000"></a></font> 
  77. <Center><font size="-2" color="#FFFFFF" face="arial">Copyright &copy; <%=Year(Date)%> Chris Hicks. All rights reserved.</font></Center></font> 
  78. </td>
  79.             </tr>
  81.         </table>
  82.     </body>
  83. </html>
  84. <%SQLClose%>
  85. <%End Sub%>
Feb 26 '07 #1
5 3698
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
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.

Feb 26 '07 #3
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
Ok. Thanks!
Feb 26 '07 #5
1,646 1GB
Ok. Thanks!
You are very welcome. Please let us know how it turns out.
Feb 26 '07 #6

Sign in to post your reply or Sign up for a free account.

Similar topics

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...
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...
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?...
by: Sudheer Kareem | last post by:
Dear All Please tell me how to assosiate help files with my Vb.net Project. Regards Sudheer
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...
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",...
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...
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...
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...
by: trunxnirvana007 | last post by:
'UPGRADE_WARNING: Array has a new behavior. Click for more:...
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...
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...
by: Kemmylinns12 | last post by:
Blockchain technology has emerged as a transformative force in the business world, offering unprecedented opportunities for innovation and...
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...
by: antdb | last post by:
Ⅰ. Advantage of AntDB: hyper-convergence + streaming processing engine In the overall architecture, a new "hyper-convergence" concept was...
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. ...
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...
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...
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....

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.