Ver Mensaje Individual
  #10 (permalink)  
Antiguo 12/01/2009, 11:11
Osquitar76
 
Fecha de Ingreso: enero-2009
Mensajes: 4
Antigüedad: 16 años, 2 meses
Puntos: 0
Respuesta: Fallo con el tipo de dato MEMO de access y ASP

u_goldman

Este es el código que inserta en la base de datos, no es nada del otro mundo...pero por las dudas te lo dejo:

----------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%

dim nombre, email, cuerpo, imagen, seleccion, idioma, posicion, strDSN

nombre = "'" & request.Form("nombre") & "'"
email = "'" & request.Form("email") & "'"
cuerpo = "'" & request.Form("cuerpo") & "'"
posicion = request.Form("posicion")
seleccion = "'" & request.Form("seleccion") & "'"


strDSN = "dbtlex.com.abogados"

if request.Form("imagen") = "" then
imagen = "'none'"
else
imagen = "'" & request.Form("imagen") & "'"
end if

on error resume next
set con = server.createobject("adodb.connection")
con.open strDSN

if request.Form("idioma") = "1" then
sql="insert into abogados_en (nombre, email, cuerpo, imagen, seleccion, posicion) values(" & nombre & "," & email & "," & cuerpo & "," & imagen & "," & seleccion & "," & posicion & ")"
set resp = con.execute(sql)
else
sql="insert into abogados_es (nombre, email, cuerpo, imagen, seleccion, posicion) values(" & nombre & "," & email & "," & cuerpo & "," & imagen & "," & seleccion & "," & posicion & ")"
set resp = con.execute(sql)
end if

if err.description<>"" then
response.Redirect "Error: " & err.description
else
end if

con.close
set resp= nothing

response.Redirect "panelControl_abogados.asp?idioma=" & request.Form("idioma") & "&mensaje=<b>Se agregó un nuevo abogado</b><br><br>"

%>

----------------------------------------------------------

Los parámetros pasan bien del formulario a este código...

Saludos,

Oscar