<% Response.ExpiresAbsolute = # 10/07/1980 # Response.AddHeader "cache-control", "private" Response.AddHeader "pragma","no-cache" id_home = request("id_home") ident = Request("ident") str = "SELECT * FROM hitz WHERE id_home = " & id_home & "" set rs = conex.execute(str) hitz = RS("hitz")+1 str = "UPDATE hitz SET hitz = " & hitz & " WHERE id_home = " & id_home & "" set rs = conex.execute(str) Session(id_home) = "something" str = "SELECT * FROM hitz WHERE id_home = " & id_home & "" set rs = conex.execute(str) Counts = RS("hitz") select case len(counts) case 1 zeros = "000000" case 2 zeros = "00000" case 3 zeros = "0000" case 4 zeros = "000" case 5 zeros = "00" case 6 zeros = "0" End select %>

visitas:

<%response.write zeros & counts %>

<% 'Fechando a conecção com o DB conex.Close Set conex = Nothing %>