Ir para conteúdo

POWERED BY:

Arquivado

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

renata_nunes

problemas em montar uma combo dinâmica com SQL server + ASP

Por , em ASP Clássico

Recommended Posts

renata_nunes    0

renata_nunes
Postado

OI, espero q possam me ajudar...A conexão está certa pois outro campos do form estão sendo preenchidos corretamente e estou usando Sql Server... mas a combo não está retornando o que está no banco... sendo que se eu colocar um response.write logo em seguida da consulta sql, ele imprimi o valor certo, ou seja o sql está retornando certo, e a combo passa a mostrar o certo mas em compensação outros campos do form ´passa a não mostrar os dados , tá meio esquisito, já tentei de tudo...

e qdo vizualizo no codigo html pelo browser entra direto no "else"...

código exibido pelo browser...

<body>
	
<div id="mae">
	<div id="pcerj">
		<ul id="titPcerj">
			<li id="TSup">POLÍCIA CIVIL</li>
			<li id="TInf">DO ESTADO DO RIO DE JANEIRO</li>
		</ul>
	</div>
	<div id="subTitulo">
		Módulo de Administração - Edição
	</div>
	<br />
	<img src="../imagem/imgTopo.jpg" />
	<div id="conteudo">
	<div id="formNoticia" >
	<br />
		<form  name="form1"  method="get" action="actEditar.asp"> 
		<table width=60% height=auto cellspacing="4" class="tabCentralizada">
		<tr><td colspan="3">Titulo:</td>
		</tr>
		<tr><td colspan="3"><input type="text" name="titulo" size="90" value="titulo da marteria"/></td></tr>
		<tr><td colspan="3">Resumo:</td></tr>
		<tr>
		  <td colspan="3"><textarea name="resumo" cols="80" rows="5">resumo da materia</textarea></td>
		</tr>
		<tr><td colspan="3">Corpo:</td></tr>
		<tr><td height="51" colspan="3"><textarea name="corpo" cols="80" rows="15" id="corpo">copo da materia
</textarea></td></tr>
		<tr><td colspan="3">Autor:</td></tr>
		<tr><td colspan="3"><input name="autor" size="50" value="Allan"/></td></tr>
		<tr><td colspan="3">Sessão:</td>
		</tr>
		<tr>
		<td colspan="3">
		  <select name="tipo">
			  <option value="institucional" selected="selected">institucional</option>
			  
				 	<option value="noticia">noticia</option>
				   
				 	<option value="perfil">perfil</option>
				   
			</select>
			</td>
		</tr>
		
			<tr><td colspan="3">Foto de capa: </td></tr>
			<tr><td colspan="3"><input type="text" name="fotocapa" size="20" value="28042008"/>.jpg</td>
			</tr>
			<tr><td colspan="3">Legenda: </td></tr>
			<tr><td colspan="3"><input type="text" name="legenda" size="90" value="legenda da not 1224"/></td></tr>
			<tr><td>Foto interna:</td><td>Destaque:</td><td>Status:</td></tr>
			<tr><td >	  
			
			<select name="foto">
			  
					<option value="n" selected="selected">Não</option>
					<option value="s">Sim</option>
				
			</select>
			
			</td><td>
			
			<select name="destaque">
			  
					<option value="n">Não</option>
					<option value="s">Sim</option>
				
			</select>
			
			</td><td>
			
			<select name="status">
			   
					<option value="i">Pendente</option>
					<option value="a">Liberado</option>
				
			</select>
			
			</td></tr> 
		  <tr>
			  <td width="44" height="50"><input type="submit" name="reset" value="Limpar" /></td>
			  <td width="42"><input type="submit" name="Submit" value="Salvar" /></td>
		  </tr>
		</table>
	</form>
	</div>
   </div>
   
<div id="rodapeExibir"> Polícia Civil do Estado do Rio de Janeiro		</div>
</div>
</body>

