%@ Language=VBScript %>
<%
Option explicit
Response.Expires = -1
%>
<%
Dim strSQL
Dim intFilas
Dim intMaximo
Dim vNoticia
Dim vStock
Dim vUsado
Dim intF
strSQL = "SELECT idNoticia, strNoticia, strTextoNoticia, strImagen, dtFecha FROM tblNoticias where chrEstado='A' ORDER BY dtFecha DESC"
vNoticia = ObtenerDatos(strSQL)
If IsArray(vNoticia) Then
intFilas = ubound(vNoticia,2)
Else
intFilas = -1
End if
if intFilas > 1 then intFilas = 1
'strSQL = "Select Max(idNoticia) From tblNoticias where chrEstado = 'A'"
'vNoticia = ObtenerDatos(strSQL)
'If IsArray(vNoticia) Then
'strSQL = "Select idNoticia, strNoticia, strTextoNoticia, strImagen, dtFecha from tblNoticias Where idNoticia = " & vNoticia(0,0)
'vNoticia = ObtenerDatos(strSQL)
'End If
strSQL = "Select idProducto, strProducto From tblProductos P Inner Join tblParametros Pr ON P.idProducto = Pr.intValorNumerico " & _
"Where strParametro = 'strProductoUsado'"
vUsado = ObtenerDatos(strSQL)
strSQL = "Select idProducto, strProducto From tblProductos P Inner Join tblParametros Pr ON P.idProducto = Pr.intValorNumerico " & _
"Where strParametro = 'strProductoStock'"
vStock = ObtenerDatos(strSQL)
%>
Juan Neustadtel y Cia. S.A. - Maquinaria y material de empaque para la industria alimenticia