ANDRE_GUSTAVO

Fala ai jothaz, beleza? Cara eu vou usar ASP / ACCESS Preciso de uma luz, um caminho pra fazer esse sistema To lascado cara hauhauhauhauhauha! Até mais

Fala ai galera beleza? Tenho um site de uma transportadora pra desenvolver, que tera um sistema para que os clientes entre com um codigo, atravez desse codigo o cliente vai poder monitorar sua carga, qual a sua localização horario previsto para chegada da carga e tal. Não tenho a minima ideia de como começar ou por onde começar Se alguém ai sabe como se faz um sistema desse e puder me ajudar, eu agradeço desde já. Valeu pela atenção.

Valeu pela dica, consegui arrumar o problema... ate mais obrigado.

Oh eu aqui de novo hauhauahuahauhauha... Fala ai galera, só na paz?!?!?!?!? O problema dessa vez é o seguinte: tenho um formulario de cadastro de usuarios, que faz a validação se já existe algum usuario com o login digitado. beleza, a validação ta funcionando. Se já existir um usuario cadastrado, retorna a pagina do formulario para ser informado outro logim, se ainda não existe ele grava no BD. Ai é que ta o problema, antes de colocar o script para a validação o sistema tava salvando os dados no BD sem problemas, mas depois que inseri o script para a validação o sistema não esta salvando as informações no BD. Da o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) Microsoft][Driver ODBC para Microsoft Access] O campo 'Usuarios.Nome' não pode ser uma seqüência de caracteres de comprimento nulo. salvaCadastro.asp, line 31 <% DIM conexaoDataBase DIM strIns , rsUsuarios DIM varNome , varEndereco , varCidade , varEstado , varTelefone , varEmail , varLogin , varSenha varNome = TRIM ( Request.Form("txtNome")) varEndereco = TRIM ( Request.Form("txtEndereco")) varCidade = TRIM ( Request.Form("txtCidade")) varEstado = TRIM ( Request.Form("txtEstado")) varTelefone = TRIM ( Request.Form("txtTelefone")) varEmail= TRIM (Request.Form("txtEmail")) varLogin = TRIM (Request.Form("txtLogin")) varSenha = TRIM (Request.Form("txtSenha")) varTelefone = REPLACE(varTelefone, "-()" , " ") strIns = "INSERT INTO Usuarios" strIns = strIns & "( Nome , Endereco , Cidade , Estado , Telefone , Email , Login , Senha )" strIns = strIns + "VALUES ('" + varNome + "' , " strIns = strIns + "'" + varEndereco + "' , " strIns = strIns + "'" + varCidade + "' , " strIns = strIns + "'" + varEstado + "' , " strIns = strIns + "'" + varTelefone + "' , " strIns = strIns + "'" + varEmail + "' , " strIns = strIns + "'" + varLogin + "' , " strIns = strIns + "'" + varSenha + "' )" call abreConexao SET rsUsuarios = conexaoDataBase.Execute(strIns) %> Valeu pela atenção. Desde já muito obrigado.

strLivros = "UPDATE Livros SET " strLivros = strLivros + "codLivro = '" + varCodLivro + "', " strLivros = strLivros + "categoria = '" + varCategoria + "', " strLivros = strLivros + "titulo = '" + varTitulo + "', " strLivros = strLivros + "autor = '" + varAutor + "', " strLivros = strLivros + "nPaginas = " + varNPaginas + ", " strLivros = strLivros + "formato = '" + varFormato + "', " strLivros = strLivros + "resenha = '" + varResenha + "', " strLivros = strLivros + "preço = " + varPreco + ", " strLivros = strLivros + "lancamento = '" + varLancamento + "', " strLivros = strLivros + "dataPub = '" + vardataPub + "' " strLivros = strLivros + "WHERE codLivro = '" + varIdLivro + "' " Set rsLivros = conexaoDataBase.Execute(strLivros)

strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"', WHERE CodLivro = "& varIdLivro No banco de dados o campo autonumerico se chama COD