Agora o código no html

<%
  
  codNoticia = request.QueryString("codigo")
  acao = request.QueryString("act")
  tipo = request.QueryString("tipo")
  autor = request.QueryString("autor")
  
  set conn = obtain_connection()
  
  set rsNoticia = Server.CreateObject("ADODB.Recordset")
  set rsEditor = Server.CreateObject("ADODB.Recordset")
  set rsTipo = Server.CreateObject("ADODB.Recordset")  
	
	
	sqlNoticia = "select * from noticias4  WHERE(codigo = '"&codNoticia&"')"
	rsNoticia.Open sqlNoticia, conn
	
	'tipo = rsNoticia("tipodenoticia")
	
	sqlTipo = "select nome from tipodenoticia"
	rsTipo.open sqlTipo, conn
	
		
	sqlEditor = "select nome from editores where codigo = '"&autor&"'"
	rsEditor.Open sqlEditor, conn
	'response.Write(rsNoticia("status"))
	'response.Write(rsNoticia("foto"))
	'response.Write(rsNoticia("destaque"))
	'destaque = rsNoticia("destaque")
	
%>
<title>Módulo de Administração</title>
<link href="../css/style.css" rel="stylesheet" type="text/css" />
<link href="../css/exibir.css" rel="stylesheet" type="text/css" />
<link href="../css/modulo.css" rel="stylesheet" type="text/css" />
<script type="text/JavaScript">
<!--

//-->
</script>
</head>
autenticado = <%=session("codigo")%>
nivel = <%=session("nivel")%>
<body>
	
<div id="mae">
	<div id="pcerj">
		<ul id="titPcerj">
			<li id="TSup">POLÍCIA CIVIL</li>
			<li id="TInf">DO ESTADO DO RIO DE JANEIRO</li>
		</ul>
	</div>
	<div id="subTitulo">
		Módulo de Administração - Edição
	</div>
	<br />
	<img src="../imagem/imgTopo.jpg" />
	<div id="conteudo">
	<div id="formNoticia" >
	<br /><%
	if acao = "editar" then %>
		<form  name="form1"  method="get" action="actEditar.asp"> <%
	else %>
		<form  name="form1"  method="get" action="actExcluir.asp"> <%
	end if %>
		<table width=60% height=auto cellspacing="4" class="tabCentralizada">
		<tr><td colspan="3">Titulo:</td>
		</tr>
		<tr><td colspan="3"><input type="text" name="titulo" size="90" value="<%=rsNoticia("titulo")%>"/></td></tr>
		<tr><td colspan="3">Resumo:</td></tr>
		<tr>
		  <td colspan="3"><textarea name="resumo" cols="80" rows="5"><%=rsNoticia("resumo")%></textarea></td>
		</tr>
		<tr><td colspan="3">Corpo:</td></tr>
		<tr><td height="51" colspan="3"><textarea name="corpo" cols="80" rows="15" id="corpo"><%response.write(rsNoticia("corpo"))%></textarea></td></tr>
		<tr><td colspan="3">Autor:</td></tr>
		<tr><td colspan="3"><input name="autor" size="50" value="<%=rsEditor("nome")%>"/></td></tr>
		<tr><td colspan="3">Sessão:</td>
		</tr>
		<tr>
		<td colspan="3">
		  <select name="tipo">
			  <option value="<%=tipo%>" selected="selected"><%=tipo%></option>
			  <% while not rsTipo.EOF 
				 if rsTipo("nome") = tipo then 
					rsTipo.moveNext 
				 else%>
				 	<option value="<%=rsTipo("nome")%>"><%=rsTipo("nome")%></option>
				   <%	rsTipo.moveNext 
				 end if
				  wend
			   %>
			</select>
			</td>
		</tr>
		<% if session("nivel") <> 1 then %>
			<tr><td colspan="3">Foto de capa: </td></tr>
			<tr><td colspan="3"><input type="text" name="fotocapa" size="20" value="<%=rsNoticia("fotocapa")%>"/>.jpg</td>
			</tr>
			<tr><td colspan="3">Legenda: </td></tr>
			<tr><td colspan="3"><input type="text" name="legenda" size="90" value="<%=rsNoticia("legenda")%>"/></td></tr>
			<tr><td>Foto interna:</td><td>Destaque:</td><td>Status:</td></tr>
			<tr><td >	  
			<% 'response.Write(rsNoticia("foto"))
			 'response.Write(rsNoticia("destaque")) 
			 'response.Write(rsNoticia("status"))
			 'response.End()	 
			 %>
			<select name="foto">
			  <% if rsNoticia("foto")= "s" then%>
					<option value="s">Sim</option>
					<option value="n">Não</option>
				<%else%>
					<option value="n" selected="selected">Não</option>
					<option value="s">Sim</option>
				<%end if%>
			</select>
			
			</td><td>
			
			<select name="destaque">
			  <% if rsNoticia("destaque")= "s" then%>
					<option value="s">Sim</option>
					<option value="n">Não</option>
				<%else%>
					<option value="n">Não</option>
					<option value="s">Sim</option>
				<%end if%>
			</select>
			
			</td><td>
			
			<select name="status">
			   <% if rsNoticia("status")= "a" then%>
					<option value="a">Liberado</option>
					<option value="i">Pendente</option>
				<%else%>
					<option value="i">Pendente</option>
					<option value="a">Liberado</option>
				<%end if%>
			</select>
			
			</td></tr> <%
		  
		  end if %>
		  <tr>
			  <td width="44" height="50"><input type="submit" name="reset" value="Limpar" /></td>
			  <td width="42"><input type="submit" name="Submit" value="Salvar" /></td>
		  </tr>
		</table>
	</form>
	</div>
   </div>
   <%
	set rsNoticia = nothing
	set rsTipo = nothing
   %>
