<WebMethod(CacheDuration=0)>

<WebMethod()> _
    <Script.Services.ScriptMethod()> _
    Public Shared Function GetVINList(ByVal prefixText As String)
        Dim janatest As String = prefixText
        '**********'
        'das letzte Wort aus dem übergebenen String ermitteln'
        'denn das ist das Wort, das neu eingegeben wird'
 
        Dim p As Integer = prefixText.LastIndexOf(" ") + 1
        prefixText = prefixText.Substring(p)
        'E'
 
 
        Dim count As Integer = 10
 
        'dim prefixText as string = "impress"'
        Dim FLAG_verw As Integer = 1
        Dim FLAG_root As Integer = 1
        Dim sql As String = "SELECT klartext FROM wikiworks_suchindex WHERE" & _
          "klartext LIKE '%" & prefixText & "%'"
 
 
        'response.write(sql)'
        Dim da As SqlDataAdapter
        da = New SqlDataAdapter(sql, utils.DB.GetConnection())
        da.SelectCommand.Parameters.Add("@prefixText", SqlDbType.NText).Value = _
          prefixText + "%"
        Dim dt As DataTable
        dt = New DataTable()
 
        Dim dr As DataRow
 
        da.Fill(dt)
        'Dim items() As String = New String() {dt.Rows.Count}'
        Dim items() As String = New String((dt.Rows.Count) - 1) {}
        'string[] items = new string[dt.Rows.Count]'
 
 
        Dim i As Integer = 0
 
        For Each dr In dt.Rows
            'response.write(i)'
            items.SetValue(dr("klartext").ToString(), i)
            i = i + 1
        Next
 
        Return items
 
    End Function