Eres la visita número:
<%
Dim variable
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/Escritura/ofiserma.mdb")
sql = "SELECT * FROM Contadores WHERE tipo = 'inicial'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.LockType = 3
RS.Open sql, oConn
if Session("visitado")="" then
variable=(RS.Fields.Item("visitas").Value)
variable=variable+1
Response.Write variable
RS.Fields.Item("visitas").Value=variable
RS.Update
Session("visitado")=TRUE
else
Response.Write RS.Fields.Item("visitas").Value
end if
Rs.Close
oConn.Close
%>
FAX CANON y SAMSUNG
JX-210P --- fax inyección de tinta - velocidad del fax 6ppm - 100 hojas - 14.400 kbps
76,00
JX-510P --- fax inyección de tinta - velocidad del fax 6ppm - 100 hojas 33.600 kbps
116,00
L-140 --- fax/copiadora láser- copia hasta 16ppm - 200 hojas
231,00
FAX SAMSUMG SF-370/XEC --- fax - inyección
73,50
FAX LASER SF 560R/XEC- 16 PPM - 250 HOJAS
160,50
IVA 16 % No incluido
Precios y modelos sujetos a variación, válidos salvo error u omisión.
