Victor ASP's Content

#439397 Capturar Parte De Url Digitada No Navegador

Posted by Victor ASP on 05/09/2004, 21:55 in ASP

Você pode usar o IF:

if request("parametro") = "03" then
'ação..
end if

Entendeu?

#439082 Não Consigo Encontar

Posted by Victor ASP on 05/09/2004, 13:06 in Dúvidas sobre Scripts Prontos de ASP

Alguem sabe onde posso encontrar o codgo da loja da revista www.com.br, porem eu estou procurando o codigo que tem o controle de frete... pois o outro eu tenho.

No portal do wmonline deve ter na seção de download...

#439009 Qndo Instalo 1 Script

Posted by Victor ASP on 05/09/2004, 10:53 in ASP

Posta a linha 29 do arquivo newfold.asp, que poderemos te ajudar melhor...

#438970 Exibindo Conteúdo De Todos Os Campos

Posted by Victor ASP on 05/09/2004, 08:59 in ASP

Faz assim:

nome = request.form("nome")
email = request.form("email")
mensagem = request.form("mensagem")

response.write "Nome: "&nome&" "
response.write "E-mail: "&email&" "
response.write "Mensagem: "&mensagem&" "

#438787 Randomize

Posted by Victor ASP on 04/09/2004, 21:49 in ASP

Oxi, seu codigo ta doido, no erro fala que a linha 83 é:

objConn.Open strConnString

E quando vejo aqui é isso

For i = 1 to 3
strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i)
objRs.Open strSQL, objConn, 1, 1

Seu servidor está louco, ou você trocou os arquivos...

#438757 Randomize

Posted by Victor ASP on 04/09/2004, 21:05 in ASP

Posta a linha 83 da pagina auto.asp pra eu ver

#438756 Como Faço Para...

Posted by Victor ASP on 04/09/2004, 21:03 in ASP

Olhe...

http://forum.wmonlin...showtopic=87085

#438734 Randomize

Posted by Victor ASP on 04/09/2004, 20:36 in ASP

Tenta assim:

<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")
objConn.Open strConnString

strSQL = "SELECT ID FROM Estoque"

objRs.Open strSQL, objConn, 1, 1

Do While Not objRs.EOF
  [B]strCodTmp = strCodTmp + objRs("ID") + "-"[/B]
  objRs.MoveNext
Loop

strArrCod = Split(strCodTmp, "-")
objRs.Close

Function iRandom(Valor)

  Select Case Valor
    Case 1:
      Randomize
      Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
      strCod = strArrCod(Valor1)
    Case 2:
      Do Until Valor2 <> Valor1
        Randomize
        Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
      Loop
      strCod = strArrCod(Valor2)
    Case 3:
      Do Until Valor3 <> Valor2 And Valor3 <> Valor1
        Randomize
        Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
      Loop
      strCod = strArrCod(Valor3)
    Case Else:
      strCod = ""
  End Select

  iRandom = strCod

End Function
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<%
strSQL = "SELECT Count(*) FROM Estoque"
objRs.Open strSQL, objConn, 2
If objRs.EOF Then
%>
<!--INICIO DA TABELA_ESTOQUE VAZIO-->
<tr>
 <td width="100%">
 <p align="center"><b><font face="Tahoma"><font color="#FF0000"><u>NÃO HÁ VEÍCULOS NO ESTOQUE</u><br>
 </font><font size="2" color="#0000FF">Volte mais tarde para conferir !</font></font></b></td>
</tr>
<!--FIM DA TABELA_ESTOQUE VAZIO-->

<%
objRs.Close
Else
objRs.Close
%>

<!--INICIO DA TABELA_OFERTAS-->
<tr>
<td width="32%" height="87">

<%

  For i = 1 to 3
    strSQL = "SELECT * FROM Estoque where ID = "&iRandom(i)&""
    objRs.Open strSQL, objConn, 3

%>
<!--INICIO DA TABELA_VEICULO -->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69">
 <tr>
  <td width="83" rowspan="3" height="69">
   <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("Imagem") %>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td>
    <td width="6" rowspan="3" height="69">&nbsp;</td>
     <td width="136" height="15">
      <p align="left"><b><span lang="pt-br">
       <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><%= objRs("Nome") %></a></font></span></b></td>
 </tr>
 <tr>
  <td width="136" height="7">
   <img border="0" src="images/Linha_laranja.jpg"></td>
 </tr>
 <tr>
  <td width="136" height="47">
   <p align="left"><b><span lang="pt-br">
    <font face="Tahoma" size="2" color="#333333"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td>
 </tr>
</table>
</center>
</div>
<!--FIM DA TABELA_VEICULO -->
<% If i <> 3 Then %>
             </td>
             <td width="2%" height="87">
             <p align="center">
             <img border="0" src="images/Separador_Pontilhado.jpg"></td>
             <td width="31%" height="87">

<% Else %>
             </td>
           </tr>
<% End If %>
<!--FIM DA TABELA_OFERTAS-->
<%
objRs.Close

  Next
  Set objRs = Nothing

End If

objConn.Close
Set objConn = Nothing
%>
</table>
</center>
</div>
<!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->

Se der o mesmo erro, não sei mais o que é não <_<

#438726 Randomize

Posted by Victor ASP on 04/09/2004, 20:28 in ASP

Será q o problema é no meu arquivo bd ???

A página: defaultoff.asp, é essa mesmo que você postou?

#438719 Randomize

Posted by Victor ASP on 04/09/2004, 20:20 in ASP

Negocio louco, eu testei aqui e deu certo... :huh:

#438709 Função Que Pega A Data Local

Posted by Victor ASP on 04/09/2004, 20:12 in ASP

Galera,

Estou precisando de uma função que pegue a data local e a armazene numa variável para posteriormente ser armazenada num banco de dados, mas infelizmente não conheço nenhuma função desse tipo.

Alguém sabé como posso fazer isso???

Abraços,
Destroyer.

A função você faz assim:

data = date()

response.write data

Mais dúvidas, visite esse tutorial

http://www.aspbrasil...odConteudo=1135

#438705 Randomize

Posted by Victor ASP on 04/09/2004, 20:09 in ASP

Tenta assim:

<!--INICIO TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")

strConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Estoque/bd/bd.mdb")
objConn.Open strConnString

strSQL = "SELECT ID FROM Estoque"

objRs.Open strSQL, objConn, 1, 1

Do While Not objRs.EOF
  [B]strCodTmp = strCodTmp + objRs("ID") + "-"[/B]
  objRs.MoveNext
Loop

strArrCod = Split(strCodTmp, "-")
objRs.Close

Function iRandom(Valor)

  Select Case Valor
    Case 1:
      Randomize
      Valor1 = CInt(Rnd() * UBound(strArrCod) - 1)
      strCod = strArrCod(Valor1)
    Case 2:
      Do Until Valor2 <> Valor1
        Randomize
        Valor2 = CInt(Rnd() * UBound(strArrCod) - 1)
      Loop
      strCod = strArrCod(Valor2)
    Case 3:
      Do Until Valor3 <> Valor2 And Valor3 <> Valor1
        Randomize
        Valor3 = CInt(Rnd() * UBound(strArrCod) - 1)
      Loop
      strCod = strArrCod(Valor3)
    Case Else:
      strCod = ""
  End Select

  iRandom = strCod

End Function
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<%
strSQL = "SELECT Count(*) FROM Estoque"
objRs.Open strSQL, objConn, 2
If objRs.EOF Then
%>
<!--INICIO DA TABELA_ESTOQUE VAZIO-->
<tr>
 <td width="100%">
 <p align="center"><b><font face="Tahoma"><font color="#FF0000"><u>NÃO HÁ VEÍCULOS NO ESTOQUE</u><br>
 </font><font size="2" color="#0000FF">Volte mais tarde para conferir !</font></font></b></td>
</tr>
<!--FIM DA TABELA_ESTOQUE VAZIO-->

<%
objRs.Close
Else
objRs.Close
%>

<!--INICIO DA TABELA_OFERTAS-->
<tr>
<td width="32%" height="87">

