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 PROTECTED]
