Contador

[Garet]

<%@ Language=VBScript %>
<% Option Explicit %>
<%Response.Redirect "index2.asp"%>
<!--#include file="adovbs.inc"-->
<!--#include file="ConectarBD.asp"-->
<%
Dim objRS
Set objRS=Server.CreateObject("ADODB.Recordset&qu ot;)
objRS.Open "contador", objConn, , adLockOptimistic, adCmdTable

IF Session("Contador")="YA" then
Response.Redirect "index2.asp"
End If

Dim dtDia, iDia, dtMes, iMes, dtAnio, iAnio, strUser, strFecha, bolVacio

dtDia=DatePart("d" ,Date)
iDia=dtDia
dtMes=DatePart("m" ,Date)
iMes=dtMes
dtAnio=DatePart("yyyy" ,Date)

If Session("Nick")="" then
strUser="Anonimo"
else
strUser=Session("Nick")
End If

bolVacio=False

If objRS("Dia")="" then
objRS.addNew
objRS("Dia")=iDia
objRS("Mes")=iMes
objRS("Anio")=iAnio
objRS("Numero")="1"
objRS("Usuario")=strUser
objRS.Update
Session("Contador")="YA"
bolVacio=True
End If

objRS.Close
Set objRS=Nothing

Dim strSQL
strSQL="UPDATE Contador SET Numero=Numero+1"

Dim objRSA
Set objRSA=Server.CreateObject("ADODB.Recordset&q uot;)
objRSA.Open strSQL, objConn, , adLockOptimistic, adCmdTable

If Not objRSA("Dia")=iDia then
objRSA.addNew
objRSA("Dia")=iDia
objRSA("Mes")=iMes
objRSA("Anio")=iAnio
objRSA("Usuario")=strUser
objRSA.Update
bolVacio=True
Session("Contador")="YA"
End if

Dim iSuma, iNumero, il

If bolVacio=True then
Response.Redirect "index2.asp"
else
objRSA.Delete
objRSA.addNew
objRSA("Dia")=iDia
objRSA("Mes")=iMes
objRSA("Anio")=iAnio
objRSA("Usuario")=strUser
objRSA.Update
Session("Contador")="YA"
Response.Redirect "index2.asp"
End if

objRSA.Close
Set objRSA=Nothing

objConn.Close
Set objConn=Nothing
%>