error me ayudan por favor

hugorei · #1 (**permalink**) 11/10/2003, 22:08

Desde un formulario estoy intentando llenar una tabla con direcciones de enlaces para luego mostrar dichas direcciones en una página , el tema es que tiene 4 campos para pasar enlaces , mientras los llenos todos todo bien pero cuando dejo de llenar uno me sale un error de string que no puede ser 0 , como soluciono esto ? ya que puedo tener enlaces indistintos es decir un dia puedo llenar 3 otro dia 1 etc .

les paso el codigo

%
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")

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"))
%>

<html>

<head>
<title>Página nueva </title>
</head>

<body>
</body>
</html>

Owen-Bonilla · #2 (**permalink**) 12/10/2003, 11:15

Uhiii.. tengo muchisimo sin programar en ASP...
Pero segun recuerdo, para evitar problemas de este hacia lo siguiente:

1.- El TIPO del campo donde guardas el registro lo hacia de tipo MEMO, así sí no se Ingresaba nada no habia problemas.

ó

2.- Crea una condición antes de que se ejecuten las lineas que guardan el registro.
Esa condición seria algo como esto:

Cita:

IF CAMPO =" " THEN
Campo_En_BD="Sin Enlace"
ELSE
' lineas que guardan la información
End If

Espero explicarme si no, aquí andamos.

Saludos Amigos.... He regresado !!!

jejeje

jezus · #3 (**permalink**) 02/11/2003, 19:08

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"))
%>