<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim MM_cadena_STRING MM_cadena_STRING = "PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=USR_CHATARRASYDESGUACES;PWD=zdsgdvb;DATABASE=chatarrasydesguacesmarquina;" Dim sacacont Dim sacacont_numRows Set sacacont = Server.CreateObject("ADODB.Recordset") sacacont.ActiveConnection = MM_cadena_STRING sacacont.Source = "SELECT * FROM dbo.contador" sacacont.CursorType = 0 sacacont.CursorLocation = 2 sacacont.LockType = 1 sacacont_numRows = 0 sacacont.Open() cont = cint(sacacont.fields.item("contador").value) cont = cont + 1 set SumarContador = Server.CreateObject("ADODB.Command") SumarContador.ActiveConnection = MM_cadena_STRING SumarContador.CommandText = "UPDATE dbo.contador SET contador = "&cont&"" SumarContador.CommandType = 1 SumarContador.CommandTimeout = 0 SumarContador.Prepared = true SumarContador.Execute() %> CHATARRAS Y DESGUACES MARQUINA


Bienvenido Usted es nuestro visitante nº<%=cont%>