encontr el codigo en una pagina yh pues no jala pero lo cheque parese que no esta mal pero varios vn mejor que uno que podra ser por lo que esta fallando el codigo es para un libro de visistas gracias
<html>
<head>
<title>
WWW.ELGURUPROGRAMADOR.COM.AR</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
If Request.Form <> "" Then
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("afiliados.mdb"))
TBL.Open "Afiliados" ,DB, 1, 2
TBL.AddNew
TBL("Nombre") = Request.Form("Nombre")
TBL("Apellido") = Request.Form("Apellido")
TBL("Pais") = Request.Form("Pais")
TBL.Update
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
Response.Write "Se a agregado con exito"
else
%>
<form name="form1" method="post" action="agregar.asp">
<p> Nombre
<input type="text" name="Nombre" maxlength="50">
</p>
<p> Apellido
<input type="text" name="Apellido" maxlength="50">
</p>
<p> Pais
<input type="text" name="Pais" maxlength="50">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<%
End If
%>
</body>
</html>