Paso de variables de JAVASCRIPT a JScript

Shilfild · #1 (**permalink**) 30/03/2007, 05:13

Hola, ya estoy acabando con este proyecto por fín finalmente he hecho el primer formulario con Javascript como me comentó Tammander ahora lo que no puedo es pasar las variables, la inserción en la BD la tengo hecha con JScript y eso no me gustaría cambiarlo porque me funciona bien. He probado como he visto en algunos tutoriales a pasarlo por url.

Pero parece ser que el segundo formulario no los recoge, podriais echarme una mano?

Codigo que recoge las variables del usuario, las verifica e intenta mandarlas a la segunda página, llamada guardar.asp Está comentado porque no funciona.

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Sugerencias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript">
function comprobar()
{
campos=''
if (form1.txtnombre.value=='') 
	form1.txtnombre.value=""
if (form1.txttelefono.value=='')
	form1.txttelefono.value=""	
if (form1.txtemail.value==''){
	form1.txtemail.value=""
}else{
	if((form1.txtemail.value.indexOf ('@', 0) == -1)||(form1.txtemail.value.length < 5)){
	campos=campos+"\n \n* Correo electrónico (no valido)"
	}
}
if (form1.txtsugerencia.value=='')
	campos=campos+"\n\n * Sugerencia"

	
if (campos==''){
		enviar()
	}else{
		if (campos!='') {peticion(campos)}
	}
}

function enviar()
{
	//<a href="guardar.asp?nombre=txtnombre&telefono=txttelefono&mail=txtmail&sugerencia=txtsugerencia"></a>
	alert("listo")
}

function peticion(campos)
{
alert("Debe rellenar los siguientes campos: "+campos)
}
</script>
</head>

<body>

	<tr valign="top">
		<td><form name="form1" id="form1" method="post" action="guardar.asp">
		<table width="450"  border="0" align="center" cellpadding="0" cellspacing="0" class="tb_form">
		<tr valign="top">
			<td width="90"><strong>Nombre:</strong></td>
			<td width="380">
			   <input name="txtnombre" type="text" id="txtnombre" size="30" /></td>
		</tr>
		<tr valign="top">
			<td><strong>Telefono:</strong></td>
			<td><input name="txttelefono" type="text" id="txttelefono" size="25" /> </td>
		</tr>
		<tr valign="top">
			<td><strong>Email:</strong></td>
			<td><input name="txtemail" type="text" id="txtemail" size="30" /></td>
		</tr>
		<tr valign="top">
			<td><strong>Sugerencia:</strong></td>
			<td><textarea name="txtsugerencia" cols="25" rows="5" id="txtsugerencia"></textarea></td>
		</tr>
		
		<tr valign="top">
			<input name="cmdenviar" type="button" onClick="comprobar()" value="Enviar">
		</tr>
	</table></form>
	</table>
	</table>
		

</body>
</html>

Página que recoge las variables (según el tutorial en VB) y las inserta (En JScript) He intentado hacerlo todo en VBScript, pero no lo hacía por lo que creo que la manera en la que guardo las variables en la BD es solo de JScript

Código:

<script language=VBScript runat=server>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Ejemplo Libro 1 asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
	
<body>
	<!-- Archivo con ctes. de BD lo copiamos aquí por comodidad. -->
   <!--#INCLUDE file="../Sugerencias.validar/ADOJAVAS.inc"-->
	 	
			<% 
			nombre=Request.querystring("txtnombre")
			telefono=Request.querystring("txttelefono")
			mail=Request.querystring("txtemail")
			sugerencia=Request.querystring("txtsugerencia")%>
</script>			
<script language=JScript runat=server>
			
			Ob_Conn= new ActiveXObject("ADODB.Connection")
	 		Ob_RS= new ActiveXObject("ADODB.Recordset")
			Ob_Conn.open("SUGERENCIAS");
			Ob_RS.open("SUGERENCIAS", Ob_Conn, adOpenStatic,adCmdTable)
			
			
			
			Ob_RS.addnew()
				Ob_RS("nombre")= nombre
				Ob_RS("mail")= mail
				Ob_RS("telefono")= telefono
				Ob_RS("sugerencia")= sugerencia
			Ob_RS.update()
			Ob_RS.close()
			Ob_Conn.close()
			Response.Write("Grabado")	
		%>	
</script>
	
</body>
</html>

tammander · #2 (**permalink**) 30/03/2007, 05:24

Hola Shilfild,

en el primer archivo sustituye

Código:

if (campos==''){
        enviar()
    }else{
        if (campos!='') {peticion(campos)}
    }
}

por

Código:

if (campos==''){
        form1.submit()
    }else{
        if (campos!='') {peticion(campos)}
    }

Esto provoca el envio del formulario (es lo mismo que pulsar sobre un boton tipo submit). La función enviar() puedes quitarla.

En cuanto al archivo que recibe el POST yo lo haria asi:

Código:

<script language=VBScript runat=server>
<!-- Archivo con ctes. de BD lo copiamos aquí por comodidad. -->
<!--#INCLUDE file="../Sugerencias.validar/ADOJAVAS.inc"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Ejemplo Libro 1 asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
    
<body>
         
<script language=JScript runat=server>
            
            nombre=Request.querystring("txtnombre")
            telefono=Request.querystring("txttelefono")
            mail=Request.querystring("txtemail")
            sugerencia=Request.querystring("txtsugerencia")%>

            Ob_Conn= new ActiveXObject("ADODB.Connection")
             Ob_RS= new ActiveXObject("ADODB.Recordset")
            Ob_Conn.open("SUGERENCIAS");
            Ob_RS.open("SUGERENCIAS", Ob_Conn, adOpenStatic,adCmdTable)
            
            
            
            Ob_RS.addnew()
                Ob_RS("nombre")= nombre
                Ob_RS("mail")= mail
                Ob_RS("telefono")= telefono
                Ob_RS("sugerencia")= sugerencia
            Ob_RS.update()
            Ob_RS.close()
            Ob_Conn.close()
            Response.Write("Grabado")    
    
</script>
    
</body>
</html>

Recuerda que JScript no necesita los tags de apertura / cierre de ASP (<% %>) Han de incluirse dentro de los tags <script> </script> tal y como lo has hecho.

Un saludo

Shilfild · #3 (**permalink**) 02/04/2007, 01:31

Joe, tampoco sabía que no se necesitaban los tags de apertura y cierre x_x

No ando pez ni nada... xD pero bueno, veo que con vuestras explicaciones voy entendiendo lo que hago y que cada vez me queda menos, ahora otro problema, pero esto ya si que escapa a toda la lógica que pueda pensar porque yo creia que 'adOpenStatic' era de Jscript.

Os dejo código y error a ver si se os ocurre que puedo hacer mientras sigo por ahí mirando si encuentro alguna solución.

Código (gracias tammander, por las explicaciones)

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Guardado de datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
	
<body>
	<script language=JScript runat=server>
	//Archivo con ctes. de BD lo copiamos aquí por comodidad. -->
   //#INCLUDE file="../Sugerencias.validar/ADOJAVAS.inc"-->
	 	
			nombre=Request.querystring("txtnombre")
			telefono=Request.querystring("txttelefono")
			mail=Request.querystring("txtemail")
			sugerencia=Request.querystring("txtsugerencia")
			
			Ob_Conn= new ActiveXObject("ADODB.Connection")
	 		Ob_RS= new ActiveXObject("ADODB.Recordset")
			Ob_Conn.open("SUGERENCIAS");
			Ob_RS.open("SUGERENCIAS",Ob_Conn ,adOpenStatic ,adCmdTable)
			
			Ob_RS.addnew()
				Ob_RS("nombre")= nombre
				Ob_RS("mail")= mail
				Ob_RS("telefono")= telefono
				Ob_RS("sugerencia")= sugerencia
			Ob_RS.update()
			Ob_RS.close()
			Ob_Conn.close()
			Response.Write("Grabado")	
</script>	
</body>
</html>

Error:

Tipo de error:
Error en tiempo de ejecución de Microsoft JScript (0x800A1391)
'adOpenStatic' no está definido
/pruebas/Sugerencia/guardar.asp, línea 23

Linea 23: Ob_RS.open("SUGERENCIAS",Ob_Conn ,adOpenStatic ,adCmdTable)
Lo único que se me ocurre es que me falte algún archivo que lo reconozca, pero anteriormente no tenía nada más y cuando no tenia muchas historias guardaba todo.

