<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Bragi","",""
SQLTxt = "SELECT * FROM Counter"
Set RS = Con.Execute(SQLTxt)
Ct = RS(1) + 1
SQLTxt = "UPDATE Counter Set HitNo = " & Ct
Nol = Len(Ct)
Nol = 5 - Nol
If Nol = 0 Then Nol=1 End if
For I = 1 To Nol
X = Cstr(X) + "0"
Next
Ct = Cstr(X) + Cstr(Ct)
RS = Con.Execute(SQLTxt)
%>
BRAGI - Band
:
Since
Februari 2000
Please
send comments, feedback, and suggestions to [email protected]
About Webmaster
- Last update on 16/02/2000.
:
