<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"
http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
</head>
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
' Configura aquí tu db
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("servicios.mdb"))
strSQL = "select rut,nombre,estado from clientes where rut = '"& Request.Form("rut") &"'"
Set objRS = oConn.Execute(strSQL)
if (objRS.Eof) then
strSQL = "insert into clientes (rut, nombre, estado) values ('"& Request.Form("rut") & "' , '"& Request.Form("nombre") & "' , '"& Request.Form("estado") & "')"
oConn.Execute(strSQL)
Response.Redirect("index.asp")
else
Response.Write("Ya existe un usuario con ese nombre, vuelva al <a href=a.htmls>formulario</a>")
end if
%>
<body>
</body>
</html>
***pero aun no me funciona
y le di permisos solo de lectura y escritura a la carpeta wwwroot
pero aun no pasa nada!!!
que sera
