é como se fosse um carrinho de compras

Preciso de Ajuda com Atualizar carrinhoPreciso de ajuda!É uma tela de Ordem de serviço, onde o usuario vai adicionando produtos como se fosse um carrinho de compras.Até aí tudo bem, só que o problema é que não vai só o campo quantidade, vai + 6 campos além da quantidade. Ex: (altura, largura, comprimento, metro cúbico, valor, total)Eu não consigo atualizar esses campos, só consigo se for 1 campo (quantidade), com + 6 não consigo.Eu procurei na internet tudo sobre carrinho de compras, o problema é que não tem nenhum exemplo com mais campos além da quantidade, e tentei de tudo mesmo, más está além do meu conhecimento.Alguém pode me ajudar com isso.Eu disponibilizei os arquivos compactados para facilitar.os_passo5.asp --> inicia com esse --> lista produto e envia para os_passo6.aspos_passo6.asp --> é esse que tem de acertarO banco de dados MySQL -->com nome de isoporwww.saulofernandes.cjb.net/isopor.rarou Segue os códigos abaixo:************** os_passo5.asp ******************************<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="bib.asp" --><%Dim varNumero_OS, varCodClienteDim rsDim rs_numRows'varNumero_OS = Request.QueryString("os")'varCodCliente = Request.QueryString("codcli")Set rs = Server.CreateObject("ADODB.Recordset")rs.ActiveConnection = MM_bib_STRINGrs.Source = "SELECT * FROM isopor.produto"rs.CursorType = 0rs.CursorLocation = 2rs.LockType = 1rs.Open()rs_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = 10Repeat1__index = 0rs_numRows = rs_numRows + Repeat1__numRows%><%' *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim rs_totalDim rs_firstDim rs_last' set the record countrs_total = rs.RecordCount' set the number of rows displayed on this pageIf (rs_numRows < 0) Then rs_numRows = rs_totalElseif (rs_numRows = 0) Then rs_numRows = 1End If' set the first and last displayed recordrs_first = 1rs_last = rs_first + rs_numRows - 1' if we have the correct record count, check the other statsIf (rs_total <> -1) Then If (rs_first > rs_total) Then rs_first = rs_total End If If (rs_last > rs_total) Then rs_last = rs_total End If If (rs_numRows > rs_total) Then rs_numRows = rs_total End IfEnd If%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (rs_total = -1) Then ' count the total records by iterating through the recordset rs_total=0 While (Not rs.EOF) rs_total = rs_total + 1 rs.MoveNext Wend ' reset the cursor to the beginning If (rs.CursorType > 0) Then rs.MoveFirst Else rs.Requery End If ' set the number of rows displayed on this page If (rs_numRows < 0 Or rs_numRows > rs_total) Then rs_numRows = rs_total End If ' set the first and last displayed record rs_first = 1 rs_last = rs_first + rs_numRows - 1 If (rs_first > rs_total) Then rs_first = rs_total End If If (rs_last > rs_total) Then rs_last = rs_total End IfEnd If%><%Dim MM_paramName %><%' *** Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = rsMM_rsCount = rs_totalMM_size = rs_numRowsMM_uniqueCol = ""MM_paramName = ""MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")End If%><%' *** Move To Record: handle 'index' or 'offset' parameterif (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End IfEnd If%><%' *** Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 WendEnd If%><%' *** Move To Record: update recordset stats' set the first and last displayed recordrs_first = MM_offset + 1rs_last = MM_offset + MM_sizeIf (MM_rsCount <> -1) Then If (rs_first > MM_rsCount) Then rs_first = MM_rsCount End If If (rs_last > MM_rsCount) Then rs_last = MM_rsCount End IfEnd If' set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)%><%' *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItem' create the list of parameters which should not be maintainedMM_removeList = "&index="If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="End IfMM_keepURL=""MM_keepForm=""MM_keepBoth=""MM_keepNone=""' add the URL parameters to the MM_keepURL stringFor Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End IfNext' add the Form variables to the MM_keepForm stringFor Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End IfNext' create the Form + URL string and remove the intial '&' from each of the stringsMM_keepBoth = MM_keepURL & MM_keepFormIf (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)End IfIf (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)End IfIf (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)End If' a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End IfEnd Function%><%' *** Move To Record: set the strings for the first, last, next, and previous linksDim MM_keepMoveDim MM_moveParamDim MM_moveFirstDim MM_moveLastDim MM_moveNextDim MM_movePrevDim MM_urlStrDim MM_paramListDim MM_paramIndexDim MM_nextParamMM_keepMove = MM_keepBothMM_moveParam = "index"' if the page has a repeated region, remove 'offset' from the maintained parametersIf (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End IfEnd If' set the strings for the move to linksIf (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"End IfMM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="MM_moveFirst = MM_urlStr & "0"MM_moveLast = MM_urlStr & "-1"MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0"Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)End If%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--body {	margin-left: 0px;	margin-top: 0px;}.form {	border: 1px solid #990000;	background-color: #FFFFFF;	font-family: verdana;	font-size: 12px;	color: #000000;}.style7 {font-size: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }.style8 {color: #FFFFFF}.style16 {font-size: 9pt;	font-family: Verdana, Arial, Helvetica, sans-serif;}.style18 {	font-family: Geneva, Arial, Helvetica, sans-serif;	font-size: 14pt;	font-weight: bold;	color: #FFFFFF;}.style19 {font-size: 9pt; font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; }--></style><link href="isoestilo.css" rel="stylesheet" type="text/css" /><style type="text/css"><!--.style20 {	font-family: ta;	font-size: 8pt;}.style21 {font-family: tahoma; font-size: 8pt; }--></style></head><body><table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="750" height="400" valign="top"><br><table width="600" border="0" align="center" bgcolor="#0066CC"> <tr> <td height="48"><div align="center" class="style18">ESCOLHA O PRODUTO </div></td> </tr> </table> <table width="600" border="0" align="center" bgcolor="#E5E5E5"> <tr> <td height="32" valign="top"><form method="post"> <table width="75%" border="0" align="center"> <tr> <td><span class="style16">Código/Produto</span> <label> <input name="Pesquisa1" type="text" autocomplete="off" class="form" id="Pesquisa1" />     <input type="submit" name="Submit" value="Pesquisar" />      <input type="button" value="Zerar" onclick="document.location='lista_produto.asp'" name="button2" /> </label></td> </tr> </table> </form></td> </tr> </table> <table width="600" border="0" align="center" bgcolor="#E5E5E5"> <tr> <td width="50%"> </td> <td width="50%"><div align="right"> <input type="button" value="Abandonar OS" onclick="document.location='lista.asp'" name="button23" /> </div></td> </tr> </table> <br> <table width="600" border="0" align="center"> <tr> <td width="16%" height="25" bgcolor="#0066CC"><div align="center" class="style8"><span class="style7">Código</span></div></td> <td width="60%" bgcolor="#0066CC"><div align="center" class="style8"><span class="style7">Produto</span></div></td> </tr> </table> <% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %> <table width="600" border="0" align="center"> <tr> <td width="16%" bgcolor="#E9E9E9" class="style16"><div align="center" class="style16"><%=(rs.Fields.Item("COD_PRODUTO").Value)%></div></td> <td width="60%" bgcolor="#E9E9E9"><span class="style16">   <A HREF="os_passo6.asp?os=3030&<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "prod=" & rs.Fields.Item("COD_PRODUTO").Value %>"><%=(rs.Fields.Item("PRODUTO").Value)%></A></span></td> </tr> </table> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext()Wend%><table width="600" border="0" align="center"> <tr> <td bgcolor="#000000"><div align="center" class="style16 style8"><%=(rs_last)%> de <%=(rs_total)%> </div></td> </tr> </table><table border="0" width="50%" align="center"> <tr> <td width="23%" align="center"><% If MM_offset <> 0 Then %> <a href="<%=MM_moveFirst%>"><img src="First.gif" border=0></a> <% End If ' end MM_offset <> 0 %> </td> <td width="31%" align="center"><% If MM_offset <> 0 Then %> <a href="<%=MM_movePrev%>"><img src="Previous.gif" border=0></a> <% End If ' end MM_offset <> 0 %> </td> <td width="23%" align="center"><% If Not MM_atTotal Then %> <a href="<%=MM_moveNext%>"><img src="Next.gif" border=0></a> <% End If ' end Not MM_atTotal %> </td> <td width="23%" align="center"><% If Not MM_atTotal Then %> <a href="<%=MM_moveLast%>"><img src="Last.gif" border=0></a> <% End If ' end Not MM_atTotal %> </td> </tr></table></td> </tr></table></body></html><%rs.Close()Set rs = Nothing%>-----------------------------------------------------------------------------------------------------------------------------********************* os_passo6.asp ************************<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="bib_conexao.asp"--><%Dim Conexao, rsMax, rsPedidoItem, strSQL, novo_codPedido, sub_total, field_name, strSQLPedDim rsCategoria, strSQL2, varIDDim QTD, varNumero_OS, varCliente, varCodCliente, varQTDEcall abre_conexaovarNumero_OS = Request.QueryString("os")Session("codPed") = varNumero_OSvarCodCliente = Request.QueryString("codcli")'----------------------------------------------------------------------------------------------Set rsPedidoItem = Server.CreateObject("ADODB.Recordset")If Request.QueryString("prod") <> "" Then rsPedidoItem.Open "SELECT * FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed") & " AND COD_Produto = " & Request.QueryString("prod"), Conexao If rsPedidoItem.EOF Then Conexao.Execute "INSERT INTO Pedido_Item (cod_Pedido, cod_Produto, qtd_Pedido, altura, largura, comprimento, m3, valor, total) VALUES (" & Session("codPed") & ", " & Request.QueryString("prod") &",1,1,1,1,1,1,1)" End If rsPedidoItem.CloseEnd IfIf Request.Form <> "" Then Conexao.Execute "DELETE FROM Pedido_Item WHERE COD_Pedido = " & Session("codPed") For Each field_name In Request.Form If field_name <> "B1" And Request.Form(field_name) <> "0" And Trim(Request.Form(field_name)) <> "" Then strSQL = "INSERT INTO Pedido_Item (COD_Pedido, COD_Produto, QTD_Pedido, altura, largura, comprimento, m3, valor, total) VALUES ("& Session("codPed") & ", " & field_name & ", " & Request.Form(field_name) & ")" Conexao.Execute strSQL End If NextEnd If%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Untitled Document</title><style type="text/css"><!--body {	margin-left: 0px;	margin-top: 0px;}.style41 {font-weight: bold; color: #FFFFFF; font-family: Verdana, Arial, Helvetica, sans-serif;}.style45 {font-size: 9px; }.style48 {font-weight: bold; color: #0066CC; font-family: Verdana, Arial, Helvetica, sans-serif; }--></style><link href="isoestilo.css" rel="stylesheet" type="text/css" /><style type="text/css"><!--.style49 {font-size: 8pt; font-family: Verdana, Arial, Helvetica, sans-serif; }.style50 {font-family: Verdana, Arial, Helvetica, sans-serif}.style52 {color: #000000; border: 1px solid #990000; background-color: #FFFFFF;}.style54 {font-size: 8pt}.style46 {font-size: 9pt;	font-family: Verdana, Arial, Helvetica, sans-serif;}--></style></head><body><table width="750" border="0" align="center" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr><%strSQLPed = "SELECT Pedido_Item.*, Produto.Produto "'strSQLPed = strSQLPed & "Produto.VLR_Unitario, Produto.URL_Imagem " strSQLPed = strSQLPed & "FROM Produto INNER JOIN Pedido_Item "strSQLPed = strSQLPed & "ON Produto.COD_Produto = Pedido_Item.COD_Produto"strSQLPed = strSQLPed & " WHERE Pedido_Item.COD_Pedido = " & Session("codPed") & " AND Produto.COD_Produto = Pedido_Item.COD_Produto"Set rsPedidoItem = Conexao.Execute(strSQLPed)If rsPedidoItem.EOF = True then Response.write ("<br><br><div align=center><b>Não há produtos em sua cesta.</b>")%><br><br><input type="button" value="Continuar Compras" onclick="document.location='index.asp'" name="ped" /><%Else%> <td width="750" height="400" valign="top"><form method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>"> <table width="100%" border="0"> <tr> <td width="10" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Código </span></div></td> <td width="28%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Descrição</span></div></td> <td width="5%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Qtde</span></div></td> <td width="6%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Altura</span></div></td> <td width="6%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Largura</span></div></td> <td width="5%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Comp</span></div></td> <td width="7%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Qtde M3 </span></div></td> <td width="10%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Valor Venda </span></div></td> <td width="11%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Total</span></div></td> <td width="13%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center" class="style45"><span class="style41">Fornecedor</span></div></td> <td width="4%" bordercolor="#FFFFFF" bgcolor="#0066CC"><div align="center"><span class="style45"><span class="style48">D</span></span></div></td> </tr> </table> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF"> <% If not rsPedidoItem.EOF then rsPedidoItem.MoveFirst sub_total = 0 While Not rsPedidoItem.EOF %> <tr align="center"> <td width="34" align="left" bgcolor="#EEEEEE" class="style49"><div align="center" class="style49"><font color="#000000"><%= rsPedidoItem("cod_Produto") %></font></div></td> <td width="203" align="left" bgcolor="#EEEEEE" class="style49"><span class="style50 style54"><font color="#000000"> <%= rsPedidoItem("Produto") %> </font> </span></td> <td width="37" align="right" bgcolor="#EEEEEE" class="style49"><div align="center" class="style50 style54"> <input name="<%= rsPedidoItem("cod_Produto") %>" type="text" class="style52" id="<%= rsPedidoItem("cod_Produto") %>" value="<%= rsPedidoItem("QTD_Pedido") %>" size="1" maxlength="2" autocomplete="off" /> </div></td> <td width="41" align="center" bgcolor="#EEEEEE" class="style49"><span class="style50 style54"><input name="altura" type="text" class="style52" id="altura" value="<%= rsPedidoItem("altura") %>" size="1" maxlength="2" autocomplete="off" /> </span></td> <td width="41" height="13" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtLargura" type="text" class="form" id="txtLargura" value="<%= rsPedidoItem("largura") %>" size="1" maxlength="5" /> </span></div></td> <td width="34" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtComprimento" type="text" class="form" id="txtComprimento" value="<%= rsPedidoItem("comprimento") %>" size="1" maxlength="5" /> </span></div></td> <td width="49" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtM3" type="text" class="form" id="txtM3" value="<%= rsPedidoItem("m3") %>" size="2" maxlength="5" /> </span></div></td> <td width="71" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtValor" type="text" class="form" id="txtValor" value="<%= rsPedidoItem("valor") %>" size="6" maxlength="10" /> </span></div></td> <td width="86" align="right" bgcolor="#EEEEEE" class="style49"><div align="center"><span class="style46"> <input name="txtTotal" type="text" class="form" id="txtTotal" value="<%= rsPedidoItem("total") %>" size="7" maxlength="10" /> </span></div></td> <td width="94" align="right" bgcolor="#EEEEEE" class="style49"> </td> <td width="26" height="13" align="center" bgcolor="#EEEEEE" class="style49"><a href="ExcluiItem.asp?os=<%=varNumero_OS%>&prod=<%= rsPedidoItem("cod_Produto")%>"><img src="lixeira.jpg" width="15" height="20" border="0" /></a> </td> </tr> <% 'Calcula subtotal e peso total' sub_total = sub_total + rsPedidoItem("QTD_Pedido") * rsPedidoItem("VLR_Unitario") rsPedidoItem.MoveNext Wend rsPedidoItem.Close ' Session("sub_total") = sub_total ' sub_total = replace(sub_total, ",",".") ' Conexao.Execute "UPDATE Pedidos SET sub_total = " & sub_total & " WHERE cod_Pedido = " & Session("codPed") 'Conexao.Close %> </table> <table width="605" border="0" align="center"> <tr> <td height="31"><div align="center"> <input name="button22" type="button" id="button2" onclick="document.location='os_passo5.asp'" value="Inserir Produtos" />      <input type="submit" value="Recalcular" name="B1" /> </div></td> </tr> </table> <table width="605" border="0" align="center"> <tr> <td><label></label></td> </tr> <tr> <td><div align="center"></div></td> </tr> </table> </form><%End If%>	</td> </tr></table><% Conexao.Close%></body></html>-------------------------------------------------------------------------------------------------------------------------------- *********** bib.asp ********************<%' FileName="Connection_ado_conn_string.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_bib_STRINGMM_bib_STRING = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=isopor;USER=root;PASSWORD=;OPTION=3;"%>----------------------------------------------------------------------------------------------------***************** bib_conexao.asp ************************<%sub abre_conexaoset Conexao = CreateObject("ADODB.Connection")Conexao.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=isopor;USER=root;PASSWORD=;OPTION=3;"end subsub fecha_conexao Conexao.close Set Conexao =nothingend sub%>--------------------------------------------------------------------------------------------------------**************** ExcluiItem.asp *******************<%Option Explicit%><!--#include file="bib_conexao.asp"--><%'Exclui o produto selecionado no carrinhoDim Conexao, rs, strSQL, varItemvarItem = Request("prod")strSQL = "DELETE FROM Pedido_Item WHERE Cod_Pedido = " & Session("codPed") & " AND Cod_Produto = " & varItemCall abre_ConexaoSet rs = Conexao.Execute(strSQL)Call fecha_ConexaoSet rs = NothingResponse.Redirect "os_passo6.asp?os=3030"%>---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------# Banco MySQL# isopor.sql# EMS MySQL Manager 2.7.0.1# ---------------------------------------# Host : localhost# Port : 3306# Database : isoporSET FOREIGN_KEY_CHECKS=0;CREATE DATABASE `isopor`;USE `isopor`;## Structure for the `admin` table : #CREATE TABLE `admin` ( `CODIGO` tinyint(3) NOT NULL auto_increment, `LOGIN` varchar(30) default NULL, `SENHA` varchar(30) default NULL, `NOME` varchar(30) default NULL, `URL` varchar(50) default NULL, `NIVEL` varchar(20) default NULL, `CHAVE` varchar(100) default NULL, PRIMARY KEY (`CODIGO`)) TYPE=MyISAM;## Structure for the `cliente` table : #CREATE TABLE `cliente` ( `COD_CLIENTE` int(3) NOT NULL auto_increment, `NOME` varchar(150) default NULL, `FANTASIA` varchar(80) default NULL, `ENDERECO` varchar(150) default NULL, `BAIRRO` varchar(100) default NULL, `CIDADE` varchar(80) default NULL, `TELEFONE` varchar(20) default NULL, `ENDERECO_ENTREGA` varchar(150) default NULL, `BAIRRO_ENTREGA` varchar(100) default NULL, `CIDADE_ENTREGA` varchar(80) default NULL, PRIMARY KEY (`COD_CLIENTE`), CONSTRAINT `cliente_ibfk_1` FOREIGN KEY (`COD_CLIENTE`) REFERENCES `cliente` (`COD_CLIENTE`)) TYPE=InnoDB;## Structure for the `fornecedor` table : #CREATE TABLE `fornecedor` ( `COD_FORNECEDOR` int(3) NOT NULL auto_increment, `FORNECEDOR` varchar(150) default NULL, PRIMARY KEY (`COD_FORNECEDOR`)) TYPE=InnoDB;## Structure for the `ordem` table : #CREATE TABLE `ordem` ( `Codigo` int(4) NOT NULL auto_increment, `numeroOS` varchar(50) NOT NULL default '', `cliente` varchar(150) default NULL, `fantasia` varchar(100) default NULL, `endereco` varchar(200) default NULL, `cidade` varchar(100) default NULL, `bairro` varchar(100) default NULL, `telefone` varchar(50) default NULL, `fornecedor` varchar(50) default NULL, `ordem` mediumtext, `data` varchar(50) default NULL, PRIMARY KEY (`Codigo`), UNIQUE KEY `Codigo` (`Codigo`)) TYPE=MyISAM;## Structure for the `produto` table : #CREATE TABLE `produto` ( `COD_PRODUTO` int(11) default NULL, `PRODUTO` varchar(100) default NULL, `VRL_UNITARIO` varchar(10) default NULL, `URL_IMAGEM` varchar(50) default NULL, KEY `PRODUTO` (`PRODUTO`), KEY `COD_PRODUTO` (`COD_PRODUTO`)) TYPE=InnoDB;## Structure for the `pedidos` table : #CREATE TABLE `pedidos` ( `COD_Pedido` int(11) NOT NULL default '0', `COD_CLIENTE` int(11) default NULL, `CLIENTE` varchar(200) default NULL, `DATA_ENTREGA` varchar(10) default NULL, `FORMA` varchar(50) default NULL, `DEP_CONTA` varchar(50) default NULL, `PAGO` varchar(5) default NULL, `TIPO` varchar(50) default NULL, `RECORTE` char(3) default NULL, `VENDEDOR` varchar(50) default NULL, `OBSERVACAO` text, `DATA` varchar(20) default NULL, `sub_total` varchar(10) default NULL, `total` varchar(10) default NULL, KEY `COD_Pedido` (`COD_Pedido`)) TYPE=InnoDB;## Structure for the `pedido_item` table : #CREATE TABLE `pedido_item` ( `COD_Pedido` int(11) default NULL, `COD_PRODUTO` int(11) default NULL, `qtd_Pedido` varchar(11) default NULL, `ALTURA` int(11) default NULL, `LARGURA` int(11) default NULL, `COMPRIMENTO` int(11) default NULL, `M3` int(11) default NULL, `VALOR` varchar(11) default NULL, `TOTAL` varchar(11) default NULL, KEY `NUMERO_OS` (`COD_Pedido`), KEY `COD_PRODUTO` (`COD_PRODUTO`), CONSTRAINT `pedido_item_ibfk_3` FOREIGN KEY (`COD_PRODUTO`) REFERENCES `produto` (`COD_PRODUTO`) ON DELETE CASCADE ON UPDATE CASCADE, CONSTRAINT `pedido_item_ibfk_4` FOREIGN KEY (`COD_Pedido`) REFERENCES `pedidos` (`COD_Pedido`) ON DELETE CASCADE ON UPDATE CASCADE) TYPE=InnoDB;## Structure for the `status` table : #CREATE TABLE `status` ( `COD_Pedido` int(11) default NULL, `STATUS` varchar(100) default NULL, `EM` varchar(20) default NULL, `OBS` text, `EFETUADO` char(1) default NULL, KEY `COD_Pedido` (`COD_Pedido`), CONSTRAINT `status_ibfk_1` FOREIGN KEY (`COD_Pedido`) REFERENCES `pedidos` (`COD_Pedido`) ON DELETE CASCADE ON UPDATE CASCADE) TYPE=InnoDB;## Structure for the `tipo` table : #CREATE TABLE `tipo` ( `COD_TIPO` int(4) NOT NULL auto_increment, `TIPO` varchar(50) default NULL, PRIMARY KEY (`COD_TIPO`)) TYPE=MyISAM;## Structure for the `vendedor` table : #CREATE TABLE `vendedor` ( `COD_VENDEDOR` int(4) NOT NULL auto_increment, `VENDEDOR` varchar(20) default NULL, PRIMARY KEY (`COD_VENDEDOR`)) TYPE=MyISAM;## Data for the `admin` table (LIMIT 0,500)#INSERT INTO `admin` (`CODIGO`, `LOGIN`, `SENHA`, `NOME`, `URL`, `NIVEL`, `CHAVE`) VALUES (1,'admin','admin','Saulo','lista.asp','Administrador','pc52e5c5Ñ??¦O¸??ÙÙÍΧA¦AAaÌÞÞ'), (5,'ed','ed','Ednaldo','lista2.asp','Usuário','llvjd54des'), (6,'ric','ric','Ricardo','lista2.asp','Usuário','llvjd54des'), (8,'se','se','Sergio','','Usuário','llvjd54des');COMMIT;## Data for the `cliente` table (LIMIT 0,500)#INSERT INTO `cliente` (`COD_CLIENTE`, `NOME`, `FANTASIA`, `ENDERECO`, `BAIRRO`, `CIDADE`, `TELEFONE`, `ENDERECO_ENTREGA`, `BAIRRO_ENTREGA`, `CIDADE_ENTREGA`) VALUES (1,'Saulo Fernandes','Vision Ltda.','Rua Angela R S Moraes, 141','Potiguara','Itu','11-40234407','Rua da Varzea','Centro','Itu'), (2,'Ricardo Oliveira','Oliver','rua da varzea','centro','Itu','11 4025-4587',NULL,NULL,NULL), (3,'Daniel Almeida',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL), (4,'Juliana',NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL), (5,'Patricia','super pat','','','','','','',''), (7,'Jerundio','jeres','Rua da Varzea, 545','Cento','Salto','40280567',NULL,NULL,NULL), (9,'Lourdes','lu','rua do potiguara','vila mariana','são paulo','40280567',NULL,NULL,NULL), (10,'Arnold Shwarzenegger','Terminator 3','Rua de hollywood','potiguara','Los Angeles','5454545','o mesmo','',''), (11,'Metalurgica Convenção de Itu S/A.','MCI','Rua Ângela Regina Silveira Moraes, 141','Residencial Potiguara','Itu','11 40234407',NULL,NULL,NULL);COMMIT;## Data for the `fornecedor` table (LIMIT 0,500)#INSERT INTO `fornecedor` (`COD_FORNECEDOR`, `FORNECEDOR`) VALUES (1,'Mabe'), (2,'Elma Chips'), (3,'Schincariol'), (4,'Petrobras'), (5,'Ingram Micro');COMMIT;## Data for the `ordem` table (LIMIT 0,500)#INSERT INTO `ordem` (`Codigo`, `numeroOS`, `cliente`, `fantasia`, `endereco`, `cidade`, `bairro`, `telefone`, `fornecedor`, `ordem`, `data`) VALUES (31,'404070','Dona Florinda','','','','','','','Produto: Isopor altura = 50 largura = 20 comprimento = 60 metro cúbico = 1,800\r\nProduto Isopor 3G altura = 20 largura = 2512','22/12/2006 10:03:03'), (32,'606095','Chaves','','','','','','','blah','12/12/2006 16:52:43'), (20,'505050','Giovani','','','','','','','Volei Ball','8/12/2006 21:14:08'), (21,'202020','João Carlos','','','','','','','legal','8/12/2006 21:23:08'), (22,'101010','Claudia','','','','','','','TEste','9/12/2006 10:37:01'), (7,'5647414','Sergio','','','','','','','','8/12/2006 16:03:47'), (8,'521410','André','','','','','','','','8/12/2006 16:03:59'), (9,'365847','Marcio','','','','','','','','8/12/2006 16:04:13'), (10,'585747','Vanessa','','','','','','','','8/12/2006 16:04:24'), (11,'454141','Reinaldo','','','','','','','','8/12/2006 16:04:32'), (12,'5268547','Tiago','','','','','','','','8/12/2006 16:04:51'), (13,'525252','mercedez','','','','','','','','8/12/2006 16:15:17'), (14,'101020','julio','','','','','','','','8/12/2006 16:15:26'), (15,'547474','fabiano','','','','','','','','8/12/2006 16:15:36'), (16,'412565','vagner','','','','','','','','8/12/2006 16:15:51'), (23,'101515','Major','','','','','','','teste','9/12/2006 10:38:00'), (18,'256541','Lourdes','','','','','','','','8/12/2006 20:03:28'), (24,'606060','Frederico','','','','','','','jornal','9/12/2006 11:01:01'), (25,'404040','Celso','','','','','','','Teste do Celso','9/12/2006 11:25:09'), (26,'202010','Sergio','','','','','','','dkjfdkfja sdfkasdf asdf','9/12/2006 16:14:21'), (27,'605090','Luiz','','','','','','','teste','12/12/2006 14:09:42'), (28,'506080','Luizinho','','','','','','','teste','12/12/2006 14:12:24'), (29,'707070','Paulo Silveira','','','','','','','Outro teste','12/12/2006 20:08:22'), (30,'696969','Ednaldo Raimundo da Silva','','','','','','','Teste','12/12/2006 16:15:10');COMMIT;## Data for the `produto` table (LIMIT 0,500)#INSERT INTO `produto` (`COD_PRODUTO`, `PRODUTO`, `VRL_UNITARIO`, `URL_IMAGEM`) VALUES (5025,'ISOPOR A3','2,50',NULL), (5026,'ISOPOR SINTETICO S7','3,20',NULL), (5027,'ISOPOR VERMELHO TECNIQUE','1,99',NULL), (5029,'Isopor da cor preta A7','5,60',NULL);COMMIT;## Data for the `pedidos` table (LIMIT 0,500)#INSERT INTO `pedidos` (`COD_Pedido`, `COD_CLIENTE`, `CLIENTE`, `DATA_ENTREGA`, `FORMA`, `DEP_CONTA`, `PAGO`, `TIPO`, `RECORTE`, `VENDEDOR`, `OBSERVACAO`, `DATA`, `sub_total`, `total`) VALUES (3030,10,'Arnold Shwarzenegger','02/02/2007','A VISTA','58414528','SIM','DINHEIRO','SIM','BATISTA','teste','2/1/2007 20:15:57',NULL,NULL);COMMIT;## Data for the `tipo` table (LIMIT 0,500)#INSERT INTO `tipo` (`COD_TIPO`, `TIPO`) VALUES (1,'BOLETO'), (2,'CHEQUE'), (3,'DINHEIRO');COMMIT;## Data for the `vendedor` table (LIMIT 0,500)#INSERT INTO `vendedor` (`COD_VENDEDOR`, `VENDEDOR`) VALUES (1,'WILLIAN'), (2,'EDNALDO'), (3,'ALGNALDO'), (5,'BATISTA');COMMIT;