
12/01/2009, 11:11
|
| | 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 |