Shilfild · #4 (**permalink**) 02/04/2007, 02:12

He incluido el archivo adovbs.inc en la carpeta, pero no sé si tendría que llamarlo en el código en algún sitio.

tammander · #5 (**permalink**) 02/04/2007, 02:46

De nada :)

Las constantes adOpenStatic y adCmdTable estan definidas en el archivo adovbs.inc Sin embargo puedes poner sus valores que son:

adOpenStatic = 3
adCmdTable = 2 (&H0002)

O sea:

Ob_RS.open("SUGERENCIAS",Ob_Conn ,3 , 2)

Un saludo

Shilfild · #6 (**permalink**) 02/04/2007, 03:05

Madre mia, si no tengo idea de lo más simple, estoy como para saber eso.. xD Tammander como en las prácticas me paguen algo te tendré que dar la mitad por lo menos xDD muchísimas gracias por la ayuda.

Pero todo era demasiado bonito para ser cierto....nuevo error que ya me suena:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access]Error en fila
/pruebas/Sugerencia/guardar.asp, línea 33

Según el técnico tengo todos los permisos pero me mirará otra vez el ODBC
Pego el código y la línea en la que me ha dado error, el update, que fijandome he visto que todos los close, y open estan a morado y en cambio el update sigue igual que el resto del código.

He probado a poner la U en mayus y minus, pero parece ser que le dá exactamente igual, no sé por qué puede ser..

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Guardado de datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
	
<body>
	<script language=JScript runat=server>
	//Archivo con ctes. de BD lo copiamos aquí por comodidad. -->
   //#INCLUDE file="../Sugerencias.validar/ADOJAVAS.inc"-->
   // Incluido adovbs.inc  que hace que se definan todas las constantes
	 	
			nombre=Request.querystring("txtnombre")
			telefono=Request.querystring("txttelefono")
			mail=Request.querystring("txtemail")
			sugerencia=Request.querystring("txtsugerencia")
			
			Ob_Conn= new ActiveXObject("ADODB.Connection")
	 		Ob_RS= new ActiveXObject("ADODB.Recordset")
			Ob_Conn.open("SUGERENCIAS");
			Ob_RS.open("SUGERENCIAS",Ob_Conn ,3 , 2)

			//Ob_RS.open("SUGERENCIAS",Ob_Conn ,adOpenStatic ,adCmdTable)
			
			Ob_RS.addnew()
				Ob_RS("nombre")= nombre
				Ob_RS("mail")= mail
				Ob_RS("telefono")= telefono
				Ob_RS("sugerencia")= sugerencia
			Ob_RS.update()
			Ob_RS.close()
			Ob_Conn.close()
			Response.Write("Grabado")	
</script>	
</body>
</html>

Ahora que me fijo el addnew tampoco está en morado, y en cambio en otro asp que tengo que sé que guardaba (aunque sin validar) también está en morado y este no...

Shilfild · #7 (**permalink**) 02/04/2007, 03:20

También he probado:

Código:

Ob_RS.AddNew();
				Ob_RS("nombre")= nombre
				Ob_RS("mail")= mail
				Ob_RS("telefono")= telefono
				Ob_RS("sugerencia")= sugerencia
			Ob_RS.Update; 
			Ob_RS.close()
			Ob_Conn.close()
			Response.Write("Grabado")

y nada... sigue igual

Shilfild · #8 (**permalink**) 02/04/2007, 04:01

No sé si servirá de algo, pero de esta manera que lo tengo en otro .asp si que funciona el guardado de datos y si sale a morado.
Lo único que puedo ver diferente es esto: <%@language=jscript%> que incluso metiendo el código, aunque salga en morado poniendo <%@language=jscript%> me sigue sin grabar asique me da que serán problemas con el servidor, aún asi si podeis mirarlo os lo agradecería porque igual hay algún detalle que se me ha escapado.

Código:

<%@language=jscript%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Ejemplo Libro 1 asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
	
<body>
	<!-- Archivo con ctes. de BD lo copiamos aquí por comodidad. -->
   <!--#INCLUDE File="ADOJAVAS.inc"-->

	<h1> Datos introducidos por el usuario </h1>
	 
	 <%nombre=Request.form("v_nombre")%> 
	 <%mail=Request.form("v_mail")%> 
	 <%telefono=Request.form("v_telefono")%> 
	 <%sugerencia=Request.form("v_sugerencia") %>


	
			<% 
			Ob_Conn= new ActiveXObject("ADODB.Connection")
	 		Ob_RS= new ActiveXObject("ADODB.Recordset")
			Ob_Conn.open("SUGERENCIAS");
			Ob_RS.open("SUGERENCIAS", Ob_Conn, adOpenStatic,adCmdTable)
			
			
			
			Ob_RS.addnew()
				Ob_RS("codigo")= '15'
				Ob_RS("nombre")= nombre
				Ob_RS("mail")= mail
				Ob_RS("telefono")= telefono
				Ob_RS("sugerencia")= sugerencia

			
			Ob_RS.update()
			Ob_RS.close()
			Ob_Conn.close()
			Response.Write("Grabado")
			
		
		%>	


		
		
<br><br>
	
		
</body>
</html>

tammander · #9 (**permalink**) 02/04/2007, 04:10

¿Cual es la linea 33? La del Update? Aparentemente todo parece bien.¿ Qué es eso de morado? ¿Alguna cualidad de tu programa de diseño web?

JScript es un C apañadito por lo que tienes que seguir la nomenclatura clásica (cerrar todas las lineas con punto y coma, los metodos -funciones a fin de cuentas- con abrir/cerrar parentesis (), etc...)

NOTA: Bajate este manual:

http://www.guiavirtual.es/documents/vbscript56.chm

Es de Microsoft pero es una buena guia tanto para comprender JScript como para aplicarlo ;)

Un saludo

Shilfild · #10 (**permalink**) 02/04/2007, 05:24

Uso dreamweaver, asique algunas cosas salen en distintos colores xD por eso me he quedado con lo de moradito, que salía distinto. Ahora me dá otro error y ya me da hasta igual cómo guardar, sólo quiero algo que funcione, y a poder ser simple porque estoy hartisima, me da igual que sea VBScript, que JScript que lo que sea x_x

tammander · #11 (**permalink**) 02/04/2007, 07:14

Bien, vamos a hacer las cosas mas sencillas aun

Vas a sustituir estas lineas:

Código:

            Ob_Conn.open("SUGERENCIAS");
            Ob_RS.open("SUGERENCIAS", Ob_Conn, adOpenStatic,adCmdTable)
            
            
            
            Ob_RS.addnew()
                Ob_RS("codigo")= '15'
                Ob_RS("nombre")= nombre
                Ob_RS("mail")= mail
                Ob_RS("telefono")= telefono
                Ob_RS("sugerencia")= sugerencia

            
            Ob_RS.update()
            Ob_RS.close()
            Ob_Conn.close()

Por estas:

Código:

Ob_Conn.open("SUGERENCIAS"); 

var strSql = "INSERT INTO SUGERENCIAS (codigo, nombre, mail, telefono, sugerencia) VALUES ('15','" + nombre + "', '" + mail + "', '" + telefono + "', '" + sugerencia + "')";

// Fijate que hay comillas simples antes y despues de las comillas dobles. No te olvides de ponerlas

Ob_conn.execute(strSql);
Ob_conn.close();

Con esto atacas directamente la BD con SQL, su lengua nativa. Como ves nos hemos ahorrado el uso del recordset.

Y nos cuentas

Un saludo

Shilfild · #12 (**permalink**) 02/04/2007, 08:15

Te voy a poner un monumento sólo por la paciencia que tienes xD
Pero ni aún con lo más sencillo soy capaz de hacerlo...x_x

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Guardado de datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
	
<body>
	<script language=JScript runat=server>
	//Archivo con ctes. de BD lo copiamos aquí por comodidad. -->
   //#INCLUDE file="../Sugerencias.validar/ADOJAVAS.inc"-->
   // Incluido adovbs.inc  que hace que se definan todas las constantes
	 		
			nombre=Request.querystring("txtnombre");
			telefono=Request.querystring("txttelefono");
			mail=Request.querystring("txtemail");
			sugerencia=Request.querystring("txtsugerencia");
			
			Ob_Conn= new ActiveXObject("ADODB.Connection");
	 		Ob_RS= new ActiveXObject("ADODB.Recordset");
			Ob_Conn.open("sugerencias"); 

			var strSql = "INSERT INTO sugerencias (codigo, nombre, mail, telefono, sugerencia) VALUES ('15','" + nombre + "', '" + mail + "', '" + telefono + "', '" + sugerencia + "')";

			// Nota:Fijate que hay comillas simples antes y despues de las comillas dobles. No te olvides de ponerlas

			Ob_Conn.execute(strSql);
			Ob_Conn.close();
			Response.Write("Grabado")	
