Provider Error 80004005 Unspecified Error

[mmchenney]

mmchenney (Visitor) May 16, 2001
In Dreamweaver, using ASP I have been trying to search for specific records in a database and pull them up according to what region they are in. Locally this works fine. When I try and retrieve the information out on the server I get the following error.

Provider error 80004005

Unspecified error

/UCSDEV/PBX/ASPCode/Results.asp, line 22

Here is my code. Please Help!


<%@LANGUAGE=&quot;VBSCRIPT&quot;%>
<!--#include file=&quot;Connections/PBX2001.asp&quot; -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = &quot;1&quot;
if (Request.QueryString(&quot;Select&quot <> &quot;&quot then Recordset1__MMColParam = Request.QueryString(&quot;Select&quot
%>
<%
set Recordset1 = Server.CreateObject(&quot;ADODB.Recordset&quot
Recordset1.ActiveConnection = MM_PBX2001_STRING
Recordset1.Source = &quot;SELECT * FROM PBX WHERE Region = '&quot; + Replace(Recordset1__MMColParam, &quot;'&quot;, &quot;''&quot + &quot;'&quot;
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%


set Recordset2 = Server.CreateObject(&quot;ADODB.Recordset&quot
Recordset2.ActiveConnection = MM_PBX2001_STRING
Recordset2.Source = &quot;SELECT * FROM PBX&quot;
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 3
Recordset2.Open()
Recordset2_numRows = 0
%>
<%

%>
<%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat2__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total
If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (Recordset1_total = -1) Then

' count the total records by iterating through the recordset
Recordset1_total=0
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend

' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If

' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = &quot;&quot;
MM_paramName = &quot;&quot;
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> &quot;&quot Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> &quot;&quot
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter
r = Request.QueryString(&quot;index&quot
If r = &quot;&quot; Then r = Request.QueryString(&quot;offset&quot
If r <> &quot;&quot; Then MM_offset = Int(r)

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
i = 0
While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i < MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount
If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = &quot;&index=&quot;
If (MM_paramName <> &quot;&quot Then MM_removeList = MM_removeList & &quot;&&quot; & MM_paramName & &quot;=&quot;
MM_keepURL=&quot;&quot;:MM_keepForm=&quot;&quot;:MM_keepBoth=&quot;&quot;:MM_keepNone=&quot;&quot;

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = &quot;&&quot; & Item & &quot;=&quot;
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = &quot;&&quot; & Item & &quot;=&quot;
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> &quot;&quot Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> &quot;&quot Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> &quot;&quot Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> &quot;&quot Then
MM_joinChar = &quot;&&quot;
Else
MM_joinChar = &quot;&quot;
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = &quot;index&quot;

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
MM_moveParam = &quot;offset&quot;
If (MM_keepMove <> &quot;&quot Then
params = Split(MM_keepMove, &quot;&&quot
MM_keepMove = &quot;&quot;
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),&quot;=&quot - 1)
If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & &quot;&&quot; & params(i)
End If
Next
If (MM_keepMove <> &quot;&quot Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove <> &quot;&quot Then MM_keepMove = MM_keepMove & &quot;&&quot;
urlStr = Request.ServerVariables(&quot;URL&quot & &quot;?&quot; & MM_keepMove & MM_moveParam & &quot;=&quot;
MM_moveFirst = urlStr & &quot;0&quot;
MM_moveLast = urlStr & &quot;-1&quot;
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;>
</head>
<body bgcolor=&quot;#FFFFFF&quot; text=&quot;#000000&quot;>
<table align=&quot;center&quot; border=&quot;1&quot;>
<tr>
<td align=&quot;default&quot; width=&quot;8%&quot;> ID </td>
<td align=&quot;default&quot; width=&quot;8%&quot;> REGION </td>
<td align=&quot;default&quot; width=&quot;8%&quot;> CITYADDRESS </td>
<td align=&quot;default&quot; width=&quot;8%&quot;> MODEL </td>
<td align=&quot;default&quot; width=&quot;8%&quot;> SERIAL NUMBER</td>
<td align=&quot;default&quot; width=&quot;8%&quot;> PBX VERSION</td>
<td align=&quot;default&quot; width=&quot;8%&quot;> PBX RELEASE</td>
<td align=&quot;default&quot; width=&quot;8%&quot;> MM RELEASE</td>
<td align=&quot;default&quot; width=&quot;8%&quot;> REQUIREMENT </td>
<td align=&quot;default&quot; width=&quot;8%&quot;> ESTIMATED COST</td>
<td align=&quot;default&quot; width=&quot;8%&quot;> REGION PRIORITY</td>
<td align=&quot;default&quot; width=&quot;8%&quot;> STATE PRIORITY</td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;ID&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;Region&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;CityAddress&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;Model&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;SerialNumber&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;PBXVer&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;PBXRelease&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;MMRLS&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;Requirement&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;EstimatedCost&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;RegionPriority&quot.Value)%> </td>
<td align=&quot;default&quot; width=&quot;8%&quot;>
<%=(Recordset1.Fields.Item(&quot;StatePriority&quot.Value)%> </td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<p> <A HREF=&quot;<%=MM_movePrev%>&quot;>Previous</A>
<A HREF=&quot;<%=MM_moveNext%>&quot;>Next</A>
</p>
</body>
</html>
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
%>

 

[Neilf]

This page should sort you out:

http://www.macromedia.com/support/ultradev/ts/documents/8004005_provider.htm