*** edited by: master4eva *** Please enclose your code in < code > tags (without the spaces). This will make your code easier to read online; therefore, encouraging a response to be faster. It is to your own benefit for your question to be answered in future.
I have already done the editing to include the < code > tags for this post. ********* Not sure how to deal with: Set = rsFields("tblname")
Dim aSelLayer
Dim sQ, sDefOrder, sTable, sFldName, sFldText, sType, sClass, sTableList, strSQL
'layer to select initially
sSelLayer = UCase(Trim(Request.QueryString("SEL") & ""))
'select feeds where TRK appears in queryfield class field
Set rsFields = CreateObject("ADODB.Recordset")
strSQL = "SELECT tblname,fldname,fldtext,type,LTRIM(RTRIM(class)) as class FROM COMMON.QueryFields WHERE class LIKE '%trk%' ORDER BY UPPER(fldtext)" 'trailing space for one row wreaked havoc even though it did not appear in Toad, so we're trimming class
rsFields.Open strSQL, ADOConnIRRIS, 0
Set = rsFields("tblname")
Set sFldText = rsFields("fldtext")
Set sFldName = rsFields("fldname")
Set sType = rsFields("type")
Set sClass = rsFields("class")
helixpoint
Member
460 Points
615 Posts
recordset conversion
May 27, 2004 04:10 PM|LINK
Dim aSelLayer Dim sQ, sDefOrder, sTable, sFldName, sFldText, sType, sClass, sTableList, strSQL 'layer to select initially sSelLayer = UCase(Trim(Request.QueryString("SEL") & "")) 'select feeds where TRK appears in queryfield class field Set rsFields = CreateObject("ADODB.Recordset") strSQL = "SELECT tblname,fldname,fldtext,type,LTRIM(RTRIM(class)) as class FROM COMMON.QueryFields WHERE class LIKE '%trk%' ORDER BY UPPER(fldtext)" 'trailing space for one row wreaked havoc even though it did not appear in Toad, so we're trimming class rsFields.Open strSQL, ADOConnIRRIS, 0 Set = rsFields("tblname") Set sFldText = rsFields("fldtext") Set sFldName = rsFields("fldname") Set sType = rsFields("type") Set sClass = rsFields("class")Helixpoint LLC
Mobile Marketing
Atrax
All-Star
18705 Points
3733 Posts
Re: recordset conversion
May 30, 2004 12:04 PM|LINK
Jason Brown - MVP, IIS