Mejorando la idea de Fr@Nc3$c0 ......
<%
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; "& "Dbq=" & Server.MapPath("busquedas.mdb")
valorBusqueda = request.form("palabra")
If ValorBusqueda = "" then
response.write " Introduce un valor "
Else
consulta="INSERT INTO Busquedas (Palabras, Fecha) VALUES ('"&valorBusqueda&"', '" &now()& "')"
Set resultado=conexion.Execute (consulta)
conexion.Close
End if
%>
Espero que te sirva... sino cualquier cosa avisa...
Saludos...