index.asp
<%
Dim Total_Pedido, Total_Info
Set Total_Pedido = New Pedido
Set Total_Info = New InfoPedido
Set Total_Info = Total_Pedido.TotalPedido( Session("num_ped"), Session("frete_pedido"))
%>
class_pedido.asp
<%
Class Pedido
Function TotalPedido(ByVal num_ped, ByVal frete_pedido)
Dim Subtotal, Total
Set Pedido = con.Execute(" Select * from Pedido where COD_Pedido = '" & num_ped & "' ")
while not Pedido.Eof
Set Produto = con.Execute(" Select * from Produtos where COD_Produto = '" & Pedido("COD_Produto") &
Question
mestre fyoda
class_pedido.asp
Link to comment
Share on other sites
2 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.