help with asp code

[Bob Barrows]

[url]http://www.aspfaq.com/show.asp?id=2109[/url]

Pets2adopt wrote:

> The error i'm getting is the page will not load. it seams that any
> asp code that i'm dropping onto the server is not loading
>
> "Bob Barrows" <reb_01501@yahoo.com> wrote in message
> news:#3#FmsePDHA.1380@TK2MSFTNGP11.phx.gbl...

>> What errors?
>>
>> You should switch to the native Jet OLEDB provider instead of ODBC -
>> see [url]www.able-consulting.com/ado_conn.htm[/url] for examples.
>>
>> HTH,
>> Bob Barrows
>>
>> Pets2adopt wrote:

>>> can anyone let me know why the code bellow is creating errors I'm
>>> trying to connect to a access data base then display the results of
>>> what's in the data base.
>>>
>>> thank you for any help that you can offer
>>>
>>>
>>>
>>> <%@ Language=VBSCRIPT %>
>>> <% Option Explicit %>
>>> <!--#include virtual="/adovbs.inc"-->
>>> <%
>>> 'create a connection to our database that contains the
>>>
>>> Dim objConn
>>> Set objConn = Server.CreateObject("ADODB.Connection")
>>> objConn.ConnectionString="Driver={Microsoft Access Driver
>>> (*.mdb)};" &_ "DBQ=K:\myweb3\fpdb\storesdb.mdb"
>>> objConn.Open
>>>
>>>
>>>
>>> ' create a recordset object
>>> Dim objRS
>>> Set objRS = Server.CreateObject("ADODB.Recordset")
>>>
>>> ' open the recordset
>>> objRS.Open "store_info", objConn, , , adCmdTable
>>>
>>>
>>>
>>> ' display the results
>>> Do While not objRS.EOF
>>> response.write "<B>" & objRS("City") & "</b><br>"
>>> response.write "<br>objRS("Store_Name") & "<BR>"
>>>
>>>
>>>
>>> ' move to the next record
>>> objRS.MoveNext
>>> Loop
>>>
>>> ' clean up !!
>>> objRS.Close
>>> set objRS = Nothing
>>>
>>> objConn.close
>>> set objConn = nothing
>>>
>>> %>

[Pets2adopt]

Thanks Bob I managed to get past most of my errors but I have one more
question for you or for the group.
I'm now getting the following error


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0x4798 Thread 0x4670
DBC 0x2397adc Jet'.

/storesearch.asp, line 10

the new code is listed bellow

<%@ Language=VBSCRIPT %>
<% Option Explicit %>
<%
'create a connection to our database that contains the

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ=www.web/fpdb/storesdb.mdb"
objConn.Open



' create a recordset object
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")

' open the recordset
objRS.Open "store_info", objConn, , , adCmdTable



' display the results
Do While not objRS.EOF
response.write "<B>" & objRS("City") & "</b><br>"
response.write "<br>" & objRS("Store_Name") & "<BR>"



' move to the next record
objRS.MoveNext
Loop

' clean up !!
objRS.Close
set objRS = Nothing

objConn.close
set objConn = nothing

%>


Any more help that you provide would be appreciated


"Bob Barrows" <reb_01501@yahoo.com> wrote in message
news:OzSWSKkPDHA.2036@TK2MSFTNGP10.phx.gbl...

> [url]http://www.aspfaq.com/show.asp?id=2109[/url]
>
> Pets2adopt wrote:

> > The error i'm getting is the page will not load. it seams that any
> > asp code that i'm dropping onto the server is not loading
> >
> > "Bob Barrows" <reb_01501@yahoo.com> wrote in message
> > news:#3#FmsePDHA.1380@TK2MSFTNGP11.phx.gbl...

> >> What errors?
> >>
> >> You should switch to the native Jet OLEDB provider instead of ODBC -
> >> see [url]www.able-consulting.com/ado_conn.htm[/url] for examples.
> >>
> >> HTH,
> >> Bob Barrows
> >>
> >> Pets2adopt wrote:
> >>> can anyone let me know why the code bellow is creating errors I'm
> >>> trying to connect to a access data base then display the results of
> >>> what's in the data base.
> >>>
> >>> thank you for any help that you can offer
> >>>
> >>>
> >>>
> >>> <%@ Language=VBSCRIPT %>
> >>> <% Option Explicit %>
> >>> <!--#include virtual="/adovbs.inc"-->
> >>> <%
> >>> 'create a connection to our database that contains the
> >>>
> >>> Dim objConn
> >>> Set objConn = Server.CreateObject("ADODB.Connection")
> >>> objConn.ConnectionString="Driver={Microsoft Access Driver
> >>> (*.mdb)};" &_ "DBQ=K:\myweb3\fpdb\storesdb.mdb"
> >>> objConn.Open
> >>>
> >>>
> >>>
> >>> ' create a recordset object
> >>> Dim objRS
> >>> Set objRS = Server.CreateObject("ADODB.Recordset")
> >>>
> >>> ' open the recordset
> >>> objRS.Open "store_info", objConn, , , adCmdTable
> >>>
> >>>
> >>>
> >>> ' display the results
> >>> Do While not objRS.EOF
> >>> response.write "<B>" & objRS("City") & "</b><br>"
> >>> response.write "<br>objRS("Store_Name") & "<BR>"
> >>>
> >>>
> >>>
> >>> ' move to the next record
> >>> objRS.MoveNext
> >>> Loop
> >>>
> >>> ' clean up !!
> >>> objRS.Close
> >>> set objRS = Nothing
> >>>
> >>> objConn.close
> >>> set objConn = nothing
> >>>
> >>> %>

>
>
>

[chippy]

Thanksfor the help Ken, it worked i'll try and change the code now to the
oledb provider


