Android Question Best Practice Question - SQL server

qry=request.form'("qry")
sqlConnectStr=session("ConnectionString")
Set SqlConn = Server.CreateObject("ADODB.Connection")
sqlConn.open  session("ConnectionString")
set oRs=server.CreateObject("ADODB.RecordSet")
ors.Open qry,sqlConn,3,1
  
on error resume next
if oRs.BOF and oRs.EOF then
    Response.Write("0")
else
    Response.Write(oRs.GetString(2)) 'this returns chr(13) separated records and a TAB separated record
end if

Sub GetRecords(result As String) As List
    Dim aList As List
    aList.Initialize
    'Dim line As String
    If EndRecord="" Then
        EndRecord=Chr(13)'Chr(0)
    End If
    If result="0" Then 'nothing
    Else
        Dim lines() As String
        lines=Regex.Split(EndRecord,result)
        Dim A As Int
        For A=1 To lines.Length
            aList.Add(lines(A-1))
        Next
    End If
    Return aList
End Sub

    If job.Success Then
        Dim Records As List
        Records=GetRecords(job.GetString)

    For Each ALine As String In Records
        Dim line() As String
        line=Regex.Split(TAB,ALine)
        Edit1.text=line(0)
                Edit2.text=line(1)
...etc

Sub LogSQL(SQL As String) As Int
        Dim sSql As String
        sSql="INSERT INTO SQLLog(Date,SQL,Posted) VALUES(" & Delphi.Date & ",'" & SQL.Replace("'","""") & "',0)" 'the date is only for the "log" to know when it was logged
        Log(sSql)
        ASQL.ExecNonQuery(sSql)
        sSql="Select last_insert_rowid()"
        Return ASQL.ExecQuerySingleResult(sSql)

            Dim sSQL As String
            sSQL="UPDATE SQLLog SET POSTED=1 WHERE ID=" & ID
            ASQL.ExecNonQuery(sSQL)

    Dim http As HttpJob
    http.Initialize("SQL",Me)
    Dim SQL as String
    SQL="EXECUTE YOUR STORED PROCEDURE OR SQL SCRIPT"
    SQL=SQL.Replace(" ","%20")'I like to remove spaces just in case
    http.PostString(SQLServer,SQL) 'SQLServer is a variable to the webserver, i.e. http://www.yourserver.com/getsql.asp
    http.GetRequest.SetHeader("Authorization",SOMECODE) 'you can use a header like this but you have to update the asp script to grab the header and do what you want with it

Sub JobDone(job As HttpJob)
    If job.success Then
        Dim result As String=job.getstring
        If result<>"0" then
        Dim rows() As String=Regex.Split(Chr(13),result)
        Select Case job.jobname
            Case "AJOBNAME"
                For Each record As String In rows
                    Dim cols() As String=Regex.Split(TAB,record)
                    x=cols(0)
                    y=cols(1)
                    z=cols(2)
                    'etc....
                Next
        End Select
        Else
            'nothing returned, do something?
        End If
    End If
End Sub