Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcelo.ocean

Form com List/Menu buscando resultados

Por , em ASP Clássico

Recommended Posts

marcelo.ocean    0

marcelo.ocean
Postado

Olá pessoas, novamente com uma dúvida amadora...

Estou com um sistema ja montado, funcionando redondo com inserção, alteração, postagem de fotos no banco de dados, etc...

Usei o Developer Toolbox pra fazer tudo, exceto um último detalhe... o lugar onde o usuário verá os resultados, esse realmente ta dificil...

Montei um esquema, com um form, um list/menu ligado no banco e um post... A página que gera os resultados, já esta montada, ela é meio estranha por causa do objeto que exibe a imagem do banco de dados, que o DDT cria, enfim... vou postar os dois códigos, e peço encarecidamente que alguém me auxilie a fazer a ligação dois dois.

 

A página com a menu/list:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/dados.asp" -->
<%
Dim ret
Dim ret_cmd
Dim ret_numRows

Set ret_cmd = Server.CreateObject ("ADODB.Command")
ret_cmd.ActiveConnection = MM_dados_STRING
ret_cmd.CommandText = "SELECT * FROM tabela" 
ret_cmd.Prepared = true

Set ret = ret_cmd.Execute
ret_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<form id="form_busca" name="form_busca" method="post" action="">
  <p>
    <label>
      <select name="lista" id="lista">
        <%
While (NOT ret.EOF)
%>
        <option value="<%=(ret.Fields.Item("tittle").Value)%>" <%If (Not isNull((ret.Fields.Item("tittle").Value))) Then If (CStr(ret.Fields.Item("tittle").Value) = CStr((ret.Fields.Item("tittle").Value))) Then Response.Write("selected=""selected""") : Response.Write("")%> ><%=(ret.Fields.Item("tittle").Value)%></option>
        <%
  ret.MoveNext()
Wend
If (ret.CursorType > 0) Then
  ret.MoveFirst
Else
  ret.Requery
End If
%>
      </select>
    </label>
    <label>
      <input type="submit" name="Ver" id="Ver" value="Ver" />
    </label>
    <br />
  </p>
</form>
</body>
</html>
<%
ret.Close()
Set ret = Nothing
%>

A página que exibe os resultados:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/dados.asp" -->
<!--#include file="../includes/tNG/tNG.inc.asp" -->
<%
Dim reca
Dim reca_cmd
Dim reca_numRows

Set reca_cmd = Server.CreateObject ("ADODB.Command")
reca_cmd.ActiveConnection = MM_dados_STRING
reca_cmd.CommandText = "SELECT * FROM tabela" 
reca_cmd.Prepared = true

Set reca = reca_cmd.Execute
reca_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>

<body>
<table width="600" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=(reca.Fields.Item("tittle").Value)%></td>
  </tr>
  <tr>
    <td><%=(reca.Fields.Item("notes").Value)%></td>
  </tr>
  <tr>
    <td><img src="<%=tNG_showDynamicImage("../", "../admin/imgs/", "{reca.pic}")%>" /></td>
  </tr>
  <tr>
    <td><%=(reca.Fields.Item("link").Value)%></td>
  </tr>
  <tr>
    <td>---------------------------------------------------------------------------------------------------</td>
  </tr>
  <tr>
    <td> </td>
  </tr>
</table>
</body>
</html>
<%
reca.Close()
Set reca = Nothing
%>

Meu interesse real é que quando o internauta selecione uma das opcoes da lista, ele direcione a outra página com o registro do banco de dados que foi escolhido...

 

Olha gente, sou publicitário, nunca mexi com internet, pela primeira vez to fazendo algo assim e ja arranquei metade dos cabelos...

 

Por favor, socorro ;P

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

selecionou uma opção no select e enviou isso para a pagina seguinte.

recupera esse valor usando request.form

lista= request.form("lista")

 

use esse valor como filtro no select:

 

"select * from tabela where campo ='"&lista&"'"

 

podem ser usados outros parametros de comparação como between, like, etc...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você quer colocar um listbox ou dropdown, que quando o usuario selecionar, atraves de um evento onchange, redirecionar para uma pagina ASP, onde você irá recuperar e fazer um SELECT no SQL, seria isso.... não entendi muito bem sua duvida.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lella    0

lella
Postado

Meu interesse real é que quando o internauta selecione uma das opcoes da lista, ele direcione a outra página com o registro do banco de dados que foi escolhido...

Se entendi o que citou acima.....

 

pagina para escolher a opcao de lista

 

<form action="pag_resposta.asp">
<select name="opcao">
<% do while not seleciona.eof %> 
<option value="<%=seleciona("dados")%>"><%=seleciona("dados")%>
<%seleciona.movenext
loop%>
</select>
<input type="submit" value="Ver">
</form>

pagina que recebe a lista para exibir

 

<%= request.form("opcao")%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito