<%@ Language = "VBScript" %> <% Response.Buffer = True %> www.expressolin.com <% sqltxt="select contprincipal from contador" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=mipclinares.com.contador;User=admin" 'Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("contador.mdb") %> <% set rs=createobject("ADODB.Recordset") set rsr=createobject("ADODB.Recordset") rs.open sqltxt,conn dim visitas visitas=rs("contprincipal") visitas=visitas+1 %> <% sqltxt="UPDATE contador SET contprincipal = " & visitas Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=mipclinares.com.contador;User=admin" 'Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("contador.mdb") %> <% set rs=createobject("ADODB.Recordset") set rsr=createobject("ADODB.Recordset") rs.open sqltxt,conn %> <% Set Conn = Server.CreateObject("ADODB.Connection") set rs = CreateObject("ADODB.Recordset") 'Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE="&Server.MapPath("ofertas.mdb") Conn.Open "DSN=mipclinares.com.ofertasdb;User=admin" strsql = "SELECT * FROM articulos" rs.Open strsql, Conn, 1, 3 rs.MoveLast %>
">

<%=rs("precio")%>

 

 

 
         
         

 

 

  

<%=rs("articulo")%>

  

 

 

  

 + <%=rs("regalo1")%> 

 

 

  

  + <%=rs("regalo2")%>

     

  <%=rs("compra")%>
     

   <%=rs("comentario1")%>
         

 

 

    

<%=rs("comentario2")%>

|    Protección de datos personales
|    Condiciones de venta

                                                                                    |    PAGINA OPTIMIZADA PARA RESOLUCIÓN DE 1024*768 px

     |    Numero de Vistas <%=visitas%>      |

Copyright © 2007 MiPCLin S.L.L.

 

Telf. (+34) 902 107 113    4 lineas

Copyright © Expressolin un producto de Servencaf S.L.

 

<% ' Cerramos los objetos y los limpiamos dandole valores de nada ( Nothing ) para liberar los recursos que ocupa. rs.close Set rs= Nothing Conn.close Set Conn= Nothing %>