Problemas asp

Manuel
25 de Mayo del 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:Inetpubwwwrootgest_ecommerceimages")
'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 actualizacin 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

Borola
25 de Mayo del 2006
http://somoscubanos.com/html/multimedia.html
Aqui vas a en contrar la solucion, pasla a tus companeros