"Ken Schaefer" <kenREMOVE@THISadOpenStatic.com> wrote in message
news:urwXl8rPDHA.1748@TK2MSFTNGP11.phx.gbl...

> Your connection string is not valid. The DBQ= parameter requires a

physical

> path, eg c:\inetpub\wwwroot\fpdb\myDatabase.mdb YOu can use

Server.Mappath()

> to get this value.
>
> eg:
>
> <%
> strConnect = _
> "Driver={Microsoft Access Driver (*.mdb)};" & _
> "DBQ=" & Server.Mappath("/fpdb/StoresDB.mdb") & ";"
>
> objConn.Open strConnect
> %>
>
> However, it is recommended you use the OLEDB Provider instead:
>
> strConnect = _
> "Provider=Microsoft.Jet.OLEBD.4.0;" & _
> "Data Source=" & Server.Mappath("/fpdb/StoresDB.mdb") & ";"
>
> Cheers
> Ken
>
>
> "Pets2adopt" <pets2adopt@rogers.com> wrote in message
> news:bcKLa.18264$x4o.5529@news04.bloor.is.net.cabl e.rogers.com...
> : Thanks Bob I managed to get past most of my errors but I have one more
> : question for you or for the group.
> : I'm now getting the following error
> :
> :
> : Microsoft OLE DB Provider for ODBC Drivers error '80004005'
> :
> : [Microsoft][ODBC Microsoft Access Driver]General error Unable to open
> : registry key 'Temporary (volatile) Jet DSN for process 0x4798 Thread
> 0x4670
> : DBC 0x2397adc Jet'.
> :
> : /storesearch.asp, line 10
> :
> : the new code is listed bellow
> :
> : <%@ Language=VBSCRIPT %>
> : <% Option Explicit %>
> : <%
> : 'create a connection to our database that contains the
> :
> : Dim objConn
> : Set objConn = Server.CreateObject("ADODB.Connection")
> : objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" &_
> : "DBQ=www.web/fpdb/storesdb.mdb"
> : objConn.Open
> :
> :
> :
> : ' create a recordset object
> : Dim objRS
> : Set objRS = Server.CreateObject("ADODB.Recordset")
> :
> : ' open the recordset
> : objRS.Open "store_info", objConn, , , adCmdTable
> :
> :
> :
> : ' display the results
> : Do While not objRS.EOF
> : response.write "<B>" & objRS("City") & "</b><br>"
> : response.write "<br>" & objRS("Store_Name") & "<BR>"
> :
> :
> :
> : ' move to the next record
> : objRS.MoveNext
> : Loop
> :
> : ' clean up !!
> : objRS.Close
> : set objRS = Nothing
> :
> : objConn.close
> : set objConn = nothing
> :
> : %>
> :
> :
> : Any more help that you provide would be appreciated
> :
> :
> : "Bob Barrows" <reb_01501@yahoo.com> wrote in message
> : news:OzSWSKkPDHA.2036@TK2MSFTNGP10.phx.gbl...
> : > [url]http://www.aspfaq.com/show.asp?id=2109[/url]
> : >
> : > Pets2adopt wrote:
> : > > The error i'm getting is the page will not load. it seams that any
> : > > asp code that i'm dropping onto the server is not loading
> : > >
> : > > "Bob Barrows" <reb_01501@yahoo.com> wrote in message
> : > > news:#3#FmsePDHA.1380@TK2MSFTNGP11.phx.gbl...
> : > >> What errors?
> : > >>
> : > >> You should switch to the native Jet OLEDB provider instead of

ODBC -

> : > >> see [url]www.able-consulting.com/ado_conn.htm[/url] for examples.
> : > >>
> : > >> HTH,
> : > >> Bob Barrows
> : > >>
> : > >> Pets2adopt wrote:
> : > >>> can anyone let me know why the code bellow is creating errors I'm
> : > >>> trying to connect to a access data base then display the results

of

> : > >>> what's in the data base.
> : > >>>
> : > >>> thank you for any help that you can offer
> : > >>>
> : > >>>
> : > >>>
> : > >>> <%@ Language=VBSCRIPT %>
> : > >>> <% Option Explicit %>
> : > >>> <!--#include virtual="/adovbs.inc"-->
> : > >>> <%
> : > >>> 'create a connection to our database that contains the
> : > >>>
> : > >>> Dim objConn
> : > >>> Set objConn = Server.CreateObject("ADODB.Connection")
> : > >>> objConn.ConnectionString="Driver={Microsoft Access Driver
> : > >>> (*.mdb)};" &_ "DBQ=K:\myweb3\fpdb\storesdb.mdb"
> : > >>> objConn.Open
> : > >>>
> : > >>>
> : > >>>
> : > >>> ' create a recordset object
> : > >>> Dim objRS
> : > >>> Set objRS = Server.CreateObject("ADODB.Recordset")
> : > >>>
> : > >>> ' open the recordset
> : > >>> objRS.Open "store_info", objConn, , , adCmdTable
> : > >>>
> : > >>>
> : > >>>
> : > >>> ' display the results
> : > >>> Do While not objRS.EOF
> : > >>> response.write "<B>" & objRS("City") & "</b><br>"
> : > >>> response.write "<br>objRS("Store_Name") & "<BR>"
> : > >>>
> : > >>>
> : > >>>
> : > >>> ' move to the next record
> : > >>> objRS.MoveNext
> : > >>> Loop
> : > >>>
> : > >>> ' clean up !!
> : > >>> objRS.Close
> : > >>> set objRS = Nothing
> : > >>>
> : > >>> objConn.close
> : > >>> set objConn = nothing
> : > >>>
> : > >>> %>
> : >
> : >
> : >
> :
> :
>
>