Pues estimado enriquer, yo a diferencia de Ysdragil sí ví varios errores.
[list=1][*]Estás asignando una consulta de actualización a un objeto Recordset de solo lectura. Para ejecutar una consulta de actualización no le tenés que asignar su resultado a nada, simplemente tenés que llamar el método Execute del objeto Connection.[*]Tu consulta INSERT está escrita en varias líneas sin utilizar el carácter de continuación de línea, o sea _, eso en asp no se puede hacer.[*]En la línea siguiente en la que ejecutás esa consulta estás tratando de abrirla (otra vez???) con un Recordset de solo lectura. Imposible que insertes nada en ninguna base de datos de esta manera[/list=1]
Para que te funcione tu código te recomiendo que lo hagas de la siguiente manera:
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("Licitaciones.mdb")
Set RS = oConn.Execute ("SELECT * FROM Licitacion_Invitacion WHERE No = '" + Request.Form("txtNo") + "'")
if not (RS.EOF) then
Response.Write("Ya existe una Licitacion con este numero, verifique que no se este repitiendo.")
else
oConn.Execute ( "INSERT INTO Licitacion_Invitacion (No, Descripcion, Año, Tipo) VALUES ('" + Request.Form("txtNo") + "', '" + Request.Form("txtDesc") + "', '" + Request.Form("txtAño") + "', '" + Request.Form("txtTipo") + "')" )
Response.Write("Se ha agregado el registro con exito.")
end if
%>
Esto debería funcionar si todos los campos son de tipo texto, en caso que haya algún campo que sea de tipo fecha o numérico habría que cambiar algunas comillas de la consulta, pero solamente eso.
Probalo y después me contás si te funcionó.