<div id="rodapeExibir"> Polícia Civil do Estado do Rio de Janeiro		</div>
</div>
</body>

Tô precisando mesmo de ajuda, gente... obrigada

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o problemas esta aqui?

 

<select name="tipo">
			  <option value="<%=tipo%>" selected="selected"><%=tipo%></option>
			  <% while not rsTipo.EOF
				 if rsTipo("nome") = tipo then
					rsTipo.moveNext
				 else%>
					 <option value="<%=rsTipo("nome")%>"><%=rsTipo("nome")%></option>
				   <%	rsTipo.moveNext
				 end if
				  wend
			   %>
			</select>

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

não, é nas combos do destaque, foto e status da matéria. esse q você citou tbm não estava mostrando, aí tive q receber por parametro (vide o código) e fazer uma consulta em separado, mas achei isso meio gambiarra... desculpe pela demora, e´aki em casa é banda estreita aí já viu, né...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Mostrea aqui o trecho do codigo com problemas

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

tentei tbm jogar o conteudo do rsNoticia para uma variável e fazer os ifs com ela, mas tm não deu certo...

 

<tr><td>Foto interna:</td><td>Destaque:</td><td>Status:</td></tr>

<tr><td >

 

<select name="foto">

<% if rsNoticia("foto")= "s" then%>

<option value="s">Sim</option>

<option value="n">Não</option>

<%else%>

<option value="n" selected="selected">Não</option>

<option value="s">Sim</option>

<%end if%>

</select>

 

</td><td>

 

<select name="destaque">

<% if rsNoticia("destaque")= "s" then%>

<option value="s">Sim</option>

<option value="n">Não</option>

<%else%>

<option value="n">Não</option>

<option value="s">Sim</option>

<%end if%>

</select>

 

</td><td>

 

<select name="status">

<% if rsNoticia("status")= "a" then%>

<option value="a">Liberado</option>

<option value="i">Pendente</option>

<%else%>

