<%
Option Explicit
Dim conn
Dim RSVisitor
set conn = server.createobject ("adodb.connection")
conn.open "DBName", "sa", "twoje_haslo"
set RSVisitor = conn.Execute("select * from Visitors where SerialNumber = " _
  & Request.ClientCertificate("SerialNumber"))
If RSVisitor.EOF Then
  conn.execute "insert into Visitors (SerialNumber) values " _
    & Request.ClientCertificate("SerialNumber")
  Response.Redirect "./config.asp?User=" _
    & Request.ClientCertificate("SerialNumber") & "&Type=New"
Else
  Layout = RSVisitor("Layout")
  FavCat = RSVisitor("FavCat")
End If
%>
