Tema: Error de Microsoft VBScript (solo para expertos)
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 08/01/2003, 05:01
Avatar de Musika
Musika
 
Fecha de Ingreso: junio-2002
Mensajes: 72
Antigüedad: 22 años, 11 meses
Puntos: 0
resto del codigo
href="http://www.mipagina.com/central_de_compras.html"
shape=RECT><AREA coords=431,0,531,19
href="http://www.mipagina.com/publicidad.html"
shape=RECT><AREA coords=531,0,610,19
href="http://www.mipagina.com/contacta.html"
shape=RECT></MAP></TD></TR></TBODY></TABLE><!--TABLA DEL BANNER --FIN--></TD></TR>
<TR>
<TD colSpan=3>&nbsp; </TD></TR>
<TR>
<TD><!--TABLA INFERIOR INSERTADA--COMIENZO-->
<TABLE bgColor=white border=0 cellSpacing=1 width="100%">
<TBODY>
<TR>
<TD><IMG border=0 height=43
src="http://www.mipagina.com/graficos/top_rank_logo.gif" width=234> </TD></TR>
<TR>
<TD class=menu>Ranking | <A
href="http://www.mipagina.com/ranking/que.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Qué es</SPAN></A> |
<A
href="http://www.mipagina.com/ranking/funcionamiento.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Funcionamiento</SPAN></A>
| <A href="http://www.mipagina.com/ranking/normas.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Normas</SPAN></A> |
<A
href="http://www.mipagina.com/ranking/beneficios.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Beneficios</SPAN></A>
| <A
href="http://www.mipagina.com/ranking/rankings_anteriores.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Anteriores</SPAN></A>
| <A href="http://www.mipagina.com/ranking/altas.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Altas</SPAN></A> |
<A href="http://www.mipagina.com/ranking/bajas.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Bajas</SPAN></A> |
<A href="http://www.mipagina.com/ranking/ayuda.html"><SPAN
style="COLOR: blue; TEXT-DECORATION: underline">Ayuda</SPAN></A>
<TD></TD>
<TR>
<TD class=barra><BR>
<P><SPAN style="TEXT-DECORATION: underline"><%Response.Write(nombremes(month((Now)) ) & " - " & Year(Now))%>, por
visitas:</SPAN> </P></TD></TR>
<TR>
<TD class=central>
<br><P><A
href="ranking_arquitop_votos.asp"><SPAN
style="COLOR: brown; TEXT-DECORATION: underline">VER RANKING POR
VOTOS</SPAN></A> </P></TD></TR>
<TR>
<TD class=estadistica>
<TABLE width="100%">
<TBODY>
<TR>
<TD class=menu>
<BR><B>Actualizado</B> en tiempo real (ON-LINE).
<BR>Acceso a estadísticas banners: &nbsp;<A
href="http://cgi.mipagina.com/banner/Audit.pl"
target=principal><IMG border=0 height=14
src="http://www.mipagina.com/graficos/estadisticas.gif" width=14></A>
</P></TD>
<TD>
<TABLE align=right>
<TBODY>
<TR>
<TD align=middle class=menu><A
href="Ranking_Arquitop_Votar.asp"
target=principal><B>Su voto aquí</B></SPAN></A> </TD></TR>
<TR>
<TD align=middle><A
href="Ranking_Arquitop_Votar.asp"
target=principal><IMG border=0 height=28
src="http://www.mipagina.com/graficos/urna.gif"
width=23></SPAN></A>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD><!-- TABLA DEL RANKING -- COMIENZO -->
<TABLE border=0 cellPadding=2 cellSpacing=2 width="100%">
<TBODY>
<TR>
<TD bgColor=#99ccff class=ranking>&nbsp;<B>Nº</B> </TD>
<TD bgColor=#99ccff class=ranking><A
href="http://www.mipagina.com/ranking/ayuda.html"><IMG
alt="Webs ganadoras" border=0 height=15
src="http://www.mipagina.com/graficos/ranking1.gif" width=15></A> </TD>
<TD bgColor=#99ccff class=ranking>&nbsp;<B>Web</B> </TD>
<TD bgColor=#99ccff class=ranking>&nbsp;<B>Tema</B> </TD>
<TD align=middle bgColor=#99ccff
class=ranking><B>Visitas<BR>mes</B> </TD>
<TD align=middle bgColor=#99ccff
class=ranking><B>Visitas<BR>ayer</B> </TD>
<TD align=middle bgColor=#99ccff
class=ranking><B>Visitas<BR>hoy</B> </TD>
<TD align=middle bgColor=#99ccff class=ranking><B>Media
<BR><%Response.Write(left(nombremes(month(now())-2),3)& ".")%></B> </TD>
<TD align=middle bgColor=#99ccff class=ranking><B>Media
<BR><%Response.Write(left(nombremes(month(now())-1),3)& ".")%></B> </TD>
<TD align=middle bgColor=#99ccff
class=ranking><B>Media<BR><%Response.Write(left(no mbremes(month(now())),3)& ".")%></B> </TD>
<TD align=middle bgColor=#99ccff class=ranking><B>Total</B>
</TD>
<TD align=middle bgColor=#99ccff
class=ranking><B>Fecha<BR>Alta</B> </TD>
<TR>
<TD class=peque colSpan=5>&nbsp; </TD></TR>

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "mipagina.com.sqldatos","qd902","193858"

