LuigiX
02-06-2004, 04:03 AM
Hi again
I'm trying to open an asp page with two recordsets on it and getting the dreaded "unspecified error" on the folowing line:
rsTask.ActiveConnection = MM_myAssets_STRING
This is the second recordset on the page. The DSN connection "myAssets" has been tested and is working okay.
The code to the offending line is as follows:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/myAssets.asp" -->
<%
Dim rsType__MMColParam
rsType__MMColParam = "1"
If (Request.Form("category") <> "") Then
rsType__MMColParam = Request.Form("category")
End If
%>
<%
Dim rsType
Dim rsType_numRows
Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.ActiveConnection = MM_myAssets_STRING
rsType.Source = "SELECT DISTINCT type FROM data WHERE category = '" + Replace(rsType__MMColParam, "'", "''") + "'"
rsType.CursorType = 0
rsType.CursorLocation = 2
rsType.LockType = 1
rsType.Open()
rsType_numRows = 0
%>
<%
Dim rsTask__MMColParam
rsTask__MMColParam = "1"
If (Request.Form("category") <> "") Then
rsTask__MMColParam = Request.Form("category")
End If
%>
<%
Dim rsTask
Dim rsTask_numRows
Set rsTask = Server.CreateObject("ADODB.Recordset")
rsTask.ActiveConnection = MM_myAssets_STRING
Any help would be muchos appreciated
Cheers
Luigi
I'm trying to open an asp page with two recordsets on it and getting the dreaded "unspecified error" on the folowing line:
rsTask.ActiveConnection = MM_myAssets_STRING
This is the second recordset on the page. The DSN connection "myAssets" has been tested and is working okay.
The code to the offending line is as follows:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/myAssets.asp" -->
<%
Dim rsType__MMColParam
rsType__MMColParam = "1"
If (Request.Form("category") <> "") Then
rsType__MMColParam = Request.Form("category")
End If
%>
<%
Dim rsType
Dim rsType_numRows
Set rsType = Server.CreateObject("ADODB.Recordset")
rsType.ActiveConnection = MM_myAssets_STRING
rsType.Source = "SELECT DISTINCT type FROM data WHERE category = '" + Replace(rsType__MMColParam, "'", "''") + "'"
rsType.CursorType = 0
rsType.CursorLocation = 2
rsType.LockType = 1
rsType.Open()
rsType_numRows = 0
%>
<%
Dim rsTask__MMColParam
rsTask__MMColParam = "1"
If (Request.Form("category") <> "") Then
rsTask__MMColParam = Request.Form("category")
End If
%>
<%
Dim rsTask
Dim rsTask_numRows
Set rsTask = Server.CreateObject("ADODB.Recordset")
rsTask.ActiveConnection = MM_myAssets_STRING
Any help would be muchos appreciated
Cheers
Luigi