Problemas ASP
Publicado por MANUEL (1 intervención) el 25/05/2006 13:08:15
Es un codigo para subir un archivo pero no me recoge el nombre de las variables enviadas desde un formulario, este es el codigo:
<%@ Language=VBScript %>
<!-- #include file="db.asp" -->
<!-- #include file="adovbs.inc" -->
<HTML>
<BODY>
<%
dim nomC, imgC
nomC=request.querystring("nomC")
imgC=request.querystring("imgC")
response.write nomC
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\Inetpub\wwwroot\gest_ecommerce\images\")
'Response.Write Count & " archivo subido satisfactoriamente."
'response.redirect ("validarcategoria.asp")
%>
</BODY>
</HTML>
Y este es el codigo que me tiene que calcular el total y actualizar dicho campo en la tabla
<%@ Language=VBScript %>
<!-- #include file="db.asp" -->
<!-- #include file="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>Lectura de registros de una tabla</TITLE>
</HEAD>
<BODY>
<h1><div align="center">Lectura de la tabla</div></h1>
<br>
<br>
<%
'Antes de nada hay que instanciar el objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones
Conn.Open ConString
'Ahora creamos la sentencia SQL que nos servira para hablar a la BD
sSQL="Select linea_pedidos.orderID, linea_pedidos.quantity, productos.productPrecio, productGastos, productIVA From linea_pedidos, productos WHERE linea_pedidos.productID=productos.productID Order By orderID"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
'Declaro las variables
dim precio_neto, cant, gastos, iva, t_iva, t_precio, precio_total, id_ped, id_ped_ant, RS2, sSQL2
'Abro el buble principal
Do While not RS.EOF
'Inicializo las variables
t_precio = 0
precio_neto=0
cant=0
gastos=0
iva=0
t_iva=0
id_ped=0
precio_neto=RS("productPrecio")
cant=RS("quantity")
gastos=RS("productGastos")
iva=RS("productIVA")
t_precio=precio_neto*cant
t_iva=precio_neto*iva/100
t_precio=t_precio+t_iva+gastos
'Ejecutamos sentencia de actualización del precio de los pedidos
sSQL="UPDATE linea_pedidos SET t_precio="&t_precio&" WHERE orderID="&RS("orderID")&""
set RS2 = Conn.Execute(sSQL)
'response.Write sSQL&"<br>"
RS.MoveNext
Loop
response.write "PRECIOS ALMACENADOS"
'Cerramos el sistema de conexion
Conn.Close
%>
</table>
</BODY>
</HTML>
GRACIAS RESPONDER lo antes posible
<%@ Language=VBScript %>
<!-- #include file="db.asp" -->
<!-- #include file="adovbs.inc" -->
<HTML>
<BODY>
<%
dim nomC, imgC
nomC=request.querystring("nomC")
imgC=request.querystring("imgC")
response.write nomC
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("c:\Inetpub\wwwroot\gest_ecommerce\images\")
'Response.Write Count & " archivo subido satisfactoriamente."
'response.redirect ("validarcategoria.asp")
%>
</BODY>
</HTML>
Y este es el codigo que me tiene que calcular el total y actualizar dicho campo en la tabla
<%@ Language=VBScript %>
<!-- #include file="db.asp" -->
<!-- #include file="adovbs.inc" -->
<HTML>
<HEAD>
<TITLE>Lectura de registros de una tabla</TITLE>
</HEAD>
<BODY>
<h1><div align="center">Lectura de la tabla</div></h1>
<br>
<br>
<%
'Antes de nada hay que instanciar el objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones
Conn.Open ConString
'Ahora creamos la sentencia SQL que nos servira para hablar a la BD
sSQL="Select linea_pedidos.orderID, linea_pedidos.quantity, productos.productPrecio, productGastos, productIVA From linea_pedidos, productos WHERE linea_pedidos.productID=productos.productID Order By orderID"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
'Declaro las variables
dim precio_neto, cant, gastos, iva, t_iva, t_precio, precio_total, id_ped, id_ped_ant, RS2, sSQL2
'Abro el buble principal
Do While not RS.EOF
'Inicializo las variables
t_precio = 0
precio_neto=0
cant=0
gastos=0
iva=0
t_iva=0
id_ped=0
precio_neto=RS("productPrecio")
cant=RS("quantity")
gastos=RS("productGastos")
iva=RS("productIVA")
t_precio=precio_neto*cant
t_iva=precio_neto*iva/100
t_precio=t_precio+t_iva+gastos
'Ejecutamos sentencia de actualización del precio de los pedidos
sSQL="UPDATE linea_pedidos SET t_precio="&t_precio&" WHERE orderID="&RS("orderID")&""
set RS2 = Conn.Execute(sSQL)
'response.Write sSQL&"<br>"
RS.MoveNext
Loop
response.write "PRECIOS ALMACENADOS"
'Cerramos el sistema de conexion
Conn.Close
%>
</table>
</BODY>
</HTML>
GRACIAS RESPONDER lo antes posible
Valora esta pregunta
0