Counter

[marlem]

hi zerogiven,

meine counter.asp sie mit eingebundenem style-sheet so aus:

Code:

<!-- #include file="config.asp" -->
<link rel="stylesheet" type="text/css" href="..\style.css">
<%
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conPath
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open strConn

selSQL = "Select DerTag from tblCounter"
set rs = objConn.Execute(selSQL)

zDBTag = FormatDateTime(rs("DerTag"),2)
rs.Close
set rs = nothing

If FormatDateTime(now(), 2) <> zDBTag Then
  updSQL = "Update tblCounter set DerTag='" & FormatDateTime(now(), 2) & "', Heute=0"
  objConn.Execute(updSQL)
End If

conSQL = "Update tblCounter set Gesamt = Gesamt + 1, Heute = Heute + 1"
objConn.Execute(conSQL)

selSQL = "Select Gesamt, Heute from tblCounter"
set rs = objConn.Execute(selSQL)

zGe = rs("Gesamt")
zHe = rs("Heute")

rs.Close
set rs = nothing

objConn.Close
set objConn=nothing

<span class="NormalerText">

response.write("Heute: " & zHe & "<br>")
response.write("Gesamt: " & zGe)
</span>
%>

ist das okay so?