
jow
Membros-
Total de itens
546 -
Registro em
-
Última visita
Tudo que jow postou
-
tenta assim: id1 = Request.QueryString ("id") SQL = "Select * from NOME_TABELA where id = "& id1 Set RS = conn.Execute (SQL) if RS.EOf = false then '--- b arquivo = RS("Foto") if arquivo <> "" then '--- c ' Caminho ' ******* caminho = Session ("caminho") '---------------------------------- deletando arquivos --------------------------------- Set objArquivos = Server.CreateObject("scripting.FileSystemObject") Set Arquivo = objArquivos.GetFile(caminho & arquivo) Arquivo.Delete 'LINHA 33 Set Arquivo = Nothing Set objArquivos = Nothing '--------------------------------------------------------------------------------------- end if '--- c end if '--- b SQL = "Delete * from Agenda where id = "& id1 Set RS = conn.Execute (SQL) %> Caso não de certo poste a página q antecede essa, e o q você quer excluir todos os dados da tabela ou apenas o campo Foto se for apenas o campo altere essa linha SQL = "Delete * from Agenda where id = "& id1 para SQL = "Delete foto from Agenda where id = "& id1, pois não axo viável deletar apenas o campo ... Qualquer coisa posta ae ... Abraçossss
-
ixi brother q estranho eu postei com as modificações feitas mas não foi hauhahuhauh vou postar denovo ... 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("COD") %>"><% = rsLivros ("Titulo") %></a></TD> </TR> <% rsLivros.MoveNext Loop %> </table> </body> </html> <% rsLivros.Close call fechaConexao Set rsLivros = Nothing %> Lab11_2B.asp <% @LANGUAGE="VBSCRIPT" %> <% OPTION EXPLICIT %> <!-- #Include file="../conexao.inc" --> <% DIM conexaoDataBase , rsLivros , strLivros Call abreConexao id1=request.queryString ("CodLivro1") strLivros = "SELECT * FROM livros WHERE CodLivro = "&id1 Set rsLivros = conexaoDataBase.Execute(strLivros) %> <html> <head> <title>Inserindo Livros na tabela de LIvros</title> <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> 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 = (Request.Form ("idLivro")) varCodLivro = (Request.Form ("txtCodigo")) varCategoria = (Request.Form ("txtCategoria")) varTitulo = (Request.Form ("txtTitulo")) varAutor = (Request.Form ("txtAutor")) varFormato = (Request.Form ("txtFormato")) varNPaginas = (Request.Form ("txtNPaginas")) varPreco = (Request.Form ("txtPreco")) varResenha = (Request.Form ("txtResenha")) varLancamento = ( Request.Form ("txtLancamento")) varDataPub = (Request.Form ("txtDataPub")) varPreco = (Request.Form ("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 COD = "& 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>
-
Entendi ... variavel= rs("CampoDoBanco") If (variavel) <> "" Then response.Write("Não Mostra o link") Else response.Write("<a href=""AVA_CROSS.ASP"">■ 1º de Julho</a>") End If %> coloque no lugar do CampoDoBanco algum campo onde o usuário deve preencher, para saber se fez a prova ou não , ou seja se o usuário José fez a prova o campo nome é preenchido, caso o contrário o campo não é preenchido !!! ai você altera o CampoDoBanco para Banco
-
porque q você tá usando If rs("total")=1 Then esse 1 indica se a prova foi feita ou não ... tipo fez a prova = 1 não fez a prova = 2 ????? se for faz assim: total= rs("total") If (total)= "1" Then response.Write("Não Mostra o link") Else response.Write("<a href=""AVA_CROSS.ASP"">■ 1º de Julho</a>") End If %>
-
Brother eu fiz umas mudanças no seu script, e eu usei o campo IdLivros pois axo q é a chave primária da sua tabela e o seu campo autonumérico, caso não for altere ... OBS importante: a sua SQL tem q estar em uma única linha ... ... Abaixo o código alterado, dá uma verificada ai ... 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 %> 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> <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> 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 isso também contece comigo ... mas na hora exibo a informação funciona OK ... abraçosss
-
você está kerendo q o usuário escolha o Código do livro para alterar né ??? então cara você deve comparar isso para abrir a página correspondente ao livro possibilitando a alteração, mas no seu UPDATE deve ser feito conforme o campo único que gere uma numeração do seu banco de dados ... Do jeito q está não tem como alterar apenas com o q ele escolheu. Caso você não congiga posta ai o seu form completo e btm a página onde o usuário escolhe pra alterar ...
-
Script de upload de imagens sem componentes
pergunta respondeu ao jow de jow em Repositório de Scripts - ASP
Opá show isso muito boa idéia deixar q o usuário possa escolher o componente legal mesmo ... Mas esse script q aki deixei foi uma adaptação pois atendeu a minha necessidade por isso coloquei aki no forúm, mas é claro q a sua opnião foi muito importante, mas só axo q deixar para q os usuários escolham o o componente é muito bom mesmo, mas isso qd o servidor hospedado tem o componente ... abraçosss -
você está passando <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("CodLivro") %>" > e recuperando varIdLivro = TRIM ( Request.Form ("IdLivro")) OK CORRETO ISSO, mas lembre q o usuário digita o codigo do livro certo ? você está fazendo o Update quando isso ocorrer WHERE CodLivro = "& varIdLivro ... Deveria ser feito assim: no seu form: <INPUT TYPE="hidden" name="idLivro" value="<% = rsLivros("IdLivro") %>" > e comparar no banco WHERE IdLivro = "& varIdLivro Obs: pois esse campo IdLivro deve ser o seu campo autonumério né ???
-
Tendi brother mas você está usando preço né, pois tem q ser como está no banco de dados e os campos do banco como estão ??? e só um detalhe esse campo CodLivro é autoNumérico ou é digitado pelo usuário ??? Verifica isso CodLivro = "& varIdLivro, você está mandando atualizar, quandoCodLivro for igual varIdLivro ... Posta o seu formulário Html q antecede o seu Update ....
-
Bom dia Ok entendi, na página onde você exibe o link .... antes do link você faz um if assim: If rs("campoDoBanco") <> "" Then Ação Else Mostra o link End If
-
Ok entendi, mas a sua página tá faltando ums propriedades do HTML .. vou fazer uma mais ou menos <form ACTION="validate.asp" method="POST"> RE:</span> <input name="username" type="text" id="email" style="BORDER-RIGHT: #50615F 1pt solid; BORDER- <td width="135"><input type="submit" value="Salvar"> </form> Validate.asp <% 'Conexão com o banco de dados conexao="DBQ=C:\Inetpub\wwwroot\ASP_exemplos\login\senha.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set DB = Server.CreateObject("ADODB.Connection") DB.Open conexao username=(Request.form("username")) set acesso=DB.Execute("SELECT * FROM acesso WHERE campodaTabela='"&username&") ' Caso os dados não estiverem corretos o usuário é enviado para a entrar.htm if acesso.eof then Response.write "acesso negado" else end if DB.close %>
-
Ok cara isso não é muito dificil, mas você tem q fazer por partes igual Jack Stripper hauhauhauhahua ... então você tem q criar uma página onde o usuário irá entrar com os dados para efetuar o login, você deve criar um formulário e dentro desse formulário usar um método e enviar para uma página ASP q fará a validação do usuário ou não ... depois disso você fará as outras etapas q você necessitar ... cria uma página HTML para o usuário entrar com o seu login e senha ... e posta ai
-
você quer dizer q não está pegando o q foi preenchido dentro do formulário ou não está enviando a mensagem com formato HTML ??? Se não estiver enviando com formato HTML é só usar objMail.textBody = mensagem antes do objMail.HTMLBody = mensagem ... e mandar imprimir no formato HTML: Se não tiver pegando o q foi escrito no formulário é só recuperar através de um request.form ou request.querystring, dependendo da ação do seu formulário Set ObjMail = Server.CreateObject("CDO.Message") objMail.From = request.form("txtEmailSolicitante") Mailer.To = "destino@dominio.com.br" ' e-mail de quem vai receber a mensagem objMail.Subject = "Assunto do seu e-mail" mensagem= "Envio de email" 'Aki você insere o corpo do seu e-mail objMail.textBody = mensagem objMail.HTMLBody = mensagem objMail.Send Set objMail = Nothing 'Imprimindo o conteudo do email Response.Write "<html><body><table align=center><tr><td> </td></tr>" Response.Write "<tr><td> </td></tr>" Response.Write "<tr><td><font face=Verdana><b>"& mensagem &"</b></font></td></tr>" Response.Write "</body></html>"
-
Set ObjMail = Server.CreateObject("CDO.Message") objMail.From = request.form("txtEmailSolicitante") Mailer.To = "destino@dominio.com.br" ' e-mail de quem vai receber a mensagem objMail.Subject = "Assunto do seu e-mail" Msg= 'Aki você insere o corpo do seu e-mail objMail.HTMLBody = Msg objMail.Send Set objMail = Nothing
-
Tendi você está kerendo usar este objeto CDO.Message então ? Posta o código completo de envio de email ai ...
-
Boa tarde mostrar os meses q não foram entregues o q ??? então axo q é isso mostrar os meses q estão em branco no banco de dados certo, se for é isso: SELECT nome, cod, mes, ano FROM tblrelatorio WHERE (ano = 2008) AND (mes < 0) ORDER BY nome obs: Mandei selecionar os campos nome, cod, mes, ano da tabela tblrelatorio, quando o ano for igual a 2008 e o mes estiver vazio. Abraçosss
-
você está tentando enviar da sua máquina ou de algum servidor web ??? Se for de um servidor web verifica se eles tem suporte ao componente de email, se for da sua máquina você deverá ter o componente instalado na sua máquina ...
-
Cara você usa no seu campo preço ou Preço, pois no seu update você usa preço ... Caso não for isso testa assim: 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)
-
O comando like busca todas as palavras q contenha bola por exemplo ... Bolao, Balado, Boladao ... se quizer apenas a palavra sql = "Select * from tabela where campo = '" &nomedocampoformulario& "' " set tab = cnn.execute(sql) desse jeito ele ó vai trazer os campo q contiver bola, se digitar outra coisa no formulário não vai trazer hauhuahuhauhha ... Axo q ele quer fazes isso né ??? sql = "Select * from tabela where nomecampo1 = '" &nomedocampoformulario& "' or nomecampo2 = '" &nomedocampoformulario& "' or nomecampo3 = '" &nomedocampoformulario& "' ... até 10 " set tab = cnn.execute(sql) abraçosss
-
sql = "Select * from tabela where campo LIKE '%" &nomedocampoformulario& "%' " set tab = cnn.execute(sql)
-
Bom dia Cara entra em contato com o suporte do seu servidor e veja se eles se tem suporte ao componente SMTPsvg.Mailer ... e posta aresposta do suporte aí ...
-
Bom dia; Veja se isso te ajuda http://scriptbrasil.com.br/forum/index.php?showtopic=114500
-
Script de upload de imagens sem componentes
pergunta respondeu ao jow de jow em Repositório de Scripts - ASP
Boa tarde, concordo plenamente com o bareta, mas eu penso da seguinte maneira q para usar um upload com componentes o servidor do seu site precisa ter esse componente, o q nos deixa refem dos servidores, mas é como foi dito para pequenas aplicações o sistema é muito bom ... Abraçosss -
<div id="busca" style="position:absolute; left:248px; top:245px; width:526px; height:315px; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000;"> <!--#include file="../includes/conexao.inc"--> <table width="150" height="150"> <% titulo=request.form("titulo") set rs= server.createobject("ADODB.Recordset") sql="select * from Acervo where titulo like"&"'%"&titulo&"%'" rs.open sql, Controle, 1, 3%> <tr> <td> <table width="100"> <tr> while not rs.eof%> <td><%=rs("titulo")%></td> <td> </td> </tr> <tr> <td rowspan="2"><img src="../produtos/<%=rs("foto")%>" width="133" height="192"></td> <% rs.movenext wend%> <td> </td> </tr> <tr> <td> </td> </tr> <tr> <td> </td> <td> </td> </tr> </table></td> <td> <table width="100"> <tr> <td></td> <td></td> </tr> <tr> <td rowspan="2"></td> <td></td> </tr> <tr> <td></td> </tr> <tr> <td></td> <td></td> </tr> </table></td> </tr> <% rs.close Controle.close%> </table> </div>