Line 293: Dim DS As DataSet
Line 294: DS = mx1Data.mx1DataSet("SELECT materias.codigo, Titulo, data, txtchamada, fotochamada, categoria FROM materias, categorias WHERE categ = " & cat & " AND categorias.codigo = categ AND disp=1 ORDER BY Codigo DESC LIMIT " & iniP & "," & PageSize) 'Dim Categoria As String = mx1Data.SelectEscalar("SELECT categoria FROM categorias WHERE codigo=" & cat)
Line 295: Dim Categoria As String = DS.Tables(0).Rows(0)("categoria")
Line 296:
Line 297: strReturn.AppendLine("<div id=""chamadaartig"">")
|