Ir para conteúdo

POWERED BY:

Arquivado

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

Layo

response.write

Por , em ASP Clássico

Recommended Posts

Layo    10

Layo
Postado

Tenho um sistema onde tenho um campo chamado destaque no banco de dados

 

Queria que quando a pessoa digita-se " s " todos os dados aparecem na tela junto com os outros campos..

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Não entendi. Você quer que digite S onde? Digitar ou pressionar? Você tem alguma noção de ASP? Você tem alguma noção de ler um banco de dados utilizando ASP?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

Tenho os campos Nome, end, cep,cidade, tel até ai tudo bem.. e tenho um campo destaque quando a pessoa cadastrar " s " aparecesse todos os outros dados na tela se não colocar " s " os outros campos ficarem ocultos tipo assim

 

<%

if (Recordset1("destaque") = "s") Then

RESPONSE.Write("OK")

else

Response.Write("")%> gostaria de saber como deixo o campo oculto ? só mostre os dados nome, endereço, cidade, tel se a pessoa colocar " s " .

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ronaldo_wt    0

Ronaldo_wt
Postado

EDIT: escrevi isso no mesmo tempo que o layo e quando vi ja tinha sido postado.

 

Pelo que vi me parece busca com ASP + Ajax que quando você digitar a letra "s" aparecerá resultados que contenham inicio com "s" sem dar refresh na página, mas seria melhor especificar seu pedido http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

Entao é assim é um site de imobiliaria que é auto administrativo...

 

Na página inicial queria que quando ele colocar a letra " s " no painel adm que ele mesmo ira cadastrar no campo destaque aparecece na tela o imovel se ele nao colocar " s " o imovel fica oculto ... nao mostrando nenhum dado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

uma condicional simples , você consegue

, você pode até por exemplo, verificando se o "s" esta ativado, você redireciona

para determinada página onde exibe todos os imoveis, ou tb atraves do banco faz uma pesquisa e na onde tiver o "s" você nao exibe...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tipo fazendo no bd

 

<!--#include file="conn/conexao1.asp"--> 
<% call abreconexao
			
  'crio o rs
  set rs=Server.CreateObject("ADODB.Recordset")
  'crio o SQL
  SQL="SELECT * FROM tabela WHERE imoveis = '"&var_status&"' ORDER BY Nome"
  rs.open SQL,conexao,1,3
   %>
<TABLE WIDTH="95%" BORDER="1" BORDERCOLOR="#666666" BGCOLOR="#e6e6e6" ALIGN="center"> 
<TR> <TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Nome</B></FONT></DIV></TD><TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>End</B></FONT></DIV></TD><TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#666666"><B>Email</B></FONT></DIV></TD><TD WIDTH="20%"></TR> 
<%  while not rs.eof%> 
<TR> <TD WIDTH="16%"> <DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("login")%></B></FONT></DIV></TD><TD WIDTH="15%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("senha")%></B></FONT></DIV></TD><TD WIDTH="25%"> 
<DIV ALIGN="center"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#000000"><B><%=rs("email")%></B></FONT></DIV></TD></TR> 
<% rs.movenext
  	wend
	set rs=nothing
   call fechaconexao
%> </TABLE>
e você usa o while not, satisfazendo a condicaun

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

Ele ja esta cadastrando, excluindo, atualizando os dados do banco ordenando etc.. o problema é a exibição na tela eu entendi o exemplo acima .. só q nao achei o esquema ... quero que exiba os cadastros que estiverem com o campo descrição " s " ..

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você faz direto na consulta SQL, selecionando apenas o criterio especifico e depois exibe os recordset resultante

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

vou tentar fazer esse esquema q você falou...estou tentando fazer isso if o campo descrição estiver " s " then coloque todos os dados na pagina inicial else estiver vazio não mostre ele na tela.. é isso q nao estou conseguindo..

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

