Counter
#7
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?
  Zitieren


Nachrichten in diesem Thema
Counter - von Zerogiven - 26.10.2003, 16:14
[Kein Betreff] - von marlem - 26.10.2003, 16:32
[Kein Betreff] - von kickedINtheHEAD - 26.10.2003, 17:31
[Kein Betreff] - von marlem - 26.10.2003, 19:17
[Kein Betreff] - von kickedINtheHEAD - 26.10.2003, 19:44
[Kein Betreff] - von Zerogiven - 26.10.2003, 22:31
[Kein Betreff] - von marlem - 27.10.2003, 07:40
[Kein Betreff] - von marlem - 27.10.2003, 07:55
[Kein Betreff] - von Nata - 27.10.2003, 08:33
[Kein Betreff] - von Zerogiven - 27.10.2003, 09:43
[Kein Betreff] - von marlem - 27.10.2003, 10:42
[Kein Betreff] - von Zerogiven - 27.10.2003, 11:08
[Kein Betreff] - von marlem - 27.10.2003, 13:27
[Kein Betreff] - von Nata - 27.10.2003, 14:33
[Kein Betreff] - von Zerogiven - 27.10.2003, 14:42
[Kein Betreff] - von Nata - 27.10.2003, 15:15
[Kein Betreff] - von kickedINtheHEAD - 27.10.2003, 16:40

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste