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>
<A HREF="ModificarCompraD.asp">Modificar compra</A>
<A HREF="BorrarCompra.asp">Borrar compra</A>
<A HREF="ConfirmarCompra.asp">Confirmar compra</A>
<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>