<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!-- #include FILE="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<%
strNombre = cStr(Request.Form("txtnombre"))
strDireccion = cStr(Request.Form("txtdireccion"))
strTelefono = cStr(Request.Form("txttelefono"))
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open"Contactos","DSN=Ejemplo;UID=examples;Pass word=;", adOpenKeyset, adLockPessimistic, adCmdTable
oRs.AddNew
oRS.Fields("nombre") = strNombre
oRS.Fields("direccion") = strDireccion
oRS.Fields("telefono") = strTelefono
oRS.Update
oRS.Close
Set oRS = Nothing
%>
<P>
<FONT SIZE=8>Gracias Por Registrarse</FONT>
<br>
<br>
<a href="consulta.asp">Ver Datos</a><P></BODY>
</HTML>