GetString equivalent

[helixpoint]

Is there an equivalent. I am using the ODP adapter
String = recordset.GetSt ring(StringForm at, NumRows, ColumnDelimiter ,
RowDelimiter, NullExpr)

Dim sScript As New System.Text.Str ingBuilder
rpttype = selTable.Select edItem.Text 'Report Type as it
appears in TRACKS (ex: DTTS, OCEAN_CARGO, RAIL)
Dim conn As OracleConnectio n = New
OracleConnectio n(Context.Appli cation("connect ionString"))
Dim cmd1 As OracleCommand = New OracleCommand(" SELECT
ID,RPTNAME,OPTI ONS,DESCRIPTION ,MAPID FROM TRACK.V_RPTTRAC K WHERE
RPTTYPE = '" & rpttype & "'", conn)
conn.Open()
Dim dr As OracleDataReade r = cmd1.ExecuteRea der()
Dim aaa As Integer = 0
Do While dr.Read
aaa = aaa + 1
' Dim sScript As String
sScript.Append( "<script language=""Java Script"">")

sScript.Append( "function LoadRoutines()" )
sScript.Append( "{")
sScript.Append( "GetParameters( 100);")
sScript.Append( "}")

sScript.Append( "function GetParameters(m axTime)")
sScript.Append( "{")
sScript.Append( "var timerID;")
sScript.Append( "Try")
sScript.Append( "{")
sScript.Append( "parent.frames( ""control"").Re portHolder.valu e
= '" & dr.GetString(2, , "":"", ""|"") & ""'"")
sScript.Append( "Parent.frames( ""control"").Cr eateOptArr()")
sScript.Append( "var(Str() =
Parent.frames(" "control"").Rep ortHolder.value )")
sScript.Append( "var(arr = Str.split(""|"" ))")
sScript.Append( "Parent.frames( ""control"").Cl earSelectCntrl( ""selReport"")" )
sScript.Append( "Parent.frames( ""control"").Lo adSelectCntrl(" "selReport" ",
arr)")
sScript.Append( "
//parent.frames(" "control"").rpt Descrip.innerTe xt =
parent.frames(" "control"").Cre ateDescArr(pare nt.frames(""con trol"").selRepo rt.selectedInde x)
")
sScript.Append( "}")
sScript.Append( "catch (everything)")
sScript.Append( "{")
sScript.Append( "If (Number(maxTime ) 0) Then")
sScript.Append( "{")

sScript.Append( "timerID =
window.setTimeo ut('GetParamete rs('+ (Number(maxTime )-1) +')', 100); ")
sScript.Append( "}")
sScript.Append( "}")
sScript.Append( "}")

sScript.Append( "</script>")
Loop
RegisterStartup Script("ForceDe faultToScript",
sScript.ToStrin g)