<%

  For i = 1 to 3
    strSQL = "SELECT * FROM Estoque where ID = " & iRandom(i)
    objRs.Open strSQL, objConn, 3

%>
<!--INICIO DA TABELA_VEICULO -->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="225" id="AutoNumber7" height="69">
 <tr>
  <td width="83" rowspan="3" height="69">
   <font face="Verdana" size="2"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><img src="Estoque/imagens/<%= objRs("Imagem") %>" width="87" height="65" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></a></font></td>
    <td width="6" rowspan="3" height="69">&nbsp;</td>
     <td width="136" height="15">
      <p align="left"><b><span lang="pt-br">
       <font face="Verdana" size="2" color="#FF5900"><a href="Estoque/ver_dados.asp?id=<%= objRs("ID") %>"><%= objRs("Nome") %></a></font></span></b></td>
 </tr>
 <tr>
  <td width="136" height="7">
   <img border="0" src="images/Linha_laranja.jpg"></td>
 </tr>
 <tr>
  <td width="136" height="47">
   <p align="left"><b><span lang="pt-br">
    <font face="Tahoma" size="2" color="#333333"><%= objRs("Ano") %><br><br>R$ <%= objRs("Valor") %></font></span></b></td>
 </tr>
</table>
</center>
</div>
<!--FIM DA TABELA_VEICULO -->
<% If i <> 3 Then %>
             </td>
             <td width="2%" height="87">
             <p align="center">
             <img border="0" src="images/Separador_Pontilhado.jpg"></td>
             <td width="31%" height="87">

<% Else %>
             </td>
           </tr>
<% End If %>
<!--FIM DA TABELA_OFERTAS-->
<%
objRs.Close

  Next
  Set objRs = Nothing

End If

objConn.Close
Set objConn = Nothing
%>
</table>
</center>
</div>
<!--FIM TABELA PRA EXIBICAO RANDOMICA DO ESTOQUE-->

#438625 Preciso Fazer Um Blog... Me Ajudem

Posted by Victor ASP on 04/09/2004, 18:25 in ASP

Então ele não quer fazer um blog, ele quer um sistema de blog, é diferente, e tipo de comentários, que a pessoa deixa seu comentario la pra pessoa...

Olha, basicamente você vai usar, select, insert, delete, update, paginação

Nesse outro tópico que eu postei tem todos os links que você irá precisar!

http://forum.wmonlin...showtopic=87158

Qualquer dúvida, é só perguntar

[]'s
Victor

#438624 Randomize

Posted by Victor ASP on 04/09/2004, 18:20 in ASP

Tipo, mas usando randomize ele não vai ir um de cada vez... Ele pode repitir umas vezes, faz assim:

rnd*3

ai você faz uma matriz com as coisas que você vai usar...

Se não entendeu, ou não conseguiu fala ai que eu faço um exeplo pra você..

[]'s
Victor

#438416 Date

Posted by Victor ASP on 04/09/2004, 12:28 in ASP

Não entendi nada cara, explica melhor ai :wacko:

#438415 Problemas Com Asp E Access

Posted by Victor ASP on 04/09/2004, 12:26 in ASP

Não tem suporte ASP no servidor...

La mostra o codigo de fonte:

<html>
<head>
<title>Acesse o seu curriculo</title>
</head>
<body>
<center><font face="Arial" size="4"><b>Formulário de Alteração</b></h2></center>

<%
If IsEmpty( Request.Form("submit") ) Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Constr = "DBQ=Z:\Inetpub\wwwroot\teste\Cadastro\cadastro.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Conexao.Open Constr
ComandoSQL = "SELECT * FROM tblpessoa"
Set bd = Server.CreateObject("ADODB.Recordset")
bd.CursorLocation = 2
bd.CursorType = 0
bd.LockType = 3
bd.Open ComandoSQL, conexao,,, &H0001

If Not bd.EOF Then
  bd.Move Request.QueryString("n")
%>

