Foros del Web » Programando para Internet » ASP Clásico »

No Modifica las entradas

Estas en el tema de No Modifica las entradas en el foro de ASP Clásico en Foros del Web. Hola gente soy nueva en el foro y me preguntaba a ver si me podian ayudar.Estoy haciendo la pagina de un cine (no real XD)con ...
  #1 (permalink)  
Antiguo 23/03/2008, 06:08
 
Fecha de Ingreso: marzo-2008
Mensajes: 4
Antigüedad: 16 años, 2 meses
Puntos: 0
No Modifica las entradas

Hola gente soy nueva en el foro y me preguntaba a ver si me podian ayudar.Estoy haciendo la pagina de un cine (no real XD)con una base de datos en acces y resulta q tengo q hacer q un usuario pueda modificar el numero de entradas q tiene guardado ya en la base de datos, pero esq no me entra en :

If Request.Form("Entradas")<>"" Then
if mirecordset("Lineas") = Request.Form("lineas") then
mirecordset("Entradas") = Request.Form("Entradas")

Cuando pongo eso esq no me hace el do while y por tanto no me muestra ninguna pelicula. Espero vuestra ayuda estoy ya q me voy apegar un chocazo contra la pared Este es el codigo:

Código:
<HTML>
<HEAD><TITLE>Maria</TITLE></HEAD>
<BODY BGCOLOR="#99FF00">
<!--#include file="adovbs.inc"-->

<%
Set miconexion=Server.CreateObject("ADODB.Connection")
miconexion.ConnectionString="DSN=CineNuevo"
miconexion.Open

Set mirecordset=Server.CreateObject("ADODB.Recordset")
mirecordset.ActiveConnection=miconexion
mirecordset.Source="SELECT * FROM Compra WHERE Usuario= '"+Session("sUsuario")+"'"
mirecordset.CursorType=adOpenDynamic
mirecordset.LockType=adLockOptimistic
mirecordset.Open


If Request.Form("Entradas")<>"" Then    
	if mirecordset("Lineas") = Request.Form("lineas") then
	 mirecordset("Entradas") = Request.Form("Entradas")

	 
	 	
		'If  Request.Form("entradas")< mirecordset("Entradas") Then
	    'mirecordset("Entradas")=Request.Form("Entradas")
		
		'If (Request.Form("entradas")=0) Then
		
			'Set miconexion2=Server.CreateObject("ADODB.Connection")
			'miconexion.ConnectionString="DSN=CineNuevo"
			'miconexion.Open
		
			'Set sql=Server.CreateObject("ADODB.Command")
			'sql.ActiveConnection=miconexion2
			'sql.CommandText="Delete * FROM Compra WHERE Lineas= '"+Request.Form("lineas")+"'"
			'SET rstsql=sql.Execute
		
			'mirecordset.Update
			'Response.Redirect("ver.asp")
			
			'End If

		End If
End If
 
%>
Hola <%Response.Write(Session("sUsuario"))%>

<BR ><A HREF="ver.asp">Ver Compra</A>
<A HREF="modificar.asp">Modificar Compra</A>
<A HREF="borrar.asp">Borrar Compra</A>
<A HREF="confirmar.asp">Confirmar Compra</A>
<A HREF="cine.asp">Seguir Comprando</A>

<TABLE BORDER>
	<TR>
		<TD>Nombre:</TD>
		<TD>Entradas</TD>
		<TD>Precio</TD>
		<TD>Dia</TD>
		<TD>Hora</TD>
	</TR>
</TABLE>

<FORM ACTION="modificar.asp">

<% Do while not mirecordset.EOF%>
<TABLE BORDER>
	<TR>
		<TD><INPUT TYPE="hidden" NAME="nombre" VALUE="<%= mirecordset("Nom_Pelicula") %>" ><%Response.Write(mirecordset("Nom_Pelicula"))%></TD>
		<TD><INPUT TYPE="TEXT" NAME="entradas" VALUE="<%= mirecordset("Entradas")%>"><%Response.Write(mirecordset("Entradas"))%></TD>
		<TD><INPUT TYPE="hidden"NAME="precio" value="<%= mirecordset("Precio")%>" ><%Response.Write(mirecordset("Precio"))%></TD>
		<TD><INPUT TYPE="hidden" NAME="dia" VALUE="<%= mirecordset("Dia")%>" ><%Response.Write(mirecordset("Dia"))%></TD>
		<TD><INPUT TYPE="hidden" NAME="hora" VALUE="<%= mirecordset("Hora")%>" ><%Response.Write(mirecordset("Hora"))%></TD>
		<TD><INPUT TYPE="hidden" NAME="lineas" VALUE="<%= mirecordset("Lineas")%>" ></TD>
		<TD><INPUT TYPE="image" NAME="boton" SRC="boton.jpg">
	</TR>
</TABLE>
<% mirecordset.Update%>
</FORM>
<%
mirecordset.MoveNext
Loop
%>
</BODY>
</HTML>
  #2 (permalink)  
Antiguo 24/03/2008, 08:57
Avatar de pcarvajal  
Fecha de Ingreso: enero-2002
Mensajes: 701
Antigüedad: 22 años, 5 meses
Puntos: 8
Re: No Modifica las entradas

Hola,
Bueno, yo partiría haciendole un response.write a los campos para saber que valores traen
Cita:

response.write Request.Form("Entradas") & "<br>"
response.write mirecordset("Lineas") & "<br>"
response.write mirecordset("Entradas") & "<br>"
response.write Request.Form("Entradas") & "<br>"


If Request.Form("Entradas")<>"" Then
if mirecordset("Lineas") = Request.Form("lineas") then
mirecordset("Entradas") = Request.Form("Entradas")
ahora si ninguno de los valores viene en blanco, intentaría hacer la comparación de la siguiente manera:

Cita:
If Request.Form("Entradas")<>"" Then
if cdbl(mirecordset("Lineas")) = cdbl(Request.Form("lineas")) then
mirecordset("Entradas") = Request.Form("Entradas")
Es solo una idea.. espero te ayude en algo, de todas maneras avisa
Saludos!
  #3 (permalink)  
Antiguo 15/04/2008, 11:49
 
Fecha de Ingreso: marzo-2008
Mensajes: 4
Antigüedad: 16 años, 2 meses
Puntos: 0
Re: No Modifica las entradas

Siento haber tardado en contestar pero esq toy de examenes :)
Puse lo que me dijiste y nada no hay manera, no sale .Pero que le he hecho yo?
Weno voy a seguir amargarndome un pokito mas nos vemos y muchisimas gracias por tu ayuda.
  #4 (permalink)  
Antiguo 15/04/2008, 13:51
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: No Modifica las entradas

llegaron datos o no??

por que no pones el codigo de la pagina que envia

__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #5 (permalink)  
Antiguo 16/04/2008, 09:37
 
Fecha de Ingreso: marzo-2008
Mensajes: 4
Antigüedad: 16 años, 2 meses
Puntos: 0
Re: No Modifica las entradas

Si entra en los datos. Mira la he hecho de nuevo, este es el codigo:
Plis ayudame lo antes posible Gracias
Código:
<HTML>
<HEAD>

<style type="text/css"> 
	<!--

  	body {cursor : url("predtriangle1.ani")}
	
 	 -->
</style>

	<SCRIPT LANGUAJE=JAVASCRIPT >
	
	function reloj()
	{
		now= new Date
		hora= now.getHours() + ":" + now.getMinutes() + ":" + now.getSeconds() 		
		document.casillareloj.relojito.value=hora
		setTimeout("reloj()",10)
	}

	</SCRIPT>
</HEAD>

<BODY BACKGROUND="arturoBase.jpg" TEXT="#FFFFFF" VLINK="#FFFFFF" ALINK="#FFFFFF" onLoad="reloj()">
<!--#include file="adovbs.inc"-->

<DIV ALIGN="LEFHT">

	<FORM NAME="casillareloj">
	
		<INPUT TYPE="TEXT" SIZE=5 NAME="relojito">
		
	</FORM>

<DIV ALIGN="RIGHT">	
<A HREF="VerCompra.asp"> Ver compra </A>&nbsp;&nbsp;&nbsp;
<A HREF="ModificarCompraD.asp">Modificar compra</A>&nbsp;&nbsp;&nbsp;
<A HREF="BorrarCompra.asp">Borrar compra</A>&nbsp;&nbsp;&nbsp;
<A HREF="ConfirmarCompra.asp">Confirmar compra</A>&nbsp;&nbsp;&nbsp;
<A HREF="cine.asp">Seguir Comprando</A>
</DIV>

<%
	Response.Write("<B>Usuario:</B> "& Session("sUsuario"))
%>
	<BR>

<%
	Dim compra

			Set miconexion = Server.CreateObject("ADODB.Connection")
			miconexion.ConnectionString = "DSN=CineNuevo"
			miconexion.Open

			Set reg_com = Server.CreateObject("ADODB.Recordset")
			reg_com.ActiveConnection = miconexion
			reg_com.Source = "Compra"
			reg_com.LockType = adLockOptimistic
			reg_com.CursorType = adOpenDynamic
			reg_com.Open

			compra=0

			do while not reg_com.EOF
	
				If(reg_com("Usuario")=Session("sUsuario")) Then
			
					compra=reg_com("Precio")*reg_com("Entradas")+compra
				
				End If
	
			reg_com.MoveNext
			loop

			Response.Write("Comprado: " & compra & "€")
			
			reg_com.Close
			miconexion.Close
			
Set miconexion=Server.CreateObject("ADODB.Connection")
miconexion.ConnectionString="DSN=CineNuevo"
miconexion.Open


 
Set mirecordset = Server.CreateObject("ADODB.Recordset")
mirecordset.ActiveConnection = miconexion
mirecordset.Source = "SELECT * FROM Compra WHERE Usuario='"+Session("sUsuario")+"'"   
mirecordset.CursorType = adOpenDynamic
mirecordset.LockType = adLockOptimistic
mirecordset.Open
%>

<!-- CDbl lo que hace es que coje los numeros de una caja de text y la covierte a double pq esto puede probocar fallo -->
<P>
	<TABLE BORDER Width=100% ALIGN="center">
  	    <TR>
     		<TH Width=32% >Pelicula</TH>
     		<TH Width=30% >Entradas</TH>
			<TH Width=10% >Precio</TH>
     		<TH Width=10%> Dia</TH>
    	 	<TH Width=10% >Hora</TH>
			<TH Width=10% >Codigo</TH>
  	    </TR>
 	 </TABLE>
<% Do while not mirecordset.EOF%>
<FORM ACTION="Modificar compra nuevo.asp" METHOD="POST">

<TABLE BORDER ALIGN="CENTER" Width=100% >
  	
  <TR>
 
     <TD Width=33% ><INPUT INPUT TYPE="hidden" NAME="nom_peli" VALUE="<%= mirecordset("Nom_Pelicula")%>"><%Response.Write mirecordset("Nom_Pelicula")%></TD>
     <TD Width=30% ><INPUT TYPE="text" NAME="num_entradas" VALUE="<%=mirecordset("Entradas")%>"><%Response.Write mirecordset("Entradas")%></TD>
	 <TD Width=10%>	<INPUT TYPE="hidden" NAME="precio_peli" VALUE="<%=mirecordset("Precio")%>"><%Response.Write mirecordset("Precio")%></TD>
     <TD Width=10% ><INPUT TYPE="hidden" NAME="dia_peli" VALUE="<%=mirecordset("Dia")%>"><%Response.Write mirecordset("Dia")%></TD>
     <TD Width=10% ><INPUT TYPE="hidden" NAME="hora_peli" VALUE="<%=mirecordset("Hora")%>"><%Response.Write mirecordset("Hora")%></TD>
     <TD Width=10% ><INPUT TYPE="hidden" NAME="lineas" VALUE="<%=mirecordset("Lineas")%>%"><%Response.Write mirecordset("Lineas")%></TD>
	 <TD Width=10% ><INPUT TYPE="hidden" NAME="cod_pelicula" VALUE="<%=mirecordset("Cod_pelicula")%>%"></TD>

      <TD><INPUT  TYPE="image" SRC="boton.jpg" BORDER=0 ></TD>
<%	If Request.Form("num_entradas")<>"" Then 

	Set miconexion2=Server.CreateObject("ADODB.Connection")
	miconexion2.ConnectionString="DSN=CineNuevo"
	miconexion2.Open

	Set mirecordset2 = Server.CreateObject("ADODB.Recordset")
	mirecordset2.ActiveConnection = miconexion2
	mirecordset2.Source = "SELECT Lineas, Entradas FROM Compra WHERE Usuario='"+Session("sUsuario")+"' AND Lineas = '"+Request.Form("lineas")+"'"  
	mirecordset2.CursorType = adOpenDynamic
	mirecordset2.LockType = adLockOptimistic
	mirecordset2.Open                    
	                           
		if mirecordset("Lineas") = Request.Form("lineas") Then            '-------------------------
		Response.Write("hola wapa")												
		mirecordset("Entradas") = Request.Form("num_entradas")							'ES SEGURO:EL POBLEMA ESTA AQUI 
		else 																			'Me lo modifica todo.
		mirecordset("Entradas") = Request.Form("num_entradas")					 '---------------------------	
		End If                                                         
End If   %>																
	</TR>
	</TABLE>
	</FORM>
<%  
mirecordset.MoveNext
loop

mirecordset.Close
miconexion.Close
%>
</BODY>
</HTML>
  #6 (permalink)  
Antiguo 16/04/2008, 11:09
Avatar de Shiryu_Libra
Colaborador
 
Fecha de Ingreso: febrero-2007
Ubicación: Cantando "Screenager" en "Kirafa Kaput"
Mensajes: 3.614
Antigüedad: 17 años, 3 meses
Puntos: 88
Re: No Modifica las entradas



una pregunta... en que momento le envias los datos para que realize la siguiente accion?

Código PHP:
<%    If Request.Form("num_entradas")<>"" Then 

    Set miconexion2
=Server.CreateObject("ADODB.Connection")
    
miconexion2.ConnectionString="DSN=CineNuevo"
    
miconexion2.Open

    Set mirecordset2 
Server.CreateObject("ADODB.Recordset")
    
mirecordset2.ActiveConnection miconexion2
    mirecordset2
.Source "SELECT Lineas, Entradas FROM Compra WHERE Usuario='"+Session("sUsuario")+"' AND Lineas = '"+Request.Form("lineas")+"'"  
    
mirecordset2.CursorType adOpenDynamic
    mirecordset2
.LockType adLockOptimistic
    mirecordset2
.Open                    
                               
        
if mirecordset("Lineas") = Request.Form("lineas"Then            '-------------------------
        Response.Write("hola wapa")                                                
        mirecordset("Entradas") = Request.Form("num_entradas")                            '
ES SEGURO:EL POBLEMA ESTA AQUI 
        
else                                                                             'Me lo modifica todo.
        mirecordset("Entradas") = Request.Form("num_entradas")                     '
---------------------------    
        
End If                                                         
End If   %> 
pregunto esto por que haces un request de metodo POST, al cargarse la pagina

o esta pagina es "confirmarcompra.asp"

podrias explicar esa parte?
__________________
"Eres parte del problema, parte de la solucion o parte del paisaje"
Un Saludo desde Desierto de Altar, Sonora, MX.
Shiryu_libra
  #7 (permalink)  
Antiguo 16/04/2008, 12:51
 
Fecha de Ingreso: marzo-2008
Mensajes: 4
Antigüedad: 16 años, 2 meses
Puntos: 0
De acuerdo Re: No Modifica las entradas

Mira al final lo solucione . Puse un objeto Request y listo. Mira asi me quedo el codigo al final:).En realidad no se muy bien pq no funcinaba sin Request pero bueno, muchisimas graciasss por vuestra ayuda sois los mejores
Código:
<HTML>
<HEAD>

<style type="text/css"> 
	<!--

  	body {cursor : url("predtriangle1.ani")}
	
 	 -->
</style>

	<SCRIPT LANGUAJE=JAVASCRIPT >
	
	function reloj()
	{
		now= new Date
		hora= now.getHours() + ":" + now.getMinutes() + ":" + now.getSeconds() 		
		document.casillareloj.relojito.value=hora
		setTimeout("reloj()",10)
	}

	</SCRIPT>
</HEAD>

<BODY BACKGROUND="arturoBase.jpg" TEXT="#FFFFFF" VLINK="#FFFFFF" ALINK="#FFFFFF" onLoad="reloj()">
<!--#include file="adovbs.inc"-->

<DIV ALIGN="LEFHT">

	<FORM NAME="casillareloj">
	
		<INPUT TYPE="TEXT" SIZE=5 NAME="relojito">
		
	</FORM>

<DIV ALIGN="RIGHT">	
<A HREF="VerCompra.asp"> Ver compra </A>&nbsp;&nbsp;&nbsp;
<A HREF="ModificarCompraD.asp">Modificar compra</A>&nbsp;&nbsp;&nbsp;
<A HREF="BorrarCompra.asp">Borrar compra</A>&nbsp;&nbsp;&nbsp;
<A HREF="ConfirmarCompra.asp">Confirmar compra</A>&nbsp;&nbsp;&nbsp;
<A HREF="cine.asp">Seguir Comprando</A>
</DIV>

<%
	Response.Write("<B>Usuario:</B> "& Session("sUsuario"))
%>
	<BR>

