ERROR: Pocos parámetros. Se esperaba 1

[i_e_s27]

Puede que me equivoque, pero creo que el problema estan en que repites dos veces esto:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("base.mdb")

EDIT: Osea, si el primer if es true, tienes que cerrar todo e igualar a Nothing. O poner esas lineas de conexion una sola y unica vez al comienzo.

Saludos!