© Copyright CHT - Casa Hawaio Takata- all rights reserved
Você é o visitante nº
<%
'declaro as variaveis
Dim conexao, strSQL, rsSQL, strINS, rsINS, id, strSQL1, rsSQL1, strSQL2, rsSQL2, visitas
'me conecto ao bd
set conexao = createobject("adodb.connection")
conexao.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("coluna.mdb")
'seleciono todos os registros do bd
strSQL = "SELECT * FROM contador"
Set rsSQL = conexao.Execute(strSQL)
'vejo se o select retornou algum resultado
If rsSQL.EOF Then
'se nao retornou insiro um novo registro no bd com a primeira visita
strINS = "INSERT into contador "
strINS = strINS & "(visitas)"
strINS = strINS & "VALUES ('1')"
Set rsINS = conexao.Execute(strINS)
'se nao adiciono mais uma visita somente
Else
'somo mais uma visita
visitas = Int(rsSQL("visitas")) + 1
'faco o update
strSQL1 = "UPDATE contador SET "
strSQL1 = strSQL1 & "visitas = '" & visitas & "'"
Set rsSQL1 = conexao.Execute(strSQL1)
End If
strSQL2 = "SELECT * FROM contador"
Set rsSQL2 = conexao.Execute(strSQL2)
%>
<% = rsSQL2("visitas") %>
/ Agora
<% =application("activevisitors") %>
visitantes Online / Alan Moreno - Design By
