Mensajes de error en formularios de insersion de datos

Dina
13 de Enero del 2002
Tengo estos formularios, uno de busqueda y otro de resultados, funcionan bien , pero tengo estos problemillas que necesito k uds. me resuelvan por favor:

1- Cuando ingreso un dato no existente en la base me manda un error del sistema...( quiero configurar yo ese mensaje ej."DATO NO EXISTENTE"
2- Campos de busqueda vacios, el presionar "Enter" o boton "Submit" , tambien deseo configurar yo el mensaje ej. "DEBE LLENAR ESTE DATO"
3-Finalmente dejar algunos campos como no obligatorios , k puedan quedar vacios y continuar sin problemas.

Ojala me respondan con algun "muy claro ejemplo" pues comienzo recien en esto de ASP , trabajo en Ultradev, gracias ...
Estos son mis formularios de prueba:

BUSCADOR.ASP
<html>
<head>
<title>Buscador</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p>&nbsp;</p>
<p>&nbsp;</p>
<table width="26%" border="1">
<tr>
<td height="67" bgcolor="#CCCC33">
<form name="datos" method="get" action="resultado.asp">
<div align="center">
<input type="text" name="datos">
<input type="submit" name="Submit" value="Buscar">
</div>
</form>
</td>
</tr>
</table>
</div>
</body>
</html>


RESULTADO.ASP
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/datos.asp" -->
<%
Dim datos__MMColParam
datos__MMColParam = "1"
if (Request.QueryString("datos") <> "") then datos__MMColParam = Request.QueryString("datos")
%>
<%
set datos = Server.CreateObject("ADODB.Recordset")
datos.ActiveConnection = MM_datos_STRING
datos.Source = "SELECT * FROM informa WHERE Apellido = '" + Replace(datos__MMColParam, "'", "''") + "' ORDER BY Apellido ASC"
datos.CursorType = 0
datos.CursorLocation = 2
datos.LockType = 3
datos.Open()
datos_numRows = 0
%>
<html>
<head>
<title>RESULTADO</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p>&nbsp;</p>
<p><font face="Arial, Helvetica, sans-serif" size="3" color="#0033CC"><b>(<font color="#990000"><%=(datos.Fields.Item("Id").Value)%></font>) Numero de lista</b></font></p>
<table width="49%" border="1">
<tr>
<td width="20%" bgcolor="#FFCC00">
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Nombre:</font></div>
</td>
<td bgcolor="#99FF66"><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;&nbsp;<%=(datos.Fields.Item("Nombre").Value)%></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFCC00">
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Apellido:</font></div>
</td>
<td bgcolor="#99FF66"><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;&nbsp;<%=(datos.Fields.Item("Apellido").Value)%></font></td>
</tr>
<tr>
<td width="20%" bgcolor="#FFCC00">
<div align="right"><font face="Arial, Helvetica, sans-serif" size="2">Direccion:</font></div>
</td>
<td bgcolor="#99FF66"><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;&nbsp;<%=(datos.Fields.Item("Direccion").Value)%></font></td>
</tr>
</table>
</div>
</body>
</html>
<%
datos.Close()
%>