<% Response.CharSet = "utf-8" %>
Gestion de mercadillos
<%
Dim NumeAleatorio
NumeAleatorio=REQUEST.FORM("num")
Dim conexion, registros, Resultado2,basedatos, NumeroArticulo
basedatos = Server.MapPath("abaco\ArtiWeb.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
NumeroArticulo=70
Set registros = conexion.Execute("SELECT * FROM Precios WHERE Precios.NumeArticulo =" & NumeroArticulo & "")
%>
<%
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>
