Estoy haciendo un contador pero no puedo conseguir que me coja la fecha.
¿Como se podria hacer?
24/08/2002, 06:50
| |||
| |||
| Re: Contador <%@ 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 %> |
|
24/08/2002, 07:16
| |||
| |||
| Re: Contador Imagino que tu problema esta aqui:strSQL="UPDATE Contador SET Numero=Numero+1" Debieras cambiarla por esta linea strSQL="UPDATE Contador SET Numero="& Numero+1&" " Espero pueda servirte Saludos Kaki |