jow, não to conseguindo fazer funcionar cara... tentei fazer como você me falou, comparando com o campo de autonumeraçao, mas não quer dar certo. olha so o erro que da: Tipo de dados imcompatível na expressão de critério. /nasp/laboratorios/Lab11_2C.asp, line 25 Segue abaixo as páginas: ____________________________________________________________________________________ Página que exibe os registros para a escolha da alteração: Lab11_2A.asp ____________________________________________________________________________________ <% @LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT %> <!-- #Include file="../conexao.inc" --> <% DIM conexaoDataBase , rsLivros , strLivros call abreConexao strLivros = "SELECT * FROM livros " strLivros = strLivros & "ORDER BY Titulo " Set rsLivros = conexaoDataBase.Execute(strLivros) %> <html> <head> <title>Alterando registros da tabela livros</title> </head> <body> Alteração de livros da editora<BR><BR> <table border='1' cellpadding='2' cellspacing='0' > <% DO WHILE NOT rsLivros.EOF %> <tr> <td><img border="0" src="../capas/<% = rsLivros("CodLivro") %>.jpg" width="59" height="84"></TD> <TD><a href="Lab11_2B.asp?CodLivro1=<% = rsLivros("CodLivro") %>"><% = rsLivros ("Titulo") %></a></TD> </TR> <% rsLivros.MoveNext Loop %> </table> </body> </html> <% rsLivros.Close call fechaConexao Set rsLivros = Nothing %> ____________________________________________________________________________________ ____________________________________________________________________________________ Formulario que recebe os valores enviados da pagina anterior: Lab11_2B.asp ____________________________________________________________________________________ <% @LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT %> <!-- #Include file="../conexao.inc" --> <% DIM conexaoDataBase , rsLivros , strLivros Call abreConexao strLivros = "SELECT * FROM livros " strLivros = strLivros & "WHERE CodLivro = '"+ request.queryString ("CodLivro1") +"' " Set rsLivros = conexaoDataBase.Execute(strLivros) %> <html> <head> <title>Inserindo Livros na tabela de LIvros</title> &lt;script LANGUAGE="JAVASCRIPT"> Functio ValidaForm() { if (document.formLivro.txtCodigo.value.length <1) { alert (" O campo ISBN não pode ficar em branco. "); formLivro.txtCodigo.focus(); return false; } if (document.formLivro.txtCodCategoria.value.length <1) { alert (" O campo Codigo de Categoria não pode ficar em branco. "); formLivro.txtCodCategoria.focus(); return false; } if (document.formLivro.txtTitulo.value.length <1) { alert (" O campo TITULO não pode ficar em branco. "); formLivro.txtTitulo.focus(); return false; } if (document.formLivro.txtAutor.value.length <1) { alert (" O campo AUTOR não pode ficar em branco. "); formLivro.txtAutor.focus(); return false; } if (document.formLivro.txtPreco.value.length <1) { alert (" O campo PREÇO não pode ficar em branco. "); formLivro.txtPreco.focus(); return false; } if (document.formLivro.txtCapa.value.length <1) { alert (" O campo Imagen da Capa não pode ficar em branco. "); formLivro.txtCodigo.focus(); return false; } return true; } </SCRIPT> </head> <body> <form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return ValidaForm(this);"> ALTERANDO REGISTROS de livros<BR><BR> Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento obrigatorio.<BR> <table border="0" cellpadding="0" cellspacing="0" width="100%" > <tr> <td width="20%"> ISBN: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = rsLivros("CodLivro") %>">*</TD> </tr> <tr> <td width="20%"> Codigo da Categoria </td> <td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = rsLivros("Categoria") %>">*</TD> </tr> <tr> <td width="20%"> Titulo: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = rsLivros("Titulo") %>">*</TD> </tr> <tr> <td width="20%"> Autor: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = rsLivros("Autor") %>">*</TD> </tr> <tr> <td width="20%"> Número de Páginas: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = rsLivros("NPaginas") %>">*</TD> </tr> <tr> <td width="20%"> Formato: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = rsLivros("Formato") %>">*</TD> </tr> <tr> <td width="20%"> Preço: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = rsLivros("preço") %>">*</TD> </tr> <tr> <td width="20%"> Resenha: </TD> <td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = rsLivros("Resenha") %></textarea></TD> </tr> <tr> <td width="20%"> Lançamento S/N: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = rsLivros("Lancamento") %>">*</TD> </tr> <tr> <td width="20%"> Data de Publicação: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = rsLivros("DataPub") %>">*</TD> </tr> <tr> <td width="20%"></TD> <td width="80%"> <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("COD") %>" > <INPUT TYPE="Submit" Value="Alterar" NAME="btInsere"> <INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa"> </TD> </tr> </table> </FORM> </body> </html> ____________________________________________________________________________________ ____________________________________________________________________________________ Página que faz o UPDATE : Lab11_2C.asp ____________________________________________________________________________________ <% @LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT %> <!-- #Include file="../conexao.inc" --> <% DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , varFormato , varPreco , varLancamento , varDataPub , varIdLivro varIdLivro = TRIM ( Request.Form ("idLivro")) varCodLivro = TRIM ( Request.Form ("txtCodigo")) varCategoria = TRIM ( Request.Form ("txtCategoria")) varTitulo = TRIM ( Request.Form ("txtTitulo")) varAutor = TRIM ( Request.Form ("txtAutor")) varFormato = TRIM ( Request.Form ("txtFormato")) varNPaginas = TRIM ( Request.Form ("txtNPaginas")) varPreco = TRIM ( Request.Form ("txtPreco")) varResenha = TRIM ( Request.Form ("txtResenha")) varLancamento = TRIM ( Request.Form ("txtLancamento")) varDataPub = TRIM ( Request.Form ("txtDataPub")) varPreco = REPLACE ( varPreco , "," , ".") Call abreConexao strLivros = "UPDATE Livros SET CodLivro = '"& varCodLivro &"', Categoria= '"& varCategoria &"', Titulo= '"& varTitulo &"', Autor= '"& VarAutor &"', Formato= '"& varFormato &"', NPaginas= '"& varNPaginas &"', preço= "& varPreco &", Resenha= '"& varResenha &"', Lancamento= '"& varLancamento &"', DataPub= '"& varDataPub &"' WHERE CodLivro = "& varIdLivro Set rsLivros = conexaoDataBase.Execute(strLivros) Call fechaConexao Set rsLivros = Nothing %> <html> <head> <title> Alterando registros da tabela livros </title> </head> <body> Alteração executada com sucesso! </body> </html> ________________________________________________________________________________________________________ Cara essas são as 3 paginas que estou utilizando.

Fala ai jow... esse formulario recebe os valores de uma outra pagina anterior com os registros cadastrado, na qual o usuario escolhe qual o registro a ser alterado <% = rsLivros("CodLivro") %> recebe o valor do CodLivro escolhido pelo usuario, esse campo não e autonumerico, no caso CodLivro é o ISBN dos livros cadastrados. Por tanto CodLivro no banco de dados recebe os valores enviados pelo usuario. Olha so o que ta dando agora... Erro de sintaxe (operador faltando) na expressão de consulta '17x24 cm'. /nasp/laboratorios/Lab11_2C.asp, line 25 Call abreConexao strLivros = "UPDATE Livros SET CodLivro ='"& varCodLivro &"', categoria='"& varCategoria &"', Titulo='"& varTitulo &"', Autor='"& VarAutor &"', Formato= '"& varFormato &"', NPaginas="& varNPaginas &", preço="& varPreco &", Resenha='"& varResenha &"', Lancamento='"& varLancamento &"', DataPub='"& varDataPub &"' WHERE CodLivro = "& varIdLivro Set rsLivros = conexaoDataBase.Execute(strLivros) Call fechaConexao Set rsLivros = Nothing Fala ai jow... esse formulario recebe os valores de uma outra pagina anterior com os registros cadastrado, na qual o usuario escolhe qual o registro a ser alterado <% = rsLivros("CodLivro") %> recebe o valor do CodLivro escolhido pelo usuario, esse campo não e autonumerico, no caso CodLivro é o ISBN dos livros cadastrados. Por tanto CodLivro no banco de dados recebe os valores enviados pelo usuario. Olha so o que ta dando agora... Tipo de dados imcompatível na expressão de critério. /nasp/laboratorios/Lab11_2C.asp, line 25 Call abreConexao strLivros = "UPDATE Livros SET CodLivro ='"& varCodLivro &"', categoria='"& varCategoria &"', Titulo='"& varTitulo &"', Autor='"& VarAutor &"', Formato= '"& varFormato &"', NPaginas="& varNPaginas &", preço="& varPreco &", Resenha='"& varResenha &"', Lancamento='"& varLancamento &"', DataPub='"& varDataPub &"' WHERE CodLivro = "& varIdLivro Set rsLivros = conexaoDataBase.Execute(strLivros) Call fechaConexao Set rsLivros = Nothing

CodLivro = "& varIdLivro não é autonumerico e sim digitado pelo usuario segue abaixo o form <form name="formLivro" method="POST" ACTION="Lab11_2C.asp" onSubmit="return ValidaForm(this);"> ALTERANDO REGISTROS de livros<BR><BR> Informe os dados do livro a ser inserido. Os campos com (*) são de preenchimento obrigatorio.<BR> <table border="0" cellpadding="0" cellspacing="0" width="100%" > <tr> <td width="20%"> ISBN: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtCodigo" value="<% = rsLivros("CodLivro") %>">*</TD> </tr> <tr> <td width="20%"> Codigo da Categoria </td> <td width="80%"><INPUT TYPE="text" name="txtCodCategoria" value="<% = rsLivros("Categoria") %>">*</TD> </tr> <tr> <td width="20%"> Titulo: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtTitulo" value="<% = rsLivros("Titulo") %>">*</TD> </tr> <tr> <td width="20%"> Autor: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtAutor" value="<% = rsLivros("Autor") %>">*</TD> </tr> <tr> <td width="20%"> Número de Páginas: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtNPaginas" value="<% = rsLivros("Formato") %>">*</TD> </tr> <tr> <td width="20%"> Formato: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtFormato" value="<% = rsLivros("NPaginas") %>">*</TD> </tr> <tr> <td width="20%"> Preço: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtPreco" value="<% = FormatCurrency(rsLivros("preço") , 2) %>">*</TD> </tr> <tr> <td width="20%"> Resenha: </TD> <td width="80%"><Textarea NAME="txtResenha" rows="5" cols="40"><% = rsLivros("Resenha") %></textarea></TD> </tr> <tr> <td width="20%"> Lançamento S/N: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtLancamento" value="<% = rsLivros("Lancamento") %>">*</TD> </tr> <tr> <td width="20%"> Data de Publicação: </TD> <td width="80%"><INPUT TYPE="TEXT" NAME="txtDataPub" value="<% = rsLivros("DataPub") %>">*</TD> </tr> <tr> <td width="20%"></TD> <td width="80%"> <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("CodLivro") %>" > <INPUT TYPE="Submit" Value="Alterar" NAME="btInsere"> <INPUT TYPE="Reset" Value="Limpar Campos" NAME="btLimpa"> </TD> </tr> </table> </FORM>

Fala ai Jow alterei o programa como me indicou, mas continua dando erro. Tipo de dados imcompatível na expressão de critério. /nasp/laboratorios/Lab11_2C.asp, line 25 Call abreConexao strLivros = "UPDATE Livros SET CodLivro ='"& varCodLivro &"', categoria='"& varcategoria &"', Titulo='"& varTitulo &"', Autor='"& VarAutor &"', NPaginas="& varNPaginas &", Formato='"& varFormato &"', preço="& varPreco &", resenha='"& varResenha &"', Lancamento='"& varLancamento &"', dataPub='"& vardataPub &"' WHERE CodLivro = "& varIdLivro Set rsLivros = conexaoDataBase.Execute(strLivros) Call fechaConexao Set rsLivros = Nothing Não sei o por que, quando eu posto a letra "C" >>> preço="& varPreco &" esta sendo substituida pelo "Ç" mas na verdade é sem o "Ç" Valeu

Marianne eu fiz como você me falou, mas ainda continua dando o mesmo erro de sintaxe na instrução UPDATE. na linha 35 veja como eu fiz: strLivros = " UPDATE Livros SET " strLivros = strLivros & "CodLivro = " & varCodLivro strLivros = strLivros & ", categoria = " & varCategoria strLivros = strLivros & ", Titulo = " & varTitulo strLivros = strLivros & ", Autor = " & varAutor strLivros = strLivros & ", NPaginas = " & varNPaginas strLivros = strLivros & ", Formato = " & varFormato strLivros = strLivros & ", preço = " & varPreco strLivros = strLivros & ", resenha = " & varResenha strLivros = strLivros & ", Lancamento = " & varLancamento strLivros = strLivros & ", dataPub = " & varDataPub strLivros = strLivros & ", WHERE CodLivro = " & varIdLivro Set rsLivros = conexaoDataBase.Execute(strLivros) Call fechaConexao Set rsLivros = Nothing

Fala ai galera, estou com problema na instrução UPDATE, alguém pode me ajudar? Obrigado Erro de sintaxe na instrução UPDATE. /nasp/laboratorios/Lab11_2C.asp, line 35 codigo: <% @LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT %> <!-- #Include file="../conexao.inc" --> <% DIM conexaoDataBase , rsLivros , strLivros , varCodLivro , varCategoria , varTitulo , varAutor , varNPaginas , varResenha , varFormato , varPreco , varLancamento , varDataPub , varIdLivro varIdLivro = TRIM ( Request.Form ("IdLivro")) varCodLivro = TRIM ( Request.Form ("txtCodigo")) varCategoria = TRIM ( Request.Form ("txtCategoria")) varTitulo = TRIM ( Request.Form ("txtTitulo")) varAutor = TRIM ( Request.Form ("txtAutor")) varNPaginas = TRIM ( Request.Form ("txtNPaginas")) varFormato = TRIM ( Request.Form ("txtFormato")) varPreco = TRIM ( Request.Form ("txtPreco")) varResenha = TRIM ( Request.Form ("txtResenha")) varLancamento = TRIM ( Request.Form ("txtLancamento")) varDataPub = TRIM ( Request.Form ("txtDataPub")) varPreco = REPLACE ( varPreco , "," , ".") Call abreConexao strLivros = " UPDATE Livros SET " strLivros = strLivros + "CodLivro = '" + varCodLivro + "', " strLivros = strLivros + "categoria = '" + varCategoria + "', " strLivros = strLivros + "Titulo = '" + varTitulo + "', " strLivros = strLivros + "Autor = '" + varAutor + "', " strLivros = strLivros + "NPaginas = " + varNPaginas + ", " strLivros = strLivros + "Formato = '" + varFormato + "', " strLivros = strLivros + "preço = " + varPreco + ", " strLivros = strLivros + "resenha = '" + varResenha + "', " strLivros = strLivros + "Lancamento = '" + varLancamento + "', " strLivros = strLivros + "dataPub = '" + varDataPub + "', " strLivros = strLivros + "WHERE CodLivro = '" + varIdLivro + "', " Set rsLivros = conexaoDataBase.Execute(strLivros) Call fechaConexao Set rsLivros = Nothing %> <html> <head> <title> Alterando registros da tabela livros </title> </head> <body> Alteração executada com sucesso! </body> </html>