<form method=post action="<%=Request.ServerVariables("script_name")%>">
<input type=hidden name="ComandoSQL" value="<%=ComandoSQL%>">
<input type=hidden name="Conexao" value="<%=Constr%>">
<table border=0 width="80%" align=center>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">bairro:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="bairro" value="<%=bd("bairro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">cpf:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="cpf" value="<%=bd("cpf")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">curriculo:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="curriculo" value="<%=bd("curriculo")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">estado:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="estado" value="<%=bd("estado")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">identidade:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="identidade" value="<%=bd("identidade")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">Logradouro:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="Logradouro" value="<%=bd("Logradouro")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">municipio:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="municipio" value="<%=bd("municipio")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">nome:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="nome" value="<%=bd("nome")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">senha:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=password name="senha" value="<%=bd("senha")%>" size=15 maxlength=20 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  <tr>
    <td align=right valign=top><font face="Arial" size="2">telefone:</font></td>
    <td align=left valign=top>
      <font face="Arial" size="2">
    <input type=text name="telefone" value="<%=bd("telefone")%>" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}">
    </td>
  </tr>
  </font>
</table>
<center><input type=submit name=submit value=Alterar style="{<font-family:Arial; font-size:12}"></center>
<input type="hidden" name="n" value="<%if Not IsEmpty(Request.QueryString("n"))then : Response.Write Request.QueryString("n") Else : Response.Write "0" : End If%>">
</form>
<center>
<%
If Request.QueryString("n") > 0 then
  Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & ">&lt;&lt; Anterior</a>&nbsp;&nbsp;"
End If
  bd.MoveNext
  If Not bd.EOF then
    Response.Write "&nbsp;&nbsp;<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo &gt;&gt;</a>"
  End If
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
</center>

<%
  End If
Else
  If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("bairro")) <> ""  AND Trim(Request.Form("cpf")) <> ""  AND Trim(Request.Form("curriculo")) <> ""  AND Trim(Request.Form("estado")) <> ""  AND Trim(Request.Form("identidade")) <> ""  AND Trim(Request.Form("Logradouro")) <> ""  AND Trim(Request.Form("municipio")) <> ""  AND Trim(Request.Form("nome")) <> ""  AND Trim(Request.Form("senha")) <> ""  AND Trim(Request.Form("telefone")) <> ""  Then
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open Request.Form("Conexao")
    ComandoSQL = Request.Form("ComandoSQL")
    Set bd = Server.CreateObject("ADODB.Recordset")
    bd.CursorLocation = 2
    bd.CursorType = 0
    bd.LockType = 3
    bd.Open ComandoSQL, Conexao,,, &H0001
    bd.Move Request.Form("n")
    bd("bairro") = Server.HTMLEncode(Request.Form("bairro"))
    bd("cpf") = Server.HTMLEncode(Request.Form("cpf"))
    bd("curriculo") = Server.HTMLEncode(Request.Form("curriculo"))
    bd("estado") = Server.HTMLEncode(Request.Form("estado"))
    bd("identidade") = Server.HTMLEncode(Request.Form("identidade"))
    bd("Logradouro") = Server.HTMLEncode(Request.Form("Logradouro"))
    bd("municipio") = Server.HTMLEncode(Request.Form("municipio"))
    bd("nome") = Server.HTMLEncode(Request.Form("nome"))
    bd("senha") = Server.HTMLEncode(Request.Form("senha"))
    bd("telefone") = Server.HTMLEncode(Request.Form("telefone"))
    bd.UpdateBatch
    bd.Requery
%>
<center></center>

</body>
</html>

Se tivesse suporte ele não mostraria o codigo asp no codigo de fonte...

Tente hospedar em algum que tenha suporte a ASP, ou faça em PHP

[]'s
Victor

#438394 Problemas Com Asp E Access

Posted by Victor ASP on 04/09/2004, 11:13 in ASP

Não estou a usar o meu PC mas sim um Servidor que tem vários sites, incluindo é claro o da minha empresa.
Podem verificar pelo seguinte endereço:

http://www.perfilcom...tro/alterar.asp
consulta.asp
inserir.asp

Estou no MSN: batista_nuno@hotmail.com

Estou a dar em DOIDO