<option value="i">Pendente</option>

<option value="a">Liberado</option>

<%end if%>

</select>

 

</td></tr> <%

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Este

 

<select name="foto">
<% if rsNoticia("foto")= "s" then%>
<option value="s">Sim</option>
<option value="n">Não</option>
<%else%>
<option value="n" selected="selected">Não</option>
<option value="s">Sim</option>
<%end if%>
</select>

O mais correto usando a sua logica é

 

<select name="foto">
<% if rsNoticia("foto")= "s" then%>
<option value="s" selected>Sim</option>
<option value="n">Não</option>
<%else%>
<option value="s" selected>Não</option>
<option value="s">Sim</option>
<%end if%>
</select>

No db esta s e n mesmo? semre minusculo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

eu creio q as combos estão certas tanto que qdo eu coloco o tal response.write referente ao campo a combo passa funicionar, inclusive a linha do response está comentada em um dos post anteriores, usei para testar se a consulta estava retornado certo... eu acho que deve ter alguma imcompatibilidade, não sei...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Qual o erro exatamente?

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

uma das combo é para mostra se a matéria é (sim) ou (não) destaque só q a combo mostra "não" sempre independente do que esteja no banco o mesmo acontece com as cobos status e foto...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Antes disso manda escrever na tela o rsNoticia("foto")

 

Assim

 

<%Resposne.write("Foto = " & rsNoticia("foto"))
Response.end%>

O que aparecer posta aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

fiz agora para testar o seguinte: comentei os <select> e apenas dei um response.write("nomedocampo") e mesmo assim não funionou, concluo entaum q o problema não são as combos... mas o que poderia ser....

 

apareceu nda....

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Tenta assim:

<select name="foto">
<option value="s" <% if lcase(rsNoticia("foto"))= "s" then%>selected<%end if%>>Sim</option>
<option value="n" <% if lcase(rsNoticia("foto"))= "n" then%>selected<%end if%>>Não</option>
</select>
Se não der certo, em cima do select coloca response.write rsNoticia("foto") e posta o que apareceu escrito.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Faça o que pedi anteriormente

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

não deu certo o select mostrava sempre sim, e depois coloquei o reponse e nada escreveu...

 

Faça o que pedi anteriormente

não escreveu nada...

 

Este

 

<select name="foto">
<% if rsNoticia("foto")= "s" then%>
<option value="s">Sim</option>
<option value="n">Não</option>
<%else%>
<option value="n" selected="selected">Não</option>
<option value="s">Sim</option>
<%end if%>
</select>

O mais correto usando a sua logica é

 

<select name="foto">
<% if rsNoticia("foto")= "s" then%>
<option value="s" selected>Sim</option>
<option value="n">Não</option>
<%else%>
<option value="s" selected>Não</option>
<option value="s">Sim</option>
<%end if%>
</select>

No db esta s e n mesmo? semre minusculo?

estão minúsculas, já conferi... vou tentar com esse código... vlw

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

tem tds as sugstões de vcs mas não funcionou... gente, se colocar um response.write no início da página q onde faço os selects (sql) ele imprimi o q está no banco certo, e dentro do form, nas combos tbm aparecem oq está no banco, mas os outros conteúdo do form simplesmente desaparecem, com um textarea... e para fazer eles voltarem a aparecer basta eu comentar essa linha do response no início da pagina q voltam a aparerecer, mas as combos voltam a não funcionar... isso que é estranho... mas obrigada mesmo pela ajuda de vcs...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Faz o seguinte: executa os mesmos passos que você executou que fizeram com quê uma parte do formulário sumisse.

 

Após exibir no navegador o resultado, manda exibir o código fonte (todo o html), seleciona ele todo e posta aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

renata_nunes    0

renata_nunes
Postado

Faz o seguinte: executa os mesmos passos que você executou que fizeram com quê uma parte do formulário sumisse.

 

