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>