Corazon Verde Arborizarte Subasta

Bogota

Grupos

Varios, Visual

<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open Application("str_conn_user") "Colarte_Usuarios_Internet" PARAMETRO_CONTADOR=REQUEST.QUERYSTRING("PAGINA") PAGINA_CONTADOR="defaultraiz" Pagina por defecto Seccion para colocar el contador de acuerdo a la pagina if PARAMETRO_CONTADOR="" OR PARAMETRO_CONTADOR="arborizarte" then pagina raiz por defecto PAGINA_CONTADOR="arborizarte" else if PARAMETRO_CONTADOR="pagina2" then PAGINA_CONTADOR=pagina2 etc end if CONSULTA_CONTADOR="Select * From Contador Where pagina=" & PAGINA_CONTADOR & "" Set RSConsulta = OBJdbConnection.Execute(CONSULTA_CONTADOR) Contador_CONTADOR=RSConsulta("contador") Hits_CONTADOR = Contador_CONTADOR + 1 CONSULTA_CONTADOR = "Update Contador Set contador=" & Hits_CONTADOR & " Where pagina=" & PAGINA_CONTADOR & "" Set RSConsulta = OBJdbConnection.Execute(CONSULTA_CONTADOR) if Hits_CONTADOR="" then Hits_CONTADOR=1 for x = 1 to len(Hits_CONTADOR) response.write "" next %>