<% response.buffer=true %>
<%
if Session("ID")="" then Session("ID")=Request.Cookies("GIUNTA")("ID")
if Session("NAME")="" then Session("NAME")=Request.Cookies("GIUNTA")("NAME")
Dim objConn
Dim mydatabase
Dim snd_nbaccess
Dim courr_nbaccess
mydatabase=server.MapPath("\database\giunta.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & mydatabase
objConn.Open
select case Session("ID")
case ""
'
case else
sql="SELECT * FROM Client WHERE ID=" & Session("ID") & " ORDER BY ID DESC;"
set RS=objConn.Execute(sql)
if RS.eof then
Session("ID")=""
Session("NAME")=""
else
RS.movefirst
snd_nbaccess=Clng(RS("fois"))+1
thedatupdate()
end if
RS.close
set RS=nothing
end select
if Session("LV")="" then Session("LV")=Request.Cookies("JGIUNTA")("MADDR")
select case Session("LV")
case ""
'
case else
sql="SELECT * FROM Courriel WHERE courriel='" & Session("LV") & "' ORDER BY ID DESC;"
set RS=objConn.Execute(sql)
if RS.eof then
Session("LV")=""
else
RS.movefirst
courr_nbaccess=Clng(RS("fois"))+1
thecourrupdate()
end if
RS.close
set RS=nothing
end select
objConn.close
set objConn=nothing
%>
Joseph Giunta artistes canadiens, peintre, collage,peinture,huile,piece unique, œuvre d’art
<%
Function thedatupdate()
if Session("theupdated")="True" then exit function
sql="UPDATE Client SET lastvisit='" & Now() & "'" &_
", fois=" & snd_nbaccess & "" &_
" where ID=" & Session("ID") & ""
objConn.Execute(sql)
Session("theupdated")="True"
end function
%>
<%
Function thecourrupdate()
if Session("thecourupdated")="True" then exit function
sql="UPDATE Courriel SET lastvisit='" & Now() & "'" &_
", fois=" & courr_nbaccess & "" &_
" where courriel='" & Session("LV") & "'"
objConn.Execute(sql)
Session("thecourupdated")="True"
end function
%>
