Where are you defining SysAdminDB?
If it's in the INCLUDE file then your path to the include file would put it
in your backuplog folder which might be incorrect. Perhaps your include path
should start out ../../
----- Original Message -----
From: "Alex Elger" <[EMAIL PROTECTED]>
To: "ActiveServerPages" <[EMAIL PROTECTED]>
Sent: Friday, September 20, 2002 7:21 AM
Subject: Having a problem with ASP code.
> If anyone could help me with this i would be very grateful.
> Ok so I've been looking at this for the last 3 hours now and i cant for
the
> life of me figure out that's wrong with it.
> The error i am getting is:
>
> Microsoft VBScript runtime error '800a01a8'
>
> Object required: ''
>
> /sys3/backuplog/updatetapes.asp, line 41
>
>
> and the code is:
>
>
>
> <% @LANGUAGE = VBSCRIPT %>
> <%option explicit%>
> <%response.buffer=true%>
> <!-- #INCLUDE FILE="../adovbs.inc" -->
> <!-- #INCLUDE FILE="../connection.asp" -->
> <%
> 'LOCAL VARIABLES
> dim objCon ' Connection object
> dim objCommand ' Command object
> dim objRS ' Recordset object
> dim intRows ' Number of matches found
> dim intGroup ' Group
> dim blnGotRows ' Flag indicating if anything was found
> dim strRecordArray ' Array for holding Records
> dim intMaxCount
> dim intCounter
> dim Serial
> dim UserName
> dim FullName
> dim InsertType
> dim Server
> dim Day
> dim FirstUseDate
> dim Archived
> dim Print
> dim InsertUserName
>
> ' GET THE DATA FROM THE FORM
> UserName = Request.Cookies("Micronage")("UserName")
> FullName = Request.Cookies("Micronage")("FullName")
> InsertType = Request.QueryString("InsertType")
> Serial=Request.Form("Serial")
> Day=Request.Form("Day")
> FirstUseDate=Request.Form("FirstUseDate")
> Archived=Request.Form("Archived")
> Print=Request.Form("Print")
>
>
> ' FIRSTLY CHECK THE DATABASE FOR MATCHING DATA AND REDIRECT TO a "No
> Matches" PAGE IF NONE FOUND
> ' Create Connection
> Set objCon = Server.CreateObject( "ADODB.Connection" )
> objCon.Open SysAdminDB
>
>
>
> It is the """""Set objCon = Server.CreateObject( "ADODB.Connection" )"""""
> bit that is not working (BTW there are no quoted arround it in my asp it's
> just there to make it stand out in the sentance.
>
>
>
>
> Thanks for the help
> Alex Elger
>
>
> ---
> You are currently subscribed to activeserverpages as:
[EMAIL PROTECTED]
> To unsubscribe send a blank email to
%%email.unsub%%
>
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
