Estimados amigos necesito ayuda:
Tengo una pagina alojada en ARUBA.it, hace algunos dias me llego un mail diciendome que mi BD esta ocasionando problemas en el servidor donde se aloja.
Este es el msg :
"NON_USARE_BLOCCA_IL_SERVER_pcte.mdb"
para bloquear los pedidos errados hacia los recursos de sistema.
Bueno eso dicen, pero no se a que se refieren, pues he revisado toda la pagina y no encuentro errores, y los de aruba no me dan ayuda o no emdan mas detalles.
Estos son los codigos que uso:
------ ' PARA MOSTRAR UN BANNER ALEATORIO
<%
Dim oConn_bnn468, rs_bnn468, SQL_bnn468, bnn468
Dim codUrl_bnn468
codUrl_bnn468 = 5
SQL_bnn468="SELECT * FROM banners WHERE medida = '468x60' and tipo = 'T1' AND fin >= '"&hoy&"' "
set oConn_bnn468 = Server.CreateObject("ADODB.Connection")
oConn_bnn468.Open MM_pcte_STRING
set rs_bnn468 = oConn_bnn468.Execute(SQL_bnn468)
bnn468 = rs_bnn468.GetRows
'Liberamos los objetos ya!!
rs_bnn468.Close
set rs_bnn468 = nothing
oConn_bnn468.Close
set oConn_bnn468 = nothing
%>
'------------------- PARA PAGINAR RESULTADOS
<%
NomPage = Request.ServerVariables("SCRIPT_NAME") '**Nombre de la pagina
'escort = aDatos -> Los datos como vector
Dim pag, iEstado
Dim oConn, SQL, rs
Dim aDatos, iTotal
Dim I, J, N
N=16 'N = numero de registros por pagina
'Nos conectamos a la base de datos...
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open MM_pcte_STRING
SQL = "SELECT * FROM fotos WHERE mostrar = 's' order by ingreso desc"
rs.CursorType = 0
rs.LockType = 1
rs.CursorLocation = 3
rs.Open SQL, oConn
aDatos = rs.GetRows
rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
pag = CInt(Request.QueryString("P"))
iEstado = PaginarGR (N, pag, aDatos)
Function PaginarGR (iRegsPorPag, iPag, vector)
'
Dim I, J
Dim iPaginas, iPagActual
Dim iTotal, iComienzo, iFin
iTotal = UBound(aDatos,2)+1
iPaginas = (iTotal \ iRegsPorPag)
if iTotal mod iRegsPorPag > 0 then
iPaginas = iPaginas + 1
end if
if iPag < 1 then
iPag = 1
end if
if iPag > iPaginas then
iPag = iPaginas
end if
iComienzo = (iPag-1)*iRegsPorPag
iFin = iComienzo + (iRegsPorPag-1)
if iFin > UBound(vector, 2) then
iFin = UBound(vector, 2)
end if
Response.Write("<TABLE width='460' border='0' bgcolor='#000000' cellspacing='1' cellpadding='1'><TR>")
counter=0
for I= iComienzo to iFin
Response.Write("<TD align='center'>")
If vector(4, I)+10 >= Now() then ' Asignar img cundo es reciente
Response.Write("<img src='../imgs/new_red1.gif'>")
End If' Fin asignar img cuando es reciente
counter=counter+1
If counter Mod 4 = 0 Then Response.Write "</TD></tr>"
next
Response.Write "</table>"
Response.Write("<br><center>Página: ")
if iPag > 1 then
Response.Write("<A HREF="&NomPage&"?P="&iPag-1&"&shk="&aleatorio&"><<</A>")
end if
Response.Write(" |:: ")
For i = 1 To iPaginas
P = CInt(Request("P"))
If P < 1 Then P = 1
If cstr(i) <> Cstr(P) Then
Response.Write("<a href="&NomPage&"?P="&i&"&shk="&aleatorio&"> "&i&" </a>")
Else
Response.Write(" [<b>"&i&"</b>] ")
End If
Next
Response.Write(" ::| ")
if iPag < iPaginas then
Response.Write("<A HREF="&NomPage&"?P="&iPag+1&"&shk="&aleatorio&">>> </A></center>")
end if
PaginarGR = 0
End Function
%>
---
LO HE REVISADO Y NO ME DA PROBLEMAS EN MI SERVIDOR LOCAL.
SI ALGUIEN ME PUEDE AYUDAR Y DECIRME PORQUE HAY PETICIONES QUE SE DAN.
GRACIAS A TODOS.