sql no es lo mio AYUDA

22/10/2004 - 10:48 por atienzar8 | Informe spam
El campo publicidad contiene 6 apartados que vienen definidos arriba no
tengo ni idea de sql ni nada
y me ha venido este marron, os paso el codigo completo por si me podeis
echar un cable. millones de gracias.
<%
IF request.form("Boton")="Enviar" then

NOMBRE=request.form("NOMBRE")
DNI=request.form("DNI")
PAIS=request.form("PAIS")
TITULACION=request.form("TITULACION")
DOMICILIO=request.form("DOMICILIO")
CP=request.form("CP")
LOCALIDAD=request.form("LOCALIDAD")
PROVINCIA=request.form("PROVINCIA")
TELEFONO=request.form("TELEFONO")
if isnull(telefono) or telefono="" then telefono="Ninguno"
FAX=request.form("FAX")
if isnull(fax) or fax="" then fax="Ninguno"
EMAIL=request.form("EMAIL")
CENTRO=request.form("CENTRO")
if isnull(centro) or centro="" then centro="Ninguno"
PUESTO=request.form("PUESTO")
if isnull(puesto) or puesto="" then puesto="Ninguno"
DIRECTRABAJO=request.form("DIRECTRABAJO")
if isnull(directrabajo) or directrabajo="" then directrabajo="Ninguno"
OBSERVACIONES=request.form("OBSERVACIONES")
if isnull(observaciones) or observaciones="" then observaciones="Ninguno"
FECHA_NAC=request.form("FECHA_NAC")

PUBLICIDAD=""
if request.form("pub_directa")="ON" then
PUBLICIDAD= PUBLICIDAD & "Publicidad directa. "
end if
if request.form("pub_prensa")="ON" then
PUBLICIDAD= PUBLICIDAD & "Anuncio en prensa. "
end if
if request.form("pub_lista")="ON" then
PUBLICIDAD= PUBLICIDAD & "Lista de distribución electronica. "
end if
if request.form("pub_internet")="ON" then
PUBLICIDAD= PUBLICIDAD & "Internet. "
end if
if request.form("pub_congresos")="ON" then
PUBLICIDAD= PUBLICIDAD & "Congresos o Jornadas. "
end if
PUBLICIDAD=PUBLICIDAD & request.form("pub_otros")

MASTER=request.form("MASTER")
if master="ON" then
master=-1
else
master=0
end if

ESPECIALISTA=request.form("ESPECIALISTA")
if especialista="ON" then
especialista=-1
else
especialista=0
end if

DISENOP=request.form("DISENOP")
if disenop="ON" then
disenop=-1
else
disenop=0
end if

ACTIV=request.form("ACTIV")
if activ="ON" then
activ=-1
else
activ=0
end if

MONITOR=request.form("MONITOR")
if monitor="ON" then
monitor=-1
else
monitor=0
end if

DISENOH=request.form("DISENOH")
if disenoh="ON" then
disenoh=-1
else
disenoh=0
end if

PARTI=request.form("PARTI")
if parti="ON" then
parti=-1
else
parti=0
end if
EXTERNO=request.form("EXTERNO")
if externo="ON" then
externo=-1
else
externo=0
end if

set conexion=Server.CreateObject("ADOdb.Connection")
set rs = Server.CreateObject("ADOdb.RecordSet")
conexion.Open"DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" &
Server.Mappath("solicitudes.mdb")

sql ="insert into
lista(nombre,apellidos,dni,pais,titulacion,domicilio,cp,localidad,provincia,
telefono,fax,email,"
sql = sql &
"centro,puesto,directrabajo,master,especialista,disenyo,activ,monitor,
disenoh,parti,externo,observaciones,fecha_nac,publicidad) "
sql = sql & " values('"
sql = sql & nombre & "','"
sql = sql & request.form("apellidos") & "','"
sql = sql & dni & "','"
sql = sql & pais & "','"
sql = sql & titulacion & "','"
sql = sql & domicilio & "','"
sql = sql & cp & "','"
sql = sql & localidad & "','"
sql = sql & provincia & "','"
sql = sql & telefono & "','"
sql = sql & fax & "','"
sql = sql & email & "','"
sql = sql & centro & "','"
sql = sql & puesto & "','"
sql = sql & directrabajo & "','"
sql = sql & master & "','"
sql = sql & especialista & "','"
sql = sql & disenop & "','"
sql = sql & activ & "','"
sql = sql & monitor & "','"
sql = sql & disenoh & "','"
sql = sql & parti & "','"
sql = sql & externo & "','"
sql = sql & observaciones & "','"
sql = sql & FECHA_NAC & "','"
sql = sql & PUBLICIDAD & "')"

set ra=conexion.execute(sql)

end if
%>

Preguntas similare

Leer las respuestas

#1 Sashka
22/10/2004 - 18:15 | Informe spam
¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Si el problema es el mismo que planteaste en el hilo "Otro error del
formulario"
Primero "ra" no está definido en ninguna parte (set
ra=conexion.execute(sql))... me imagino que es un error de dedo y que te
refieres a rs, bueno una instrucción insert no devuelve recordset alguno
asi que está de más bastaría con pongas conexion.execute(sql) Pero
para resolver tu problema... te aconsejo que comentes esa línea y hagas un
response.write sql de ese modo podrás verificar la cadena que estás
generando y ver que variables no tienen valor...


Sashka
MS MVP Access
MCP ASP.Net

"Signa" escribió en el mensaje
news:
El campo publicidad contiene 6 apartados que vienen definidos arriba no
tengo ni idea de sql ni nada
y me ha venido este marron, os paso el codigo completo por si me podeis
echar un cable. millones de gracias.
<%
IF request.form("Boton")="Enviar" then

NOMBRE=request.form("NOMBRE")
DNI=request.form("DNI")
PAIS=request.form("PAIS")
TITULACION=request.form("TITULACION")
DOMICILIO=request.form("DOMICILIO")
CP=request.form("CP")
LOCALIDAD=request.form("LOCALIDAD")
PROVINCIA=request.form("PROVINCIA")
TELEFONO=request.form("TELEFONO")
if isnull(telefono) or telefono="" then telefono="Ninguno"
FAX=request.form("FAX")
if isnull(fax) or fax="" then fax="Ninguno"
EMAIL=request.form("EMAIL")
CENTRO=request.form("CENTRO")
if isnull(centro) or centro="" then centro="Ninguno"
PUESTO=request.form("PUESTO")
if isnull(puesto) or puesto="" then puesto="Ninguno"
DIRECTRABAJO=request.form("DIRECTRABAJO")
if isnull(directrabajo) or directrabajo="" then directrabajo="Ninguno"
OBSERVACIONES=request.form("OBSERVACIONES")
if isnull(observaciones) or observaciones="" then observaciones="Ninguno"
FECHA_NAC=request.form("FECHA_NAC")

PUBLICIDAD=""
if request.form("pub_directa")="ON" then
PUBLICIDAD= PUBLICIDAD & "Publicidad directa. "
end if
if request.form("pub_prensa")="ON" then
PUBLICIDAD= PUBLICIDAD & "Anuncio en prensa. "
end if
if request.form("pub_lista")="ON" then
PUBLICIDAD= PUBLICIDAD & "Lista de distribución electronica. "
end if
if request.form("pub_internet")="ON" then
PUBLICIDAD= PUBLICIDAD & "Internet. "
end if
if request.form("pub_congresos")="ON" then
PUBLICIDAD= PUBLICIDAD & "Congresos o Jornadas. "
end if
PUBLICIDAD=PUBLICIDAD & request.form("pub_otros")

MASTER=request.form("MASTER")
if master="ON" then
master=-1
else
master=0
end if

ESPECIALISTA=request.form("ESPECIALISTA")
if especialista="ON" then
especialista=-1
else
especialista=0
end if

DISENOP=request.form("DISENOP")
if disenop="ON" then
disenop=-1
else
disenop=0
end if

ACTIV=request.form("ACTIV")
if activ="ON" then
activ=-1
else
activ=0
end if

MONITOR=request.form("MONITOR")
if monitor="ON" then
monitor=-1
else
monitor=0
end if

DISENOH=request.form("DISENOH")
if disenoh="ON" then
disenoh=-1
else
disenoh=0
end if

PARTI=request.form("PARTI")
if parti="ON" then
parti=-1
else
parti=0
end if
EXTERNO=request.form("EXTERNO")
if externo="ON" then
externo=-1
else
externo=0
end if

set conexion=Server.CreateObject("ADOdb.Connection")
set rs = Server.CreateObject("ADOdb.RecordSet")
conexion.Open"DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" &
Server.Mappath("solicitudes.mdb")

sql ="insert into
lista(nombre,apellidos,dni,pais,titulacion,domicilio,cp,localidad,provincia,
telefono,fax,email,"
sql = sql &
"centro,puesto,directrabajo,master,especialista,disenyo,activ,monitor,
disenoh,parti,externo,observaciones,fecha_nac,publicidad) "
sql = sql & " values('"
sql = sql & nombre & "','"
sql = sql & request.form("apellidos") & "','"
sql = sql & dni & "','"
sql = sql & pais & "','"
sql = sql & titulacion & "','"
sql = sql & domicilio & "','"
sql = sql & cp & "','"
sql = sql & localidad & "','"
sql = sql & provincia & "','"
sql = sql & telefono & "','"
sql = sql & fax & "','"
sql = sql & email & "','"
sql = sql & centro & "','"
sql = sql & puesto & "','"
sql = sql & directrabajo & "','"
sql = sql & master & "','"
sql = sql & especialista & "','"
sql = sql & disenop & "','"
sql = sql & activ & "','"
sql = sql & monitor & "','"
sql = sql & disenoh & "','"
sql = sql & parti & "','"
sql = sql & externo & "','"
sql = sql & observaciones & "','"
sql = sql & FECHA_NAC & "','"
sql = sql & PUBLICIDAD & "')"

set ra=conexion.execute(sql)

end if
%>




email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida