<%
var1=now()
ano=DatePart("yyyy", var1)
mes=DatePart("m", var1)
sqlrs3="select * from estadistica where usuario='Calzado Complot' and pagina='home' and mes='" & mes & "' and ano='" & ano & "'"
set rs3=Server.CreateObject("ADODB.Recordset")
rs3.Open sqlrs3, conn, 2, 2
if not rs3.eof then
If InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") Then
msie=rs3.fields("msie")
msie2=msie + 1
rs3.fields("msie")=msie2
ElseIf InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Mozilla") Then
mozilla=rs3.fields("mozilla")
mozilla2=mozilla+ 1
rs3.fields("mozilla")=mozilla2
Else
otros=rs3.fields("otros")
otros2=otros+ 1
rs3.fields("otros")=otros2
End If
hits=rs3.fields("hits")
hits2=hits + 1
rs3.fields("hits")=hits2
rs3.update
else
sqlrs3="select * from estadistica"
set rs3=Server.CreateObject("ADODB.Recordset")
rs3.Open sqlrs3, conn, 2, 2
rs3.addnew
rs3.fields("usuario")="Calzado Complot"
rs3.fields("pagina")="home"
If InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") Then
rs3.fields("msie")=1
rs3.fields("mozilla")=0
rs3.fields("otros")=0
elseif InStr(Request.ServerVariables("HTTP_USER_AGENT"),"Mozilla") Then
rs3.fields("msie")=0
rs3.fields("mozilla")=1
rs3.fields("otros")=0
else
rs3.fields("msie")=0
rs3.fields("mozilla")=0
rs3.fields("otros")=1
end if
rs3.fields("hits")=1
rs3.fields("mes")=mes
rs3.fields("ano")=ano
rs3.update
end if
%>
Calzado Complot
