Android Question Insert jpg from phone to sql server... and parser.aspx question...

    Camera1.StartPreview
    out = File.OpenOutput(File.DirRootExternal, "tmp.jpg", False)
    out.WriteBytes(Data, 0, Data.Length)
    out.Close

        b = ResizeBitmap(LoadBitmap(File.DirRootExternal, "tmp.jpg"), 320, 240) ' size
        out = File.OpenOutput(File.DirRootExternal, index & ".jpg", False)
        b.WriteToStream(out, 100 , "JPEG")
        out.Close

Sub WriteAsText(NumeFisier As String)
    Log(NumeFisier)
    Dim In As InputStream
    In = File.OpenInput(File.DirRootExternal, NumeFisier & ".jpg")
    Dim out As OutputStream
    out.InitializeToBytesArray(10000)
    File.Copy2(In, out)
    Dim data() As Byte
    data = out.ToBytesArray

    Dim su As StringUtils
    Dim PhotoAsString As String
   
    Dim url, encodedUrl As String
    encodedUrl = su.EncodeUrl(su.EncodeBase64(data), "UTF8")

    PhotoAsString = encodedUrl
   
    Dim dataLenght As Int=data.Length
InsertUsingWebServices(PhotoAsString)
End Sub

    <WebMethod()>
       <ScriptMethod(UseHttpGet:=True)> _
    Public Function PRB_InsertCopieCI(PublicKey As String) As String
        Dim parts As String() = PublicKey.Split(New Char() {"~"c})
        If GetID_Device(parts(0)) = 0 Then
            Return "ERR"
            Exit Function
        End If
        Dim id_transact As Integer

        Dim PozaAsString As String
        Dim id_Comanda As Integer = CInt(parts(1))
        PozaAsString = CStr(parts(2))

        Dim command As SqlCommand
        Dim conn As New SqlConnection(connStringOAA)
        Dim da As SqlDataAdapter = Nothing
        Dim ds As DataSet = Nothing

        Dim binaryData() As Byte
        Try
            binaryData = System.Convert.FromBase64String(PozaAsString)
        Catch ex As Exception
            Log(ex.ToString)
        End Try
        conn.Open()
        Try
            command = New SqlCommand("PRB_InsertCopieCI", conn)
            command.CommandType = CommandType.StoredProcedure
            command.Parameters.AddWithValue("@id_Comanda", id_Comanda)
            command.Parameters.AddWithValue("@CopieCI", binaryData)
            command.ExecuteNonQuery().ToString()
            id_transact = Convert.ToInt32(command.ExecuteNonQuery())
        Catch ex As Exception
            Log(ex.ToString)
        Finally
            command = Nothing
            conn.Close()
        End Try
        Return id_transact
    End Function