como esta sua consulta SQL

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Layo explique melhor qual a sua dificuldade atual e que erro vem enfrentando pois o tópico já está confuso

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você wxecuta seu SELECT, baseado no " s "

SQL="SELECT * FROM tabela WHERE imoveis = '"&var_status&"' ORDER BY Nome"

e mostra em uma tabela

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

vou postar o código

 

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/cadastro.asp" -->

<%
response.buffer = "true"

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

MM_abortEdit = false


MM_editQuery = ""
%>
<%

if (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_cadastro_STRING
  MM_editTable = "cadastro_cliente"
  MM_editColumn = "cod"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "confirma_exclusao.asp"


  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If
  
End If
%>
<%


If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql delete statement
  MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the delete
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cadastro_STRING
Recordset1.Source = "SELECT *  FROM cadastro_cliente  ORDER BY nome"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = 10
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%


Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
  Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
  Recordset1_numRows = 1
End If

Recordset1_first = 1
Recordset1_last  = Recordset1_first + Recordset1_numRows - 1

If (Recordset1_total <> -1) Then
  If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
  If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total
  If (Recordset1_numRows > Recordset1_total) Then Recordset1_numRows = Recordset1_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (Recordset1_total = -1) Then

  Recordset1_total=0
  While (Not Recordset1.EOF)
    Recordset1_total = Recordset1_total + 1
    Recordset1.MoveNext
  Wend

  If (Recordset1.CursorType > 0) Then
    Recordset1.MoveFirst
  Else
    Recordset1.Requery
  End If

  If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
  End If

  Recordset1_first = 1
  Recordset1_last = Recordset1_first + Recordset1_numRows - 1
  If (Recordset1_first > Recordset1_total) Then Recordset1_first = Recordset1_total
  If (Recordset1_last > Recordset1_total) Then Recordset1_last = Recordset1_total

End If
%>
<%

Set MM_rs    = Recordset1
MM_rsCount   = Recordset1_total
MM_size      = Recordset1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  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

  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%

If (MM_rsCount = -1) Then

  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  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

  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%

Recordset1_first = MM_offset + 1
Recordset1_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (Recordset1_first > MM_rsCount) Then Recordset1_first = MM_rsCount
  If (Recordset1_last > MM_rsCount) Then Recordset1_last = MM_rsCount
End If

MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%

MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#990000" vlink="#990000" alink="#990000">
<b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></b> 
<table width="100%" border="0" bgcolor="#6699FF">
  <tr>
    <td width="58%"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Listando:(<font color="#990000"> 
      <font color="#FFFFFF"><%=(Recordset1_first)%></font> </font>) De: (<font color="#990000"> <font color="#FFFFFF"><%=(Recordset1_last)%></font> </font>)</font></b></td>
    <td width="1%"><b></b></td>
    <td width="41%"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Total 
      de registros: (<font color="#990000"> <font color="#FFFFFF"><%=(Recordset1_total)%></font></font> </font></b><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> 
      )</font></b> </td>
  </tr>
</table>
<% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
<table width="100%" border="1" cellspacing="1" cellpadding="0" bordercolor="#6699FF">
  <tr> 
    <td colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nome:<font color="#0000CC"> 
      <%=Recordset1("nome")%></font></font></b></td>
    <td colspan="4"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cidade:<font color="#0000CC"> 
      <%=Recordset1("cidade")%></font></font></b></td>
    <td width="15%"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Estado:<font color="#0000CC"> 
      <%=Recordset1("estado")%></font></font></b></td>
    <td width="11%" bgcolor="#FF9900"> <div align="center"><b><font size="1"><b><font face="Verdana" size="2" color="#000000"><a href="atualizar_form.asp?cadastro_cliente=<%=Recordset1("Cod")%>"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF">Atualizar</font></b></a></font></b></font></b></div></td>
  </tr>
  <tr> 
    <td colspan="5"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">End:<font color="#0000CC"> 
      <%=Recordset1("endereco")%></font></font></b></td>
    <td colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cep:<font color="#0000CC"> 
      <%=Recordset1("cep")%></font></font></b></td>
    <td rowspan="3" width="11%" bgcolor="#CC0000"> <form name="form1" method="POST" action="<%=MM_editAction%>">
        <div align="center"> 
          <input type="submit" name="Submit" value="Excluir">
          <br>
          <input type="hidden" name="MM_delete" value="true">
          <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("cod").Value %>">
        </div>
      </form></td>
  </tr>
  <tr> 
    <td width="26%"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Tel.res.: 
      <%=Recordset1("tel1")%></font></b></td>
    <td colspan="4"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Tel.com.:<font color="#0000CC"> 
      <%=Recordset1("tel2")%></font></font></b></td>
    <td colspan="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Tel.cel.:<font color="#0000CC"> 
      <%=Recordset1("cel")%></font></font></b></td>
  </tr>
  <tr> 
    <td colspan="4"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">E-mail:<font color="#990000"> 
      <a href="mailto:<%=Recordset1("email")%>"><%=Recordset1("email")%></a></font></font></b></td>
    <td colspan="3"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Data 
      cadastro:<font color="#0000CC"> <%=Recordset1("data")%></font></font></b></td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="8"> Teste: <font size="2"><%=Recordset1("teste")%></font></td>
  </tr>
  <tr bgcolor="#6699FF">
    <td colspan="8"> </td>
  </tr>
</table>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
<table border="0" width="50%" align="center">
  <tr bgcolor="#6699FF"> 
    <td width="23%" align="center"> 
      <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> 
        <% If MM_offset <> 0 Then %>
        <a href="<%=MM_moveFirst%>">Primeira</a> 
        <% End If ' end MM_offset <> 0 %>
        </font></b></div>
    </td>
    <td width="31%" align="center"> 
      <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> 
        <% If MM_offset <> 0 Then %>
        <a href="<%=MM_movePrev%>">Anterior</a> 
        <% End If ' end MM_offset <> 0 %>
        </font></b></div>
    </td>
    <td width="23%" align="center"> 
      <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> 
        <% If Not MM_atTotal Then %>
        <a href="<%=MM_moveNext%>">Próxima</a> 
        <% End If ' end Not MM_atTotal %>
        </font></b></div>
    </td>
    <td width="23%" align="center"> 
      <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"> 
        <% If Not MM_atTotal Then %>
        <a href="<%=MM_moveLast%>">Última</a> 
        <% End If ' end Not MM_atTotal %>
        </font></b></div>
    </td>
  </tr>
</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele esta gerando algum erro ????

você esta fazendo no Dreamweaver, sugiro criar manualmente, o dw , coloca alguns lixos no code

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

sim estou fazendo no dw.. ele nao esta dando pau o problema eh q nao consigo criar uma coisa..

q eh um campo " descrição " q ja tem no banco de dados .. quando ele for preenchido pela pessoa e digitar " s " os outros dados irao aparecer na tela ..

 

Formulario q a pessoa cadastra vai para o banco de dados e é mostrado na tela...

 

Nome: Layo

 

Cidade: São Paulo

 

Estado: São Paulo

 

End: Rua teste

 

Cep: 0000-000

 

Tel.res.: 0000-0000

 

Tel.com.: 0000-0000

 

Tel.cel.: 0000-0000

 

E-mail: teste@teste.com.br

 

Data cadastro: 00/00/0000

 

Descrição: s

 

Se caso eu cadastrar " s " no campo descrição todos os outros dados serão mostrados na tela se eu deixar em branco.. nao aparece nada na tela.. é isso q estou tentando fazer...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

uma simples consulta SQL no banco e depois você precisa apenas dar o display dos recordsets resultantes...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Layo    10

Layo
Postado

Display(“S”)eu fiz isso ontem oq aconteceu foi na hora da busca ele mostrar os dados com letra s... nao consegui fazer referencia com o campo descrição ..

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