"Ian" <Ian@discussions.microsoft.com> wrote in message
news:7B7777FE-903D-4FC5-943A-A287331B1994@microsoft.com...
> Hi,
>
> I fixed the problem by granting IUSR access to the data are and it seem to
> come to life. Now i'm getting a time out:
>
> Microsoft OLE DB Provider for ODBC Drivers error '80004005'
> [Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database
> engine
> cannot open the file '(unknown)'. It is already opened exclusively by
> another
> user, or you need permission to view its data.
>
> /ipnet/Mileage/Trip select report.asp, line 94
>
> Any ideas on how to resolve this?
>
> Thanks
>
> Ian
>
>
> "Ian" wrote:
>
>> Hi Ken,
>>
>> It goes into a loop and reads the content from the DB:
>>
>> <% RY54_End_06_07 = RS("End_xxxx")
>> RS.movenext
>> loop
>> OBJdbConnection.Close
>> Set OBJdbConnection = Nothing
>> RY54_Start_06_07 = 18289
>> Session("STD_RY54_06_07")=RY54_Start_06_07
>> Session("ED_RY54_06_07")=RY54_End_06_07 %>
>>
>> Ian
>>
>> "Ken Schaefer" wrote:
>>
>> > What is the rest of the code?
>> >
>> > Cheers
>> > Ken
>> >
>> > --
>> > My IIS Blog: www.adOpenStatic.com/cs/blogs/ken
>> >
>> > "Ian" <Ian@discussions.microsoft.com> wrote in message
>> > news:974371DD-BE90-4CD9-A36F-54C978CD7C6D@microsoft.com...
>> > > Hello,
>> > >
>> > > I wonder if anybody can assist. I have a WEB site which I moved from
>> > > a
>> > > machine running XP Sp2 to Vista. I had several issues around
>> > > allowing ASP
>> > > code to run which I have resolved. My only outstanding issue is that
>> > > when
>> > > I
>> > > go to one page I get the error below:
>> > >
>> > > Active Server Pages error 'ASP 0113'
>> > >
>> > > Script timed out
>> > >
>> > > /xxxxxx/xxxxx/xxxxxxx - V2.asp
>> > >
>> > > The maximum amount of time for a script to execute was exceeded. You
>> > > can
>> > > change this limit by specifying a new value for the property
>> > > Server.ScriptTimeout or by changing the value in the IIS
>> > > administration
>> > > tools.
>> > >
>> > > The database it is trying to read is about 1Mb in size and has about
>> > > 500
>> > > records (very small). On the XP machine it takes 2 seconds to load
>> > > and do
>> > > all of the cals. The code that generates the error is:
>> > >
>> > > <%Response.Buffer = True
>> > > Response.Expires = 0
>> > > Response.ExpiresAbsolute = now() -1
>> > > Response.CacheControl = "no-cache"
>> > > Dim RY54_Start_06_07
>> > > Dim RY54_End_06_07
>> > > DSN = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ="
>> > > &
>> > > ("\\xxxxx\xxxxx$\xxxxx.mdb") & ";"
>> > > Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
>> > > OBJdbConnection.Open(DSN)
>> > > Set SQLStmt = Server.CreateObject("ADODB.Command")
>> > > Set RS = Server.CreateObject ("ADODB.Recordset")
>> > > SQLStmt.CommandText = " SELECT Start_xxxx, End_xxxxx FROM
>> > > xxxx_Totals
>> > > WHERE Year = '2006-2007'; "
>> > > SQLStmt.CommandType = 1
>> > > Set SQLStmt.ActiveConnection = OBJdbConnection
>> > > RS.Open SQLStmt
>> > > RY54_Start_06_07 = 0
>> > > RY54_End_06_07 = 0
>> > > do while not RS.EOF %>
>> > >
>> > > I'm pulling my hair out over this one and would like some advise on
>> > > what
>> > > has
>> > > changed to prevent the DNS from working.
>> > >
>> > > Thanks
>> > >
>> > > Ian
>> >
>> >