Buenas, graias por responderme
he cambiado el codigo y me sale un error distinto:
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'Execute'
/novecento/votos.asp, line 15
Te pongo ahora el codigo cambiado.
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\novecento\db\base.mdb"))
set oConn= Server.Createobject("ADODB.Recordset")
vlista=Request.Form ("lista")
isql="select * from chupitos where nombre='" & vlista &"'"
set rs = oConn.Execute (isql)
Response.Write rs.fields("nombre")%>
Esta es la pagina donde esta puesto el codigo