TENHO UMA PAGINA QUE EXIBE OS REGISTRO DE UMA TABELA E NESSA MESMA PAGINA EXISTE LINKS PARA EXIBIÇÃO DE REGISTROS POR CAMPO. Ex.: NOME - ANO .... TIPO( TIPO1 - TIPO2 - TIPO3 - TIPO4) ANTES DE EU COLOCAR OS LINK, A PAGINAÇÃO ESTA TUDO OK, MAS DEPOIS QUE COLOQUEI OS LINKS ( TIPO1 - TIPO2 - TIPO3 - TIPO4) O BOTAO QUE ENVIA PARA PROXIMA PAGINA não ESTA FUNCIONANDO, ELE ESTA ENVIANDO PARA UMA PAGINA EM BRANCO. SEGUE ABAIXO O CODIGO: LINK PARA PAGINA DE EXIBIÇÃO DE TODOS OS REGISTROS: <a href="maquinas_disponiveis.asp?tipo=a" target="conteudo">M&aacute;quinas Disponiv&eacute;is</a> PAGINA QUE EXIBE OS REGISTROS: <% tipo= request.QueryString("tipo") if (tipo = "a") then 'Abrimos a Conexão com o Banco Dim caminho Dim conexao caminho = Server.MapPath("bddados/gilmaquinas.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM maquinasdisponiveis order by id desc" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 10 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head><title>GIL MAQUINAS</title> <style type="text/css"> <!-- .style8 {color: #1C584C} .style9 {color: #FFFFFF} body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } a:link { color: #1C584C; text-decoration: none; } a:visited { text-decoration: none; color: #1C584C; } a:hover { text-decoration: underline; color: #1C584C; } a:active { text-decoration: none; color: #1C584C; } --> </style> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body> <table width="100%" cellspacing="1" cellpadding="1"> <tr> <td background="images/GIL-MAQUINAS(fatias)_25.jpg"><div align="center"><span class="style8 style1"><strong>M&aacute;quinas Dispon&iacute;veis</strong></span></div></td> </tr> <tr> <td bgcolor="#DEE7DF"><div align="center" class="style4"><span class="style5"><br /> <span class="style8"><a href="maquinas_disponiveis.asp?tipo=Monocolor">Monocolor</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Bicolor">Bicolor</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=4cores">4-Cores</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Rotativa">Rotativa</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Guilhotina">Guilhotinas</a> &nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Outras">Outras</a>&nbsp;</span>&nbsp;</span><br /> <br /> </div></td> </tr> </table> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <br> <table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="9%" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style8 style2"><strong><span class="style9">C&oacute;d</span>.</strong></span></div></td> <td width="91%" bordercolor="#1C584C" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style2 style9"><strong>Descri&ccedil;&atilde;o da M&aacute;quina </strong></span></div> <div align="center"></div> <div align="center"></div></td> </tr> <tr> <td height="21" bgcolor="#ECECEC"><div align="center"><%=rsBuscaProdutos("Id")%></div></td> <td bordercolor="#1C584C" bgcolor="#ECECEC" class="style11"><div align="left"><span class="style12"> <span > <span> </span>&nbsp;<%=rsBuscaProdutos("Marca")%>, <%=rsBuscaProdutos("Modelo")%>, <%=rsBuscaProdutos("Ano_Fabricacao")%>, <%=rsBuscaProdutos("Formato_Padrao")%> .<br> <span class="style6"><font color="#FF0000"><B>&nbsp;R$: <%=rsBuscaProdutos("Valor_da_Maquina")%></B></font></span></span><font color="#FF0000"><b> </b></font></span>&nbsp;|&nbsp;&nbsp;&nbsp;<strong>Tipo:<font color="#9B9B9B"> <%=rsBuscaProdutos("Tipo")%></font>&nbsp;&nbsp;</strong>| &nbsp;<strong>Fotos:</strong></div></td> </tr> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <br> </table> <br> <div align="center"> <% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="maquinas_disponiveis.asp?pagina=<%=intpagina-1%>">Anterior</a> &nbsp; <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="maquinas_disponiveis.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% end if rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </div> <div align="center"><br> </div> </body> </html> <% else caminho = Server.MapPath("bddados/gilmaquinas.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" 'Selecionamos todos os Produtos da Tabela Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM maquinasdisponiveis WHERE Tipo = '"&tipo&"' ORDER BY id desc" rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset rsBuscaProdutos.PageSize = 10 'Criamos as Validações if rsBuscaProdutos.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else 'Definimos em qual pagina o visitante está if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then intpagina = rsBuscaProdutos.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> <html> <head><title>GIL MAQUINAS</title> <style type="text/css"> <!-- .style8 {color: #1C584C} .style9 {color: #FFFFFF} body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } a:link { color: #1C584C; text-decoration: none; } a:visited { text-decoration: none; color: #1C584C; } a:hover { text-decoration: underline; color: #1C584C; } a:active { text-decoration: none; color: #1C584C; } --> </style> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body> <table width="100%" cellspacing="1" cellpadding="1"> <tr> <td background="images/GIL-MAQUINAS(fatias)_25.jpg"><div align="center"><span class="style8 style1"><strong>M&aacute;quinas Dispon&iacute;veis</strong></span></div></td> </tr> <tr> <td bgcolor="#DEE7DF"><div align="center" class="style4"><span class="style5"><br /> <span class="style8"><a href="maquinas_disponiveis.asp?tipo=Monocolor">Monocolor</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Bicolor">Bicolor</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=4cores">4-Cores</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Rotativa">Rotativa</a>&nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Guilhotina">Guilhotinas</a> &nbsp;|&nbsp;<a href="maquinas_disponiveis.asp?tipo=Outras">Outras</a>&nbsp;</span>&nbsp;</span><br /> <br /> </div></td> </tr> </table> <% 'Iniciamos o Loop rsBuscaProdutos.AbsolutePage = intpagina intrec = 0 While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof %> <br> <table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="9%" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style8 style2"><strong><span class="style9">C&oacute;d</span>.</strong></span></div></td> <td width="91%" bordercolor="#1C584C" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style2 style9"><strong>Descri&ccedil;&atilde;o da M&aacute;quina </strong></span></div> <div align="center"></div> <div align="center"></div></td> </tr> <tr> <td height="21" bgcolor="#ECECEC"><div align="center"><%=rsBuscaProdutos("Id")%></div></td> <td bordercolor="#1C584C" bgcolor="#ECECEC" class="style11"><div align="left"><span class="style12"> <span > <span> </span><%=rsBuscaProdutos("Marca")%>, <%=rsBuscaProdutos("Modelo")%>, <%=rsBuscaProdutos("Ano_Fabricacao")%>, <%=rsBuscaProdutos("Formato_Padrao")%> .<br> <span class="style6"><font color="#FF0000"><B>R$: <%=rsBuscaProdutos("Valor_da_Maquina")%></B></font></span></span><font color="#FF0000"><b> </b></font></span>&nbsp;|&nbsp;&nbsp;&nbsp;<strong>Tipo:<font color="#9B9B9B"> <%=rsBuscaProdutos("Tipo")%></font>&nbsp;&nbsp;</strong>| &nbsp;<strong>Fotos:</strong></div></td> </tr> <% rsBuscaProdutos.MoveNext intrec = intrec + 1 if rsBuscaProdutos.eof then response.write " " end if Wend %> <br> </table> <br> <div align="center"> <% 'Criamos as Validações para a navegação "Anterior" e "Próximo" if intpagina>1 then %> <a href="maquinas_disponiveis.asp?pagina=<%=intpagina-1%>">Anterior</a> &nbsp; <% end if if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then %> <a href="maquinas_disponiveis.asp?pagina=<%=intpagina + 1%>">Próximo</a> <% end if rsBuscaProdutos.close Set rsBuscaProdutos = Nothing %> </div> <div align="center"><br> </div> </body> </html> <% end if %> O BOTAO "PROXIMO" ESTA ENVIANDO PARA UMA PAGINA EM BRANCO "VAZIA" OBRIGADO PELA ATENÇÃO QUE DEUS ABENÇOE A TODOS NÓS.

