%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> [an error occurred while processing this directive]<% strSQL = "Select Max(idNoticia) From tblNoticias where chrEstado = 'A'" vNoticia = ObtenerDatos(strSQL) If IsArray(vNoticia) Then strSQL = "Select idNoticia, strNoticia, strTextoNoticia from tblNoticias Where idNoticia = " & vNoticia(0,0) vNoticia = ObtenerDatos(strSQL) End If %> <% strSQL = "Select strIndustria, strTextoIndustria from tblIndustrias order By idIndustria" vIndustria = ObtenerDatos(strSQL) intFilas=-1 If IsArray(vIndustria) Then intFilas = UBound(vIndustria,2) End If %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||