<%
	Dim compra

			Set miconexion = Server.CreateObject("ADODB.Connection")
			miconexion.ConnectionString = "DSN=CineNuevo"
			miconexion.Open

			Set reg_com = Server.CreateObject("ADODB.Recordset")
			reg_com.ActiveConnection = miconexion
			reg_com.Source = "Compra"
			reg_com.LockType = adLockOptimistic
			reg_com.CursorType = adOpenDynamic
			reg_com.Open

			compra=0

			do while not reg_com.EOF
	
				If(reg_com("Usuario")=Session("sUsuario")) Then
			
					compra=reg_com("Precio")*reg_com("Entradas")+compra
				
				End If
	
			reg_com.MoveNext
			loop

			Response.Write("Comprado: " & compra & "€")
			
			reg_com.Close
			miconexion.Close
			
Set miconexion=Server.CreateObject("ADODB.Connection")
miconexion.ConnectionString="DSN=CineNuevo"
miconexion.Open


 
Set mirecordset = Server.CreateObject("ADODB.Recordset")
mirecordset.ActiveConnection = miconexion
mirecordset.Source = "SELECT * FROM Compra WHERE Usuario='"+Session("sUsuario")+"'"   
mirecordset.CursorType = adOpenDynamic
mirecordset.LockType = adLockOptimistic
mirecordset.Open
%>

<!-- CDbl lo que hace es que coje los numeros de una caja de text y la covierte a double pq esto puede probocar fallo -->
<P>
	<TABLE BORDER Width=100% ALIGN="center">
  	    <TR>
     		<TH Width=32% >Pelicula</TH>
     		<TH Width=30% >Entradas</TH>
			<TH Width=10% >Precio</TH>
     		<TH Width=10%> Dia</TH>
    	 	<TH Width=10% >Hora</TH>
			<TH Width=10% >Codigo</TH>
  	    </TR>
 	 </TABLE>
<% Do while not mirecordset.EOF%>
<FORM ACTION="Modificar compra nuevo.asp" METHOD="POST">

<TABLE BORDER ALIGN="CENTER" Width=100% >
  	
  <TR>
 
     <TD Width=33% ><INPUT INPUT TYPE="hidden" NAME="nom_peli" VALUE="<%= mirecordset("Nom_Pelicula")%>"><%Response.Write mirecordset("Nom_Pelicula")%></TD>
     <TD Width=30% ><INPUT TYPE="text" NAME="num_entradas" VALUE="<%=mirecordset("Entradas")%>"><%Response.Write mirecordset("Entradas")%></TD>
	 <TD Width=10%>	<INPUT TYPE="hidden" NAME="precio_peli" VALUE="<%=mirecordset("Precio")%>"><%Response.Write mirecordset("Precio")%></TD>
     <TD Width=10% ><INPUT TYPE="hidden" NAME="dia_peli" VALUE="<%=mirecordset("Dia")%>"><%Response.Write mirecordset("Dia")%></TD>
     <TD Width=10% ><INPUT TYPE="hidden" NAME="hora_peli" VALUE="<%=mirecordset("Hora")%>"><%Response.Write mirecordset("Hora")%></TD>
     <TD Width=10% ><INPUT TYPE="hidden" NAME="lineas" VALUE="<%=mirecordset("Lineas")%>%"><%Response.Write mirecordset("Lineas")%></TD>
	 <TD Width=10% ><INPUT TYPE="hidden" NAME="cod_pelicula" VALUE="<%=mirecordset("Cod_pelicula")%>%"></TD>

      <TD><INPUT  TYPE="image" SRC="boton.jpg" BORDER=0 ></TD>
<%	If Request.Form("num_entradas")<>"" Then 

	Set miconexion2=Server.CreateObject("ADODB.Connection")
	miconexion2.ConnectionString="DSN=CineNuevo"
	miconexion2.Open

	Set mirecordset2 = Server.CreateObject("ADODB.Recordset")
	mirecordset2.ActiveConnection = miconexion2
	mirecordset2.Source = "SELECT Lineas, Entradas FROM Compra WHERE Usuario='"+Session("sUsuario")+"' AND Lineas = '"+Request.Form("lineas")+"'"  
	mirecordset2.CursorType = adOpenDynamic
	mirecordset2.LockType = adLockOptimistic
	mirecordset2.Open                    
	                   
	If mirecordset("Hora")=Request("hora_peli") Then    			'Utilizo el objeto request para recojer la informacion del formulario    
		if mirecordset("Lineas") = Request.Form("lineas") Then       	
		else 																			
		mirecordset("Entradas") = Request.Form("num_entradas")			  
		mirecordset.Update
		Response.Redirect("verCompra.asp")	
		End If 
	End If                                                        
End If   %>																
	</TR>
	</TABLE>
	</FORM>
<%  
mirecordset.MoveNext
loop

mirecordset.Close
miconexion.Close
%>
</BODY>
</HTML>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:26.