sou iniciante em asp, estou precisando de ajuda. é o seguinte, tenho uma tabela que possui varios campos ex.:(tabela): marca - modelo - ano de fabricação - tipo gostaria de saber como se faz para linkar: ex.: no campo "tipo" os valores são: monocolor - bicolor - 4cores - rotativa - guilhotinas - outras no link: "monocolor" exibir somente os registros do tipo "monocolor" "bicolor" exibir somente os registros do tipo "bicolor" e assim sucessivamente. alguém pode me ajudar? obrigado.

me ajudem, o meu codigo não esta exibindo a quantidade de registros que eu quero, coloco 15 registros pra serem exibidos, mas não funciona, esta sendo exibido todos os registros, em uma so pagina, mas esta sendo criada outras paginas e quando clico no link pra proxima pagina não esta indo pois todos estao sendo exibidos em uma so pagina. com o codigo abaixo é mais facil de entender o que esta acontecendo. Por favor me ajudem. OBRIGADO. <html> <head><title>GIL MAQUINAS</title> <style type="text/css"> <!-- .style8 {color: #1C584C} .style9 {color: #FFFFFF} body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body> <table width="100%" cellspacing="1" cellpadding="1"> <tr> <td background="images/GIL-MAQUINAS(fatias)_25.jpg"><div align="center"><span class="style8 style1"><strong>Máquinas Disponíveis</strong></span></div></td> </tr> <tr> <td bgcolor="#DEE7DF"><div align="center" class="style4"><span class="style5"><br /> <span class="style8">Monocolor | Bicolor | 4-Cores | Rotativa | Guilhotinas | Outras </span> </span><br /> <br /> </div></td> </tr> </table> <span class="style8 style2"><strong><span class="style9"> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''fazendo a paginação !!! ' número de registros por página. Const numeroRegistros = 15 ' mapeia o caminho x = Server.MapPath("bddados/gilmaquinas.mdb") ' cria o objeto Conexão Set Conexao = Server.CreateObject("ADODB.Connection") ' concatena a string do driver com o caminho liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x ' o cursor do objeto Connection deve residir no cliente. ' Isto equivale a dizer que a propriedade CursorLocation ' do objeto connection é igual a adUseClient, ou se não ' quiser utilizar as constantes do arquivo adovbs.inc, ' use o número 3 ao invés de adUseClient. Na verdade, a ' constante adUseClient tem o valor 3 no arquivo adovbs.inc. ' Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3 Conexao.CursorLocation = 3 'abre a conexão Conexao.Open liga ' cria um recordset Set tabela = Server.CreateObject("ADODB.RECORDSET") ' faz o recordset usar a conexão Set tabela.ActiveConnection = Conexao ' número de registros por página tabela.PageSize = numeroRegistros ' tamanho do cache tabela.CacheSize = numeroRegistros ' carrega a query na string strSQL = "select * from maquinasdisponiveis order by id desc;" ' executa a query tabela.open strSQL ' testa se é a primeira vez If (request.ServerVariables("CONTENT_LENGTH") = "123" ) Then ' se for aponta para a primeira página e guarda que a página atual é a primeira tabela.AbsolutePage = 1 paginaAtual = 1 else ' caso não seja a primeira vez guarda página atual paginaAtual = Cint(Request.Form("CurrentPage")) ' de acordo com a escolha a página é incrementada ou decrementada Select Case Request.Form("enviarecordset") Case "Anterior" paginaAtual = paginaAtual - 1 tabela.AbsolutePage = paginaAtual Case "Próxima" paginaAtual = paginaAtual + 1 tabela.AbsolutePage = paginaAtual End Select End If ' imprime os registros na tela while not tabela.EOF %> </span></strong></span><br> <table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="8%" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style8 style2"><strong><span class="style9">Cód</span>.</strong></span></div></td> <td bordercolor="#1C584C" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style2 style9"><strong>Descrição da Máquina </strong></span></div> <div align="center"></div> <div align="center"></div></td> </tr> <tr> <td height="21" bgcolor="#ECECEC"><div align="center"><%=tabela.Fields("id")%> </div></td> <td bordercolor="#1C584C" bgcolor="#ECECEC" class="style11"><div align="left"><span class="style12"> <span > <span> </span><%=tabela.Fields("Marca")%>, <%=tabela.Fields("Modelo")%>, <%=tabela.Fields("Ano_Fabricacao")%>, <%=tabela.Fields("Formato_Padrao")%>.<br> <span class="style6"><font color="#FF0000"><B>R$</B></font></span></span> <font color="#FF0000"><b> </b></font></span><span class="style12"><span ><font color="#FF0000"><B><%=tabela.Fields("Valor_da_Maquina")%></B></font></span></span> | <strong>Tipo:<font color="#9B9B9B"> </font> <span class="style12"><span ><%=tabela.Fields("Tipo")%></span></span> </strong>| <strong>Fotos:</strong></div></td> </tr> </table> <div align="center"> <% tabela.MoveNext wend ' total de páginas totalPaginas = tabela.PageCount ' fecha o recordset tabela.close ' fecha a conexão Conexao.close ' destrói os objetos Set tabela = nothing Set Conexao = nothing %> <br> <% if (paginaAtual = 0) then%> Página 1 de <%= totalPaginas %> <%else%> Página <%= paginaAtual %> de <%= totalPaginas %> <%end if%> </div> <form action="<% Request.ServerVariables("SCRIPT_NAME")%>" method="POST"> <div align="center"> <input type="hidden" name="CurrentPage" value="<%= paginaAtual %>"> <% If (paginaAtual = 0) Then %> <input type="submit" name="enviarecordset" value="Próxima"> <% elseIf (paginaAtual > 1) and (paginaAtual < totalPaginas) Then %> <input type="submit" name="enviarecordset" value="Anterior"> <input type="submit" name="enviarecordset3" value="Próxima"> <%elseIf (paginaAtual <> totalPaginas) Then %> <input type="submit" name="enviarecordset2" value="Próxima"> <%elseIf (paginaAtual = totalPaginas) Then %> <input type="submit" name="enviarecordset" value="Anterior"> <% End If %> </div> </form> </body> </html>

ALTEREI O DSN E O ERRO AINDA CONTINUA. DSN SERIA O NOME DO BANCO DE DADOS? MENSAGEM DE ERRO: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /teste/paginacao.asp, line 6

MENSAGEM DE ERRO Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /teste/paginacao.asp, line 6

Por favor alguém pode me explicar? Sou iniciante em ASP e estou a alguns dias lutando com esse problema Não consigo fazer funcionar a "paginação" O que há de errado? Desde já agradeço sua atenção. Que DEUS lhe abençoe. <% ConnectString= "dsn=gilmaquinas.mdb" If Session("PrimeiraVez") <> "não" then ' Se é a primeira vez que a página é carregada Set Conn = Server.CreateObject("ADODB.Connection") Conn.CursorLocation = 3 ' é o mesmo que adUseClient Conn.Open ConnectString Set rstTemp = Server.CreateObject("ADODB.Recordset") rstTemp.CacheSize = 20 ' tamanho do cache rstTemp.PageSize = 20 ' tamanho da página de registros sql = "Select * from maquinasdisponiveis" rstTemp.Open Sql, Conn session("Pagina") = 1 MostraDados Session("PrimeiraVez") = "não" Else ' Se a página já foi carregada, verifica se deve incrementar ou decrementar o contador de páginas if Request("Navegacao") = "Proxima" then Session("Pagina") = Session("Pagina") + 1 Else If Request("Navegacao") = "Anterior" then Session("Pagina") = Session("Pagina") - 1 End If End If Set Conn = Server.CreateObject("ADODB.Connection") Conn.CursorLocation = 3 ' adUseClient Conn.Open ConnectString Set rstTemp = Server.CreateObject("ADODB.Recordset") rstTemp.CacheSize = 20 rstTemp.PageSize = 20 sql = "Select * from maquinasdisponiveis" rstTemp.Open Sql, Conn MostraDados End If Sub MostraDados() Dim Contador rstTemp.AbsolutePage = Session("Pagina") ' vai para o número da página que está armazenado em session("pagina") Response.Write "Existem " & rstTemp.RecordCount & " registros na tabela - Mostrando página " & Session("Pagina") & " de " & rstTemp.PageCount If Session("Pagina") <> 1 then response.write " [ Anterior ] " End If If Session("Pagina") <> rstTemp.PageCount then response.write "[ Proxima ] " End If response.write "" For contador = 1 to 20 Response.Write rstTemp("Marca") &" " & rstTemp("Modelo") & " " & rstTemp("Ano_Fabricacao") & " " & rstTemp("Formato_Modelo") & " " & rstTemp("Tipo") & " " & rstTemp("Valor_da_Maquina") & " " & rstTemp("Forma_de_Pagamento") & " " & rstTemp("Contato") & " " & rstTemp("Empresa") & " " & rstTemp("Telefone") & " " & rstTemp("E_Mail") & " " & rstTemp("Cidade") & " " & rstTemp("Estado") & "'""<BR>" rstTemp.MoveNext If rstTemp.Eof then Exit For Next End Sub %>

sou iniciante em asp fiz o curso basico do basico. estou tentando fazer "paginação" utilizando o banco de dados access, mas não estou conseguindo por isso recorri a este forum. peguei um codigo pronto aqui no forum e tentei colocar na minha pagina, assim mesmo não esta dando certo. alguém pode me ajudar? segue abaixo o codigo que estou utilizando <!--#include file = "conexaoDB.asp" --> <style type="text/css"> <!-- .style1 { color: #1C584C; font-weight: bold; } .style2 {color: #FFFFFF} body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } .style4 {font-size: 12px} .style5 { font-size: 13px; color: #1C584C; } .style6 { color: #FF0000; font-weight: bold; } a:link { color: #1C584C; text-decoration: none; } a:visited { text-decoration: none; color: #1C584C; } a:hover { text-decoration: underline; color: #1C584C; } a:active { text-decoration: none; color: #1C584C; } --> </style> <table width="100%" cellspacing="1" cellpadding="1"> <tr> <% If strPaginaAtual > 1 Then %> <td background="images/GIL-MAQUINAS(fatias)_25.jpg"><div align="center"><span class="style1">Máquinas Disponíveis</span></div></td> </tr> <tr> <td bgcolor="#DEE7DF"><div align="center" class="style4"><span class="style5"><br /> Monocolor | Bicolor | 4-Cores | Rotativa | Guilhotinas | Outras </span><br /> <br /> <% PagAtual = Request.QueryString("PagAtual") 'página atual Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("bddados/gilmaquinas.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginação SQL = "SELECT * maquinasdisponiveis WHERE permissao='0' ORDER BY id ASC" RS.Open SQL, conn, 3 '################## paginacao 01 ##################### 'Coloca o Nº página atual / Nº Total de páginas Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ") 'Mostra os botões: Anterior e Próxima, utilizando da opção de IF IF PagAtual > 1 THEN 'Se for a primeira página, Mostra apenas o botão Próximo e Ultima Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='jogos.asp?PagAtual=" & 1 & "'>") Response.Write("Primeira") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual - 1 & "'>") Response.Write("Anterior") Response.Write("</a></font></B> ") Else Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("Primeira") Response.Write("</font></B> ") Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("Anterior") Response.Write("</font></B> ") End If '------------------- numero ------------------------- '---------- Numero de numeros para ser mostrados ---- max_n_mostrados = 9 intervalo = Int(max_n_mostrados /2) inicio = PagAtual - intervalo final = PagAtual + intervalo If CInt(inicio) <1 Then inicio = 1 final = 10 END IF If CInt(final) > CInt(TotalPages) Then final = TotalPages For i = inicio To final If CInt(i)=CInt(PagAtual) Then Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> " END IF If CInt(i) < CInt(PagAtual) Then Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a> " END IF If CInt(i) > CInt(PagAtual) Then Response.Write "<a href='jogos.asp?PagAtual=" & i & "'>" & i & "</a> " END IF Next '------------------------------------------------------ IF CInt(PagAtual) <> CInt(TotalPages) THEN 'Se estiver na última página, mostra apenas o botão Anterior e Primeira Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") Response.Write("<a href='jogos.asp?PagAtual=" & PagAtual + 1 & "'>") Response.Write("Próxima") Response.Write("</a></font></B> ") Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") Response.Write("<a href='jogos.asp?PagAtual=" & TotalPages & "'>") Response.Write("Ultima") Response.Write("</a></font></B> ") Else Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") Response.Write("Próxima") Response.Write("</font></B> ") Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") Response.Write("Ultima") Response.Write("</font></B> ") End If '################## fim paginacao 01 ######################## %> <br /> <br /> </div></td> <%End If%> <%If strPaginaAtual < strPaginas Then%> <%ELSE%> <%End If%> </tr> </table> <table width="100%" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="8%" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style8 style2"><strong>Cód.</strong></span></div> </td> <td background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style8 style2"><strong>Descrição da Máquina </strong></span></div> <div align="center"></div> <div align="center"></div></td> </tr> <% While Not exeSQL.EOF %> <tr> <td height="21" bgcolor="#ECECEC"><div align="center"> <% Response.Write exeSQL("id")%> </div></td> <td bgcolor="#ECECEC" class="style11"><div align="left"><span class="style12"> <% Response.Write exeSQL("Marca")%> , <span > <% Response.Write exeSQL("Modelo")%> <span>, <% Response.Write exeSQL("Ano_Fabricacao")%> , <% Response.Write exeSQL("Formato_Padrao")%>. </span> <br /> <br /> <span class="style6">R$</span></span> <font color="#FF0000"><b> <% Response.Write exeSQL("Valor_da_Maquina")%> </b></font></span> | <strong>Tipo:<font color="#9B9B9B"> <% Response.Write exeSQL("Tipo")%></font> </strong>| <strong>Fotos:</strong><br /> <br /> </div></td> </tr> </table> <br /> <table width="100%" cellspacing="1" cellpadding="1"> <tr> <td bgcolor="#DEE7DF"><div align="center"> </div></td> </tr> </table>