Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

<% Dim oConn Dim oRS Dim sSQL 1

Status
Not open for further replies.

outonalimb

Technical User
Joined
Oct 7, 2003
Messages
454
Location
GB
I am having severe problems with my ASP code below. For some reason it only works once. When I reload the page or reopen it I get an error for 3-4 minutes and then it starts working again.

I get the following error message:

"Error Type:
Provider (0x80004005)
Unspecified error
/isdi/propertysearch.asp, line 12"

For everyone's information, Line 12 is the Access Driver line in the code below.

Please help.

<%

Dim oConn
Dim oRS
Dim sSQL

Response.Write(&quot;<font size=2 face=arial>&quot;)
Response.Write(&quot;Search Results<br><br>&quot;)

Set oConn=Server.CreateObject(&quot;ADODB.Connection&quot;)
oConn.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; & Server.MapPath(&quot;estateagents.mdb&quot;))
sSQL = &quot;SELECT * FROM tblPropertyDetail&quot;
Set oRS = oConn.Execute(sSQL)

Do While NOT oRS.EOF

Response.Write(&quot;<table border=2><tr bgcolor=white style='color:black;'>&quot;)

Response.Write(&quot;<td valign='top'>&quot; & oRS(&quot;PropertyID&quot;).Value & &quot;</td>&quot;)
Response.Write(&quot;<td valign='top'>&quot; & oRS(&quot;Address1&quot;).Value & &quot;<br>&quot; & oRS(&quot;Address2&quot;).Value & &quot;</td></tr>&quot;)


oRS.MoveNext

Response.Write(&quot;</table><br><br>&quot;)

Loop

oConn.Close
Set oRS=nothing
Set oConn=Nothing

%></p>
 
can u highlight the line?

Known is handfull, Unknown is worldfull
 

oConn.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; & Server.MapPath(&quot;estateagents.mdb&quot;))


It complains about the above line, even though it works on the first attempt!
 
oConn.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)};&quot; & Server.MapPath(&quot;estateagents.mdb&quot;))

take out the DBQ=


_____________________________________________________________________
onpnt2.gif

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top