<%
Response.Expires = -1 'asp altijd opnieuw van de server laten komen
Response.Buffer = true 'asp in een keer laten zien
if Session("xres") > " " then
Response.end
end if
%>
<%
Session("browser") = ""
if Request.Querystring("versie") > " " then
Session("versie") = Request.Querystring("versie")
end if
if Request.Querystring("xres") > " " then
Session("xres") = Request.Querystring("xres")
end if
if Request.Querystring("yres") > " " then
Session("yres") = Request.Querystring("yres")
end if
if Request.Querystring("browser") > " " then
Session("browser") = Request.Querystring("browser")
if Session("BEZOEKERID") > 0 then
DATABASE_OPEN
statement = "UPDATE bezoekers SET " & _
"browserversie = '" & LEFT((Session("browser") & "-" & Session("versie")), 50) & "'" & _
", resolutie = '" & Session("xres") & "x" & Session("yres") & "'" & _
" WHERE bezoekerID = " & Session("BEZOEKERID")
controlestatement = statement
%><%
oConn.Execute statement
DATABASE_CLOSE
end if
end if
%><%
if Session("xres") > " " then
Response.end
end if
%>
<% Response.write Session("SITE-NAAM") %>