Set cmd = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.Recordset")
cmd.ActiveConnection= conn
cmd.CommandText="SP_EXPO"
'cmd.CommandType=adcmdstoredproc
dias=day(now())
set rs=cmd.Execute (,dias)

On Error Resume Next
rs.MoveFirst
i=1
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD class=ranking><B>&nbsp;<%Response.Write(i)&"º"%></B></TD>

<%if isnull(rs.Fields("URLDistintivo").Value)then
%> <TD bgColor=#dedddd class=ranking></TD>
<%else
%> <TD bgColor=#dedddd class=ranking><A HREF=<%=Server.HTMLEncode(rs.Fields("URLDistintivo ").Value)%> target="principal"><IMG SRC="http://www.mipagina.com/graficos/ranking1.gif" WIDTH="15" HEIGHT="15" BORDER="0"></A></td>
<%end if
%>

<TD class=ranking><A href=<%=Server.HTMLEncode(rs.Fields("Web").Value)% >
target=principal><SPAN
style="COLOR: blue; TEXT-DECORATION: underline"><%=Server.HTMLEncode(rs.Fields("Titulo" ).Value)%></SPAN></A></TD>
<TD class=ranking><%=Server.HTMLEncode(rs.Fields("Tema ").Value)%></TD>
<TD align=middle bgColor=#dedddd class=ranking><%=Server.HTMLEncode(rs.Fields("Voto s_Mes").Value)%><BR></FONT></TD>
<TD align=middle bgColor=#dedddd class=ranking><%=Server.HTMLEncode(rs.Fields("Voto s_Ayer").Value)%><BR></FONT></TD>
<TD align=middle bgColor=#dedddd class=ranking><%=Server.HTMLEncode(rs.Fields("Voto s_Hoy").Value)%><BR></FONT></TD>
<TD align=middle bgColor=#dedddd class=ranking><%=Server.HTMLEncode(rs.Fields("Voto s_Tres").Value)%><BR></FONT></TD>
<TD align=middle bgColor=#dedddd class=ranking><%=Server.HTMLEncode(rs.Fields("Voto s_Dos").Value)%><BR></FONT></TD>
<TD align=middle bgColor=#a4a4a4 class=ranking><%=Server.HTMLEncode(round(rs.fields ("MediaMes").Value,0))%><BR></FONT></TD>
<TD align=middle bgColor=#dedddd class=ranking><%=Server.HTMLEncode(rs.Fields("Voto s_Total").Value)%><BR></FONT></TD>
<TD align=middle class=ranking><%=Server.HTMLEncode(left(rs.Fields( "FechaAlta").Value,5))%></TD></TR>
</TR>
<%
rs.MoveNext
i=i+1
loop
rs.Close
conn.Close

%>
<TR>
<TD colSpan=5><BR>
<P></P></TD></TR></TBODY></TABLE><!-- TABLA DEL RANKING -- FIN --></TD></TR></TBODY></TABLE><!--TABLA INFERIOR INSERTADA--FIN--></TD></TR>
<TR>
<TD>
<CENTER>
<P><BR>
<a href="http://cgi.mipagina.com/Banner/BannerClick.asp?lugar=Base_arquitop">
<img width="468" height="60" src="http://cgi.mipagina.com/Banner/ServeBanner.asp?lugar=Base_arquitop" border="1">
</a>
</CENTER></P></TD></TR>
<TR>
<TD class="" ?menu?><A
href="http://cgi.mipagina.com/banner/Audit.pl"
target=principal><SPAN style="TEXT-DECORATION: underline"><B>Estadísticas
banners</B></SPAN></A> <BR>
<P><BR></P></TD></TR>
<TR>
<TD class=menu><BR>
<P>© 2000 mipagina.com - Prohibida su reproducción <BR><A
href="mailto:[email protected]"><SPAN id=Web
onmouseout="Web.style.color='blue';" onmouseover="Web.style.color='red';"
style="COLOR: blue">[email protected]</SPAN></A>
</P></TD></TR></TBODY></TABLE><!--TABLA GENERAL---FIN--><BR>
<P></P></BODY></HTML>
__________________
La mejor forma de enseñar es aprendiendo
------------------------------------------------
Un pokitin de Musika en tu Vida