<%for each v_entrada in request.form for indice=1 to request.form(v_entrada).count if request.form(v_entrada)(indice) = "" then mal=1%>
<font color="#FF00FF">El campo <%=v_entrada%> no puede estar vacio</font>
<br>
<%end if nextnext if mal <> 1 then Set Conna = Server.CreateObject("ADODB.Connection") Conna.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("postales.mdb")) set rs=createobject("ADODB.Recordset")sqltxt ="SELECT * from postales where id="&request.form("id")rs.open sqltxt,connaurl=rs("url")rs.closeset rs=nothing 'nota: la cadena de conexión debe de ir en una sola línea, aqui esta cortada por diseño%>
