Thanks for the reply but i have fixed the problem. It was due to there being Server as a variable that the system didn't like. It looks that server is an asp banned word. Thanks for the help though. Alex Elger Micronage Ltd [EMAIL PROTECTED]
-----Original Message----- From: vinay kumar [mailto:[EMAIL PROTECTED]] Sent: 23 September 2002 1:20 PM To: ActiveServerPages Subject: Re: Having a problem with ASP code. Hi, Hope I am not too late to address your problem as such. I think the error is in the objcon.open stmt. It should have been objCon.open "DSN=sysAdminDB" instead of objCon.open sysAdminDB. HTH vinay. --- Alex Elger <[EMAIL PROTECTED]> wrote: > 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%% __________________________________________________ Do you Yahoo!? New DSL Internet Access from SBC & Yahoo! http://sbc.yahoo.com --- 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]
