Datepart

[Mizushi]

Scusate perchè questa condizione prevista in una query di mysql non funziona?:

datetosearch = dateadd("d",-1,date())
datetosearch2 = dateadd("m",-1,date())


sql="select.... where datepart('d',visitdate)="& datepart("d",datetosearch)&" AND datepart('m',visitdate)="&datepart("m",datetosearc h)&" AND datepart('yyyy',visitdate)="&datepart("yyyy",datet osearch)&")"

[Mizushi]

Praticamente la uso all'interno di un global.asa che si collega ad un db mysql, ma non va:

<script LANGUAGE="VBScript" RUNAT="Server"> 

Sub Application_OnStart
strConn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=db;USER=root;PASSWORD=adi;OPTION=3;"
application("users") = 0 
Application("dbconn") = strConn 
application.unlock 
End Sub 
 
Sub Application_OnEnd 
End Sub
 
Sub Session_OnStart 
Session("start") = Now
session.timeout = 1 

set objconnvisite=Server.createobject("ADODB.Connection") 
objconnvisite.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=db;USER=root;PASSWORD=adi;OPTION=3;"
Set objrsvisite = Server.CreateObject("ADODB.Recordset") 
objconnvisite.Open 
oggi=date() 
ipvisit=request.servervariables("remote_addr")

'SQL quando data=oggi e l'ip è nuovo

strSQL="SELECT * FROM tbl_sessioni WHERE datepart('yyyy',visitdate)="&datepart("yyyy",oggi)&" AND datepart('m',visitdate)="&datepart("m",oggi)&" AND datepart('d',visitdate)="&datepart("d",oggi)&" AND visitorIP='"&ipvisit&"'"

objrsvisite.Open strSQL, objconnvisite, 3, 3 
if (objrsvisite.EOF OR objrsvisite.BOF) then 

'prima sessione odierna dell'ip ipvisit 
objrsvisite.addnew 
objrsvisite("visitdate")=oggi 
objrsvisite("visitorip")=ipvisit 
end if 
objrsvisite("visitorcount")=objrsvisite("visitorcount")+1 
objrsvisite.update
objrsvisite.Close 
Set objrsvisite = Nothing 
objconnvisite.Close 
Set objconnvisite = Nothing
 
application.lock 
application("users")=cint(application("users"))+1
application.unlock 
End Sub 

Sub Session_OnEnd

vecchio = "" 
application.lock 
vecchio = Session("utente") & "#^#" & session("id")&"|"
if instr(mid(application("utente"), instr(application("utente"), "#^#")+3), "#^#") >  0 then
Application("Utente") = replace(Application("Utente"), vecchio, "")     
else
Application("Utente") = ""   
end if
	
application("users")=cint(application("users"))-1
Application.UnLock

End Sub 
  
</script>

Dà sempre -1 come utenti connessi....

[santino83]

mysql non usa datepart per le DATE: http://dev.mysql.com/doc/refman/5.0/...functions.html

[Mizushi]

ti ringrazio ma ho datto una lettura al link, non ci ho capito nulla... come sostituisco datepart in mysql ?

[Mizushi]

ho scritto così ma è sempre 0...

oggi=date() 
ipvisit=request.servervariables("remote_addr")

'SQL quando data=oggi e l'ip è nuovo 
strSQL="SELECT * FROM tbl_sessioni WHERE year(visitdate)="&year(oggi)&" AND month(visitdate)="&month(oggi)&" AND day(visitdate)="&day(oggi)&" AND visitorIP='"&ipvisit&"'"
objrsvisite.Open strSQL, objconnvisite, 3, 3

if (objrsvisite.EOF OR objrsvisite.BOF) then 

'prima sessione odierna dell'ip ipvisit 
objrsvisite.addnew 
objrsvisite("visitdate")=oggi 
objrsvisite("visitorip")=ipvisit 
end if 
objrsvisite("visitorcount")=objrsvisite("visitorcount")+1 
objrsvisite.update
objrsvisite.Close 
Set objrsvisite = Nothing 
objconnvisite.Close 
Set objconnvisite = Nothing

[Mizushi]

Originariamente inviato da Mizushi
ho scritto così ma dice:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E31)
[MySQL][ODBC 3.51 Driver][mysqld-5.0.21-community-nt]Field 'VisitID' doesn't have a default value

oggi=date() 
ipvisit=request.servervariables("remote_addr")

'SQL quando data=oggi e l'ip è nuovo 
strSQL="SELECT * FROM tbl_sessioni WHERE year(visitdate)="&year(oggi)&" AND month(visitdate)="&month(oggi)&" AND day(visitdate)="&day(oggi)&" AND visitorIP='"&ipvisit&"'"
objrsvisite.Open strSQL, objconnvisite, 3, 3

if (objrsvisite.EOF OR objrsvisite.BOF) then 

'prima sessione odierna dell'ip ipvisit 
objrsvisite.addnew 
objrsvisite("visitdate")=oggi 
objrsvisite("visitorip")=ipvisit 
end if 
objrsvisite("visitorcount")=objrsvisite("visitorcount")+1 
objrsvisite.update
objrsvisite.Close 
Set objrsvisite = Nothing 
objconnvisite.Close 
Set objconnvisite = Nothing

[optime]

a parte l'errore... ma invece di dire anno(data)=anno(oggi) E mese(data)=mese(oggi) E giorno(data)=giorno(oggi) non fai prima a dire... DATA=OGGI ????

[Mizushi]

Originariamente inviato da optime
a parte l'errore... ma invece di dire anno(data)=anno(oggi) E mese(data)=mese(oggi) E giorno(data)=giorno(oggi) non fai prima a dire... DATA=OGGI ????

strSQL="SELECT * FROM tbl_sessioni WHERE visitdate="&oggi&" AND visitorIP='"&ipvisit&"'"

Dici questo? L'errore persiste...

[optime]

nell'errore si parla di VisitId... che nella query non viene coinvolto... non è che l'errore te lo dà da un'altra parte? su .addnew per esempio?

[Mizushi]

AddNew non è supportato da MYSql? Devo eseguire una query insert o cosa ? :master:

e poi scusa un'altra cosa perchè le query select sum in mysql non riesco a farle funzionare?:

Set objRS = objConn.Execute("SELECT sum(visitorcount) from tbl_sessioni as tot")
tot = objRS("tot")
response.write tot &"
"

dà errore quando richiamo l'alias.