%Dim conn, Rs2, Rs Call abre_conexao(loja) if session("id_pedido") = "" then response.redirect "lnk05B.asp" end if strSQL = "SELECT categoria FROM tbl_Produto WHERE flg_ok=1 group by categoria" Set RsM = conn.execute(StrSql) StrSql = "SELECT quantidade,preco FROM vw_pedidoProduto WHERE id_pedido="&session("id_pedido") Set Rs = conn.execute(StrSql) total = 0 WHILE NOT Rs.eof preco_total = Rs("preco")*Rs("quantidade") total = total+ cdbl (preco_total) Rs.MoveNext Wend session("lnk")="lnk05"%>
|
|
|||||||||||