<% Dim oConn, RS, Ssql, TGO, Cont, CIV, strConn Cont = 0 Set oConn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.RecordSet") ' strConn = "Microsoft.Jet.OLEDB.4.0;Data Source=D:\Domains\red.com.ve\db\red.mdb;User ID=;Password=;" oConn.open "DSN=red2007" ssql = "Select * from contador" rs.open ssql, oConn Cont = (rs.fields("ContRed")) + 1 TGO = (rs.fields("ContTGO")) CIV = (rs.fields("ContCIV")) rs.close ssql = "Update contador set ContRed = " & cont rs.open sSql, oConn oConn.Close Set oConn = Nothing Set rs = Nothing %> Pagina nueva 5

Cámara Inmobiliaria de Venezuela <%'Response.write(CIV)%>

<%'Response.write(TGO)%>

 Desde Junio 2007, usted es el visitante Nº: <%Response.write(Cont)%>