Enviado por Manuel el día 25 de mayo de 2006
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
Foros de debate
ASP
