| Anuncios
<%
' comprobamos cuantos avisos van publicados
'Dim objConex, objRegs
arrDatos = ""
'Dim i
Dim aviso
Set objConex = Server.CreateObject("ADODB.Connection")
objConex.ConnectionTimeOut = 120
objConex.CommandTimeOut = 60
objconex.Open cadConexAvBIB
Set objRegs = objConex.Execute("SELECT aviso FROM tavisos WHERE estado LIKE 'A';",,adCmdText)
If Not objRegs.EOF Then
arrDatos = objRegs.GetRows()
End IF
' liberamos recursos
objRegs.Close()
Set objRegs = Nothing
objConex.Close()
Set objConex = Nothing
If IsArray(arrDatos) Then
%>
<%Else%>
ningun aviso <%End If%>
|