Após exibir no navegador o resultado, manda exibir o código fonte (todo o html), seleciona ele todo e posta aqui.

CODE

<!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=iso-8859-1" />

 

ass

<title>Módulo de Administração</title>

<link href="../css/style.css" rel="stylesheet" type="text/css" />

<link href="../css/exibir.css" rel="stylesheet" type="text/css" />

<link href="../css/modulo.css" rel="stylesheet" type="text/css" />

<script type="text/JavaScript">

<!--

 

//-->

</script>

</head>

autenticado =

nivel =

<body>

 

<div id="mae">

<div id="pcerj">

<ul id="titPcerj">

<li id="TSup">POLÍCIA CIVIL</li>

<li id="TInf">DO ESTADO DO RIO DE JANEIRO</li>

</ul>

</div>

<div id="subTitulo">

Módulo de Administração - Edição

</div>

<br />

<img src="../imagem/imgTopo.jpg" />

<div id="conteudo">

<div id="formNoticia" >

<br />

<form name="form1" method="get" action="actEditar.asp">

<table width=60% height=auto cellspacing="4" class="tabCentralizada">

<tr><td colspan="3">Titulo:</td>

</tr>

<tr><td colspan="3"><input type="text" name="titulo" size="90"

 

value="Polícia Civil apreende arsenal de Celsinho na Vila Vintém "/></td></tr>

<tr><td colspan="3">Resumo:</td></tr>

<tr>

<td colspan="3"><textarea name="resumo" cols="80" rows="5">Agentes da

 

Delegacia de Roubos e Furtos (DRF), da 37ª DP (Ilha do Governador) e da Divisão de Proteção

 

à Criança e ao Adolescente (DPCA) apreenderam no início da manhã desta segunda-feira (dia 3)

 

um arsenal utilizado por traficantes da Favela da Vila Vintém...</textarea></td>

</tr>

<tr><td colspan="3">Corpo:</td></tr>

<tr><td height="51" colspan="3"><textarea name="corpo" cols="80" rows="15"

 

id="corpo"></textarea></td></tr>

<tr><td colspan="3">Autor:</td></tr>

<tr><td colspan="3"><input name="autor" size="50" value="Allan"/></td></tr>

<tr><td colspan="3">Sessão:</td>

</tr>

<tr>

<td colspan="3">

<select name="tipo">

<option value="institucional" selected="selected">institucional</option>

 

<option value="noticia">noticia</option>

 

<option value="perfil">perfil</option>

 

</select>

</td>

</tr>

 

<tr><td colspan="3">Foto de capa: </td></tr>

<tr><td colspan="3"><input type="text" name="fotocapa" size="20"

 

value=""/>.jpg</td>

</tr>

<tr><td colspan="3">Legenda: </td></tr>

<tr><td colspan="3"><input type="text" name="legenda" size="90"

 

value="legenda 1230"/></td></tr>

<tr><td>Foto interna:</td><td>Destaque:</td><td>Status:</td></tr>

<tr><td >

 

<select name="foto">

 

<option value="s" selected="selected">Sim</option>

<option value="n">Não</option>

 

</select>

 

</td><td>

 

<select name="destaque">

 

<option value="s" selected="selected">Sim</option>

<option value="n">Não</option>

 

</select>

 

</td><td>

 

<select name="status">

 

<option value="a"

 

selected="selected">Liberado</option>

<option value="i">Pendente</option>

 

</select>

 

</td></tr>

<tr>

<td width="44" height="50"><input type="submit" name="reset"

 

value="Limpar" /></td>

<td width="42"><input type="submit" name="Submit" value="Salvar"

 

/></td>

</tr>

</table>

</form>

</div>

</div>

 

<div id="rodapeExibir"> Polícia Civil do Estado do Rio de Janeiro </div>

</div>

</body>

 

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nem o

 

FOTO =

???

 

Tem qeu retornar pelo menos isso

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