%
'DB.execute "UPDATE contadorweb SET visitas = visitas + 1 WHERE id = 1"
%>
:: REMISES TRASLADA BUENOS AIRES ARGENTINA COMBIS MINIBUSES BUSES CHOFERES BILINGUES VEHICULOS MERCEDES BENZ BLINDADOS EMPRESA DE SERVICIO EJECUTIVO COMPAÑIA TAXI REMIS COMBI VAN MINIBUS BUS OMNIBUS CHARTER EMPRESARIAL TRASLADO DE PERSONAL AGENCIA CAPITAL FEDERAL CAP FED REMIS REMISE TAXI
<%
function MesStr(Valor)
select case Valor
case 1
MesStr="Enero"
case 2
MesStr="Febrero"
case 3
MesStr="Marzo"
case 4
MesStr="Abril"
case 5
MesStr="Mayo"
case 6
MesStr="Junio"
case 7
MesStr="Julio"
case 8
MesStr="Agosto"
case 9
MesStr="Septiembre"
case 10
MesStr="Octubre"
case 11
MesStr="Noviembre"
case 12
MesStr="Diciembre"
end select
end function
function dia(fecha)
dim d
d=datepart("w",fecha)
select case d
case 1
dia="Domingo"
case 2
dia="Lunes"
case 3
dia="Martes"
case 4
dia="Miercoles"
case 5
dia="Jueves"
case 6
dia="Viernes"
case 7
dia="Sabado"
end select
end function
varFecha=dia(date())& ", " & day(date()) & " de " & MesStr(month(date())) & " de "& year(date())
varHora=hour(now()) & ":"& string(2-len(minute(now())),"0") & minute(now())
%>