Ta. Mas você tem certeza que a hospedagem tem suporte a ASP?

#438387 Preciso Fazer Um Blog... Me Ajudem

Posted by Victor ASP on 04/09/2004, 11:05 in ASP

Eu to prescisando de um blog pra atualizar meu site e queria fazer um, mas nao tenho noção de como fazer... alguém poderia me ajudar?...

OBRIGADO!!

Blog não se faz em ASP, e sim HTML, você vai criar um blog, ou fazer um site na web com hospedagem windows?

#438376 Problemas Com Asp E Access

Posted by Victor ASP on 04/09/2004, 10:42 in ASP

Victor ASP...
se eu comentar que não vai funcionar, estarei sendo pessimista?

Pois... não vai funcionar!!!

Leo_30...
Só um conselho, é melhor instalar o IIS ou o PWS na sua máquina local e estudar o funcionamento dos seus script, da uma lida no FAQ de ASP.

Funcionar vai funcionar sim, só basta ele fazer o codigo pegando da querustring que funciona sim, eu tentei aqui

#438375 Mostrando Produtos

Posted by Victor ASP on 04/09/2004, 10:41 in ASP

affff.....

bem, produtos é uma variável, ele pode dar o nome que ele quiser.. quem disse q ele está procurando na coluna produtos?

olhe o select:

"SELECT NomePeca, PecaID FROM CompraPecas WHERE PecaID ='" & Produto & "'"

Seleciona NomePeca e PecaID de CompraPecas onde PecaID seja igual a variavel produto.

intão, ele pega um valor na coluna PecaID, que seja igual a variavel que foi anteriormente declarada... de acordo com este meu raciocinio, a coluna PecaID é auto numeração, então tem que ser aspas simples...

bem, posso estar redondamente enganado... mas tentei ajudar.... se estiver errado, peço desculpas...

walew!

fdebortoli, você está usando a variavel produtos se nem existe ela antes de ser chamada?

A variavel é o que? Querystring?

#438372 Problemas Com Asp E Access

Posted by Victor ASP on 04/09/2004, 10:34 in ASP

Usa no seu PC o method get, pois o post nos pcs não ta funfando não sei pc... Mas quando for na net se usa o post.

Vê se funfa se você usar o get

#438232 Mostrando Produtos

Posted by Victor ASP on 03/09/2004, 22:18 in ASP

opa tente tirar as aspas simples da sua expressão de critério no sql...

ao invés de ficar assim:

'" & Produto & "'

deixe assim:

" & Produto & "

afinal, acho eu, este seu campo PecaID seja do tipo numérico, e campos numéricos vc num usa a aspas simples, usa aspas simples, quando forem campos do tipo texto...

espero ter ajudado...

Que isso cara, a coluna produtos concerteza não é autonumber né, afinal já fala produtos vai ser o nome do produto.. <_<

#438229 Sistema De Busca

Posted by Victor ASP on 03/09/2004, 22:15 in ASP

como assim destacar em negrito?

colocar algo em negrito num é mais ASP e sim HTML puro

aqui fica em negrito

então:

voce buscou por: request("busca")

hum... olhando a pagina do google, acho q entendi diferente o que vc quer... vc quer que fique em negrito o que o cara buscou, mas no meio da descrição do que o cara buscou.. é isso?

Que??

O cara só quer que fique em negrito a descricao de quando ele usar a busca e responder na página, ai vai aparecer a descrição do que ele procurou, só isso!

#438226 Mostrando Produtos

Posted by Victor ASP on 03/09/2004, 22:12 in ASP

Eu instanciei o objeto antes de chamar ele, que antes estava depois que você abria ele...

Mas funcionou ai?

#438215 Sistema De Busca

Posted by Victor ASP on 03/09/2004, 21:59 in ASP

Entendi.
Mas eu gostaria de destacar em negrito a descrição também, tipo o site do google..

É só você fazer a mesma coisa á cima, só que com a coluna descricao:

response.write "Você pesquisou por: "&request.form("pesquisa")&""
response.write ""&RecSet("descricao")&""

Entendeu?

[]'s
Victor