|
|
 |
|
|
|
Bienvenue |
Herzlich Willkommen |
Welcome |
 |
 |
 |
|
Willi
Röthenmund |
Trompetenforum |
Zuger
Trompetentrio |
|
|
|
|
|
<%
SQL_String = "SELECT * FROM T_Counter WHERE tName = '" & "Counter" & "';"
set rsCounterDB = AgendaDB.Execute(SQL_String)
strBesucher = rsCounterDB("tID")
If session("IPADRESS") = "" then
session("IPADRESS") = request("REMOTE_HOST")
SQL_String = "UPDATE T_Counter SET tID = " & strBesucher + 1 & " WHERE tName = '" & "Counter" & "';"
set rsCounterDB = AgendaDB.Execute(SQL_String)
Else
If session("IPADRESS") <> request("REMOTE_HOST") then
session("IPADRESS") = request("REMOTE_HOST")
SQL_String = "UPDATE T_Counter SET tID = " & strBesucher + 1 & " WHERE tName = '" & "Counter" & "';"
set rsCounterDB = AgendaDB.Execute(SQL_String)
End If
End If
SQL_String = "SELECT * FROM T_Counter WHERE tName = '" & "Counter" & "';"
set rsCounterDB = AgendaDB.Execute(SQL_String)
strBesucher = rsCounterDB("tID")
%>
| <% = strBesucher %> |
<%
rsCounterDB.close
AgendaDB.close
%>
|