Is there an equivalent. I am using the ODP adapter
String = recordset.GetString(StringFormat, NumRows, ColumnDelimiter,
RowDelimiter, NullExpr)
Dim sScript As New System.Text.StringBuilder
rpttype = selTable.SelectedItem.Text 'Report Type as it
appears in TRACKS (ex: DTTS, OCEAN_CARGO, RAIL)
Dim conn As OracleConnection = New
OracleConnection(Context.Application("connectionSt ring"))
Dim cmd1 As OracleCommand = New OracleCommand("SELECT
ID,RPTNAME,OPTIONS,DESCRIPTION,MAPID FROM TRACK.V_RPTTRACK WHERE
RPTTYPE = '" & rpttype & "'", conn)
conn.Open()
Dim dr As OracleDataReader = cmd1.ExecuteReader()
Dim aaa As Integer = 0
Do While dr.Read
aaa = aaa + 1
' Dim sScript As String
sScript.Append("<script language=""JavaScript"">")
sScript.Append("function LoadRoutines()")
sScript.Append("{")
sScript.Append("GetParameters(100);")
sScript.Append("}")
sScript.Append("function GetParameters(maxTime)")
sScript.Append("{")
sScript.Append("var timerID;")
sScript.Append("Try")
sScript.Append("{")
sScript.Append("parent.frames(""control"").ReportH older.value
= '" & dr.GetString(2, , "":"", ""|"") & ""'"")
sScript.Append("Parent.frames(""control"").CreateO ptArr()")
sScript.Append("var(Str() =
Parent.frames(""control"").ReportHolder.value)")
sScript.Append("var(arr = Str.split(""|""))")
sScript.Append("Parent.frames(""control"").ClearSe lectCntrl(""selReport"")")
sScript.Append("Parent.frames(""control"").LoadSel ectCntrl(""selReport"",
arr)")
sScript.Append("
//parent.frames(""control"").rptDescrip.innerText =
parent.frames(""control"").CreateDescArr(parent.fr ames(""control"").selReport.selectedIndex)
")
sScript.Append("}")
sScript.Append("catch (everything)")
sScript.Append("{")
sScript.Append("If (Number(maxTime) > 0) Then")
sScript.Append("{")
sScript.Append("timerID =
window.setTimeout('GetParameters('+ (Number(maxTime)-1) +')', 100); ")
sScript.Append("}")
sScript.Append("}")
sScript.Append("}")
sScript.Append("</script>")
Loop
RegisterStartupScript("ForceDefaultToScript",
sScript.ToString)
