error me ayudan por favor

[jezus]

Eso puede ser porque a lo mejor en la base de datos el campo que almacenará la "URL" del enlace no permite longitud 0 puedes o cambiar esto para que si te admita valor nulo ó lo siguinete:


<%
Response.Buffer = true
dim cnn,rst

set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("enlaces.mdb"))
sqltext = "SELECT * FROM enlaces"
sql="select max(id) from enlaces"

rst.Open sqltext,cnn,3,3

enlace1 = Request.Form("enlace1")
enlace2 = Request.Form("enlace2")
enlace3 = Request.Form("enlace3")
enlace4 = Request.Form("enlace4")


IF enlace1 =" " THEN
enlace1="Sin Enlace"
ELSE
if enlace2="" then
enlace2="Sin Enlace"
......
End If


rst.AddNew
rst("enlace1") = enlace1
rst("enlace2") = enlace2
rst("enlace3") = enlace3
rst("enlace4") = enlace4

rst.update

Response.Write "La noticia se ha ingresado con exito"
%>
<%
rst.movelast
response.write("Identificador de articulo: " & rst("ID"))
%>