</script>	
</body>
</html>

Error:

Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Controlador ODBC Microsoft Access] No coinciden los tipos de datos en la expresión de criterios.
/pruebas/Sugerencia/guardar.asp, línea 28

Linea 28: Ob_Conn.execute(strSql);

Datos que le pasa:

Datos de POST:
txtnombre=aaaaaaa&txttelefono=222222222&txtemail=a [email protected]&txtsugerencia=aaaaaaaaaa

En la BD
codigo (debería de ser autonumerico, pero aunque se para la prueba le he puesto numerico)
nombre texto
telefono texto
email texto
sugerencia memo

tammander · #13 (**permalink**) 02/04/2007, 08:26

Vamos a ver, estamos mezclando manzanas con peras.

No coinciden los tipos de datos en la expresión de criterios.

Esto significa que no has puesto las comillas simples que insistí que pusieras :

INSERT INTO SUGERENCIAS (codigo, nombre, mail, telefono, sugerencia)

VALUES ('', '<--- Esto si es autonumérico. Dejalo en blanco para que la BD lo inserte
'PEPE', <--- El nombre Fijate en las comillas
'[email protected]', <--- Fijate en las comillas
'91888333', <---- Fijate en las comillas
'sugiero') <---- fijate en las comillas

Supongo que el telefono es ALFANUMERICO por que si VA CON COMILLAS. Si has puesto el TIPO DE DATO del campo telefono como NUMERICO, entonces VA SIN COMILLAS.

Alfanumerico -> Con comillas
Numerico ----> Sin comillas
Fechas/Horas-> entre # #12/3/2007#

Es interesante poner los nombres de los campos en los INSERT para el tema de la depuracion. Si me dices que el campo codigo es autonumerico, puedes obviarlo:

INSERT INTO SUGERENCIAS (nombre, mail, telefono, sugerencia) VALUES ('MI NOMBRE', '[email protected]','623675544','bla bla bla')

Centrémonos en esto. Ya casi está.

Un saludo

Shilfild · #14 (**permalink**) 02/04/2007, 08:39

Bueno, darte mil gracias por toda la ayuda que he recibido (a todos en general), me grababa cambiando un par de cosas, pero los campos me los grababa como indefinidos, asique cambié .querystring por .form que me lo dijo el técnico, que también le tengo achicharrao xD

Ahora a presentarlo.

tammander · #15 (**permalink**) 02/04/2007, 08:42

Me alegro mucho

Espero que esto te anime a aprender programación web que es, para mi, la mas apasionante de todas las profesiones existentes sobre este planeta.

Un saludo

u_goldman · #16 (**permalink**) 02/04/2007, 09:00

Cita:

Iniciado por tammander

Me alegro mucho

Espero que esto te anime a aprender programación web que es, para mi, la mas apasionante de todas las profesiones existentes sobre este planeta.

Un saludo

...Y de las menos remuneradas

nah, no está tan mal

Shilfild · #17 (**permalink**) 02/04/2007, 09:06

jajajaja, la verdad es que está bien, me ha gustado sólo que hubiera necesitado algo más de iniciación, que cuando me cogieron para hacer prácticas en esta empresa no sabian lo que había dado y cuando empecé me dijeron que no había dado nada que sirviera aqui x_x

Pero bueno, me alegro de al menos haber aprendido algo distinto, me hice una web en html, con un tutorial y tal asique no quiero dejar asp muy de lado e iniciarme también en css, asique aunque ya no tenga que programar asp, supongo que iré aprendiendo por mi cuenta (sin presión, ni nadie que me diga para cuando voy a tener acabado el formulario xD)

Mi siguiente proyecto es en Visual Basic, asique supongo y espero que me irá bastante mejor, pero seguiré leyendo el foro, que de todo se aprende aunque no me entere mucho xD

Mil gracias