Código:
<% Set cons=Server.CreateObject("ADODB.connection") Cons.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/xxx.mdb")&";" Set Rss=Server.CreateObject("ADODB.RecordSet") nombre = Request.Form("nombre") apellidos = Request.Form("apellidos") provincia = Request.Form("provincia") telefono = Request.Form("telefono") email = Request.Form("email") ssqls="select * from tabla" Rss.Open Ssqls,Cons,1,2 %> <% if nombre="" or apellidos="" or provincia="" or telefono="" or email=""then error = "<font face=verdana size=1>Debe completar todos los datos <BR><a href=javascript:history.back(1)>Volver Atrás</a>" Response.write error end if