Conectar formulario validado con base access

Patricio
24 de Enero del 2002
Hoal:

Tengo este formulario con campos validados que funciona bien, pero no he podido vincularlo a mi base access, cuando lo hago pierde sus caracteristicas de mensajes de error, en resumen o funciona la base o los mensajes de error....uffff, envio el codigo para que lo intervenga un alma caritativa y me saque este clavo...gracias.

<%
const numFields = 9
dim errorArray()
redim preserve errorArray(numFields)


if request.form("isSubmitted") = "yes" then
first_name = request.form("first_name")
last_name = request.form("last_name")
address = request.form("address")
city = request.form("city")
telephone = request.form("telephone")
email = request.form("email")


ErrorMsg = ""
dim re, results
set re = New RegExp


'First Name
re.Pattern = "^[^0-9/><.,\!^$*[email protected]#%&();:[]{}=""']+$"
re.Global = True
re.IgnoreCase = True
results = re.Test(first_name)
if results then
errorArray(0) = "False"
else
errorArray(0) = "True"
ErrorMsg = "Falta First Name<br>"
end if


'Last Name
if Len(last_name) = 0 then
errorArray(1) = "True"
ErrorMsg = ErrorMsg & "Falta Last Name<br>"
end if



'Telephone
re.Pattern = "^d{3}-d{4}$"
results = re.Test(telephone)
if results then
errorArray(7) = "False"
else
errorArray(7) = "True"
ErrorMsg = ErrorMsg & "Falta Telephone Number<br>"
end if


'Email
re.Pattern = "^[email protected]+.w+"
results = re.Test(email)
if results then
errorArray(8) = "False"
else
errorArray(8) = "True"
ErrorMsg = ErrorMsg & "Falta Email <br>"
end if
end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Form Field Validation Sample</title>
</head>
<body>
<% if ErrorMsg <> "" then %>
<font color="red" size="3"><b>
<%= ErrorMsg %>
</font><br>
<% end if %>
<form name="sample1" method="post">

<table width="50%" cellspacing="1" cellpadding="0" border="0">
<tr>
<td>
<% if errorArray(0) = "True" then %>
<font color="red"><b>
<% end if %>
</b> <b><font color="#000000" face="Arial, Helvetica, sans-serif" size="2">First
Name:</font>
<% if errorArray(0) = "True" then %>
</b></font>
<% end if %>
</td>
<td>
<input name="first_name"
size="25"
maxlength="50"
value="<%= first_name %>">
</td>
</tr>
<tr>
<td>
<% if errorArray(1) = "True" then %>
<font color="red"><b>
<% end if %>
</b> <font size="2"><b><font color="#000000" face="Arial, Helvetica, sans-serif">Last
Name:</font></b></font><b>
<% if errorArray(1) = "True" then %>
</b></font>
<% end if %>
</td>
<td>
<input name="last_name"
size="25"
maxlength="50"
value="<%= last_name %>">
</td>
</tr>

<tr>
<td><font face="Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Address:</b></font></td>
<td>
<input name="address"
size="35"
maxlength="100"
value="<%= address %>">
</td>
</tr>

<tr>
<td>
<% if errorArray(7) = "True" then %>
<font color="red"><b>
<% end if %>
<font color="#000000" size="2" face="Arial, Helvetica, sans-serif">Telephone.:</font>
<% if errorArray(7) = "True" then %>
</b></font>
<% end if %>
</td>
<td>
<input name="telephone" value="<%= telephone %>">
</td>
</tr>
<tr>
<td>
<% if errorArray(8) = "True" then %>
<font color="red"><b>
<% end if %>
<font color="#000000" size="2" face="Arial, Helvetica, sans-serif">Email
:</font>
<% if errorArray(8) = "True" then %>
</b></font>
<% end if %>
</td>
<td>
<input name="email" value="<%= email %>">
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" value="Ingresar">
<input type="hidden" name="isSubmitted" value="yes">
</td>
</tr>
</table>
</form>
</body>
</html>