Insertar Valores

RucarMaN · #1 (**permalink**) 11/10/2003, 11:02

Tengo un Formulario donde registro a una persona, tengo 2 tablas: una donde registro sus datos (user) y otra donde esta los mensajes (mensaje). Cuando registro a una persona por defecto le manda un mensaje de Bienvenida:

asunto = "Bienvenidos"
mensaje = "Recuerde cambiar su clave"

pero quiero añadirle un link al mensaje y me da error:

mensaje = "Recuerde cambiar su clave <a target=""_blank"" href=""perfil.asp""> Tu Perfil</a>"

como hago
todo esta en Asp y Access

Gurrutello · #2 (**permalink**) 11/10/2003, 13:21

hola
prueba
mensaje = "Recuerde cambiar su clave <a target=""_blank"" href=""perfil.asp"">"

te faltan unas comillas al final para cerrar el html en asp
Ese el el fallo que veo en tu codigo!!!
saludos

RucarMaN · #3 (**permalink**) 12/10/2003, 09:02

ok, Gurrutello.
eso esta bien pero cuando lo pongo asi:
mensaje ="Recuerda cambiar <a href=""javascript:popup('perfil.asp')"">Tu perfil</a>"
me da error en la linea 43 (Tabla1.Open Temp,Conexion,2,3,1)

'----------- mi code
<%@ Language="VBScript" %>
<head>
<title>Ingreso de Datos</title>
</head>

<%
Dim fecha, asunto, mensaje
'-------- mensaje
fecha = date()
asunto = "Bienvenido"
mensaje = "Recuerde cambiar sus <a href=""javascript:popup('perfil.asp')"">Datos</a>"

Dim Conexion,Tabla, Tabla1
Dim cedulaP, apellidosP, nombresP, sexo
cedulaP = Request.Form("dato1")
apellidosP = Request.Form("dato2")
nombresP = Request.Form("dato3")
sexoP = Request.Form("dato4")
clave = Request.Form("dato1")

if apellidosP ="" or nombresP ="" or sexoP="0" then

Response.Write "<center> <big>Falta Datos"
Response.Write " <center><img src=""img/stop.gif"">"
Response.Write " <a href=""vbscript:history.go(-1)"">Volver</a>"

else

Set Conexion = Server.CreateObject("ADODB.Connection")

MiConexion = control
Conexion.Open = MiConexion

Dim Temp
Temp="INSERT INTO profesor (cedulaP,apellidosP,nombresP,sexoP,clave) VALUES ('" & cedulaP & "','" & apellidosP & "','" & nombresP & "','" & sexoP &"','" & clave &"')"
Set Tabla = Server.CreateObject("ADODB.Recordset")
Tabla.Open Temp,Conexion,2,3,1

Temp="INSERT INTO Tmensaje (cedulaM, fecha, asunto, mensaje) VALUES ('" & cedulaP & "','" & fecha & "','" & asunto & "','" & mensaje &" ')"
Set Tabla1 = Server.CreateObject("ADODB.Recordset")
Tabla1.Open Temp,Conexion,2,3,1
%>
<body stylesrc="control/index.html">

<img border="0" src="control/img/ok.gif" WIDTH="89" HEIGHT="88">


Ingreso de datos completado



<a href="grado.asp?ced=<%=cedulaP%>">Asignarle Materia</a>







<a href="index.html">
<img border="0" src="../img/Menu.gif" WIDTH="100" HEIGHT="36"></a>

<%
'Tabla1.Close
Conexion.Close

%>
</body>
<%End if%>