outonalimb
Technical User
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("<font size=2 face=arial>"
Response.Write("Search Results<br><br>"
Set oConn=Server.CreateObject("ADODB.Connection"
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("estateagents.mdb"
)
sSQL = "SELECT * FROM tblPropertyDetail"
Set oRS = oConn.Execute(sSQL)
Do While NOT oRS.EOF
Response.Write("<table border=2><tr bgcolor=white style='color:black;'>"
Response.Write("<td valign='top'>" & oRS("PropertyID"
.Value & "</td>"
Response.Write("<td valign='top'>" & oRS("Address1"
.Value & "<br>" & oRS("Address2"
.Value & "</td></tr>"
oRS.MoveNext
Response.Write("</table><br><br>"
Loop
oConn.Close
Set oRS=nothing
Set oConn=Nothing
%></p>
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("<font size=2 face=arial>"

Response.Write("Search Results<br><br>"

Set oConn=Server.CreateObject("ADODB.Connection"

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

sSQL = "SELECT * FROM tblPropertyDetail"
Set oRS = oConn.Execute(sSQL)
Do While NOT oRS.EOF
Response.Write("<table border=2><tr bgcolor=white style='color:black;'>"

Response.Write("<td valign='top'>" & oRS("PropertyID"


Response.Write("<td valign='top'>" & oRS("Address1"



oRS.MoveNext
Response.Write("</table><br><br>"

Loop
oConn.Close
Set oRS=nothing
Set oConn=Nothing
%></p>