Só aparece metade do SITE

[DOM 0]

Olá amigos estou com um grande problema, passei quase duas semanas querendo saber com faz combobox dinâmica para colocar em um site, descobri coloquei está funcionando corretamente.

Só que tem um problema na página só aparecem elas as combobox.

Eu já revisei o código todo não tem erro era para aparecer tudo. Poriso vou mandar o código para você me ajudarem.

 

<%   'vamos verificar se foi setado para salvar   if request("salvar") = "1" then	  'chama os procedimentos para verificar e validar os campos.	  'campos a ser verificados.	  'nome	  usuario= replace(request("cod_usu"),"","")	  banda= replace(request("cod_art"),"","")	  album= replace(request("cod_alb"),"","")	  nome= replace(request("musicas"),"","")	    			  if len(nome) < 0 then erro = erro & "- O nome da banda ou do artista esta muito curto, deve ser > 2 caracteres.<br>"' 	  	  'verifica se ja existe esse album	   set rs = conexao.execute("SELECT * FROM musica where cod_usu = " & cod_usu & " and nome = '" & nome & "' limit 0,1")	  	   if not rs.eof then		  erro = erro & "- Já existe um álbum com esse nome.<br>"	   end if	  	  'se nao der erro salva	  if len(erro) = 0 then		   conexao.execute("INSERT INTO album (cod_usu, cod_art, cod_alb, nome,) VALUES (" & cod_usu & ", " & banda & ", " & album & ", '" & nome & "')")		   response.redirect "index.asp?cod_usu=" &  cod_usu & "&action=pospost&msn_nome=Cadastro Banda/Artista&msn=Cadastro efetuado com sucesso...&passo=Cadastrar outra(o) banda/artista&passo=Cadastrar álbuns&link=" & Server.URLEncode("index.asp?cod_usu="& cod_usu & "&action=artista_cadastrar") & "&link=" & Server.URLEncode("index.asp?cod_usu=" & cod_usu &"&action=album_cadastrar_album")	  end if	  url = replace(url,"http://","")   end if%><%	Function EscreveFuncaoJavaScript()	Response.Write "<script language=""JavaScript"">" & vbcrlf 	Response.Write "function atualizaartistas(album) {" & vbcrlf	'Essa função JavaScript recebe o form em que estão os campos a serem atualizados!	'Veja na chamada da função no método OnChange em que se passa o this.form!	'Vamos criar um switch para ele verificar qual opção foi selecionada!! 	Response.Write "switch (album.cmbartista.options[album.cmbartista.selectedIndex].value) {" & vbcrlf 	'Agora entramos com o banco de dados! Temos que preencher todos os distritos!	set rs = conexao.execute("SELECT * FROM artistas ORDER BY cod_art asc")	While NOT rs.EOF		'Caso tenha sido esse distrito selecionado... 		Response.Write "case '" & rs.fields("cod_art") & "':" 		'Apagamos tudo o que tem na caixa dos concelhos!		Response.Write "album.cmbalbum.length=0;" & vbcrlf 		'Seleccionamos todos os concelhos do distrito escolhido!		set rsaux = conexao.execute("SELECT * FROM album WHERE cod_art=" & rs.fields("cod_art") & " order by nome asc")		'Fazemos um loop por todos os concelhos, criando uma nova opção no SELECT! 		i = 0 	 		While NOT rsAux.EoF			Response.Write "album.cmbalbum.options[" & i & "] = new Option('" & rsAux.fields("nome") & "','" & rsAux("cod_alb") & "');"				i=i+1			rsAux.MoveNext		Wend			Response.Write "album.cmbalbum.size=1;" & vbcrlf 				'Imprimos um break! (Verifique tutoriais de JavaScript, se tiverem alguma dúvida da sua utilização! 		Response.Write "break;" & vbcrlf		'Próximo concelho! 		rs.MoveNext 	Wend	'Fecha chaves do switch e da função! E fecha o script! 	Response.Write "}}" & vbcrlf & "</script>" & vbcrlf End FunctionEscreveFuncaoJavaScript()%><form action="index.asp?action=album_cadastrar_album" method="post" name="album" id="album">  <table border="0" width="70%" cellspacing="0" cellpadding="0">	<%	if len(erro) > 1 then	%>	  <tr>		<td colspan="2">		  <p align="center"><b><font color="#FF0000" size="2" face="Verdana">E R R O</font> </b> </td>	  </tr>	  <tr>		<td colspan="2"><font color="#FF0000"><%= ERRO %><br>		  <br>		  </font></td>	  </tr>	  <%	  end if	  %>  <tr>	<td colspan="2"><br>	</td>  </tr>  <tr>	  <td colspan="2"><font face="Verdana" size="2"><img border="0" src="imagens/triangulo.gif"> 		<b>Cadastro de Música </b></font></td>  </tr>  <tr>	<td width="30%"></td>	<td width="70%"></td>  </tr>  <tr>	<td width="30%"> <font face="Verdana" size="2"> Banda ou Artista:</font> </td>	<td width="70%"><font face="Verdana" size="2"><select name="cmbartista" id="cmbartista" onChange="atualizaartistas(this.form);">  <option>-- Banda ou Artista --</option>  <%			   set rs = conexao.execute("SELECT * FROM `artistas` where cod_usu = '" & cod_usu & "' order by nome asc")	  								while not rs.EOF					Response.Write "<option value=""" & rs.Fields("cod_art") & """>" & rs.Fields("nome") & "</option>"									rs.movenext				wend							%></select></font>	</td>  </tr>  <tr>	<td width="30%"><font face="Verdana" size="2">Nome do álbum:</font> </td>	<td width="70%"><font face="Verdana" size="2"><select name="cmbalbum" id="cmbalbum" class="textbox">				<option>-- Album --</option>				<%				set rs = conexao.execute("select * from albuns where cod_art='" & rs.Fields("cod_art") & "'")							while not rs.EOF					Response.Write "<option value=""" & rs.Fields("cod_alb") & """>" & rs.Fields("nome") & "</option>"									rs.movenext				wend							%>		</select></font>	</td>  </tr>  <tr>	<td width="30%"><font face="Verdana" size="2">Músicas:</font></td>	<td width="70%"><p><font size="1">Favor separar cada nome por quebra de linha.<br>		  ex: música 1</font></p>	   <p>		<textarea name="musicas" cols="28" rows="8" id="musicas"><%= musicas %></textarea>	  </p>	  </td>  </tr>  <tr>	<td width="30%" valign="top"> </td>	<td width="70%"> 	</td>  </tr>  <tr>	<td width="30%" valign="top"> </td>	<td width="70%">	</td>  </tr>  <tr>	<td width="30%" valign="top"><br>	  <br> </td>	<td width="70%"> <table class="buttonborder">	<tr>	<td><input type="submit" value="Cadastrar ->" name="submit"></td>	</tr> </table>	</td>  </tr></table><input type="hidden" name="salvar" value="1"></form>

[AMON-HÁ 0]

Tá... vamos por parte...

naum sei bem ao certo qual é o seu erro, pois naum entendi direito... mas achei alguns erros ae no seu código... talvés seja algum deles...

 

1º

usuario= replace(request("cod_usu"),"","")

banda= replace(request("cod_art"),"","")

album= replace(request("cod_alb"),"","")

nome= replace(request("musicas"),"","")

nessa parte... pra que os replaces???

substituir nada por nada... :blink:

naum entendi...

 

2º

if len(nome) < 0 then

existe string com tamanho negativo??? http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

naum deveria ser assim naum... if len(nome) <= 3 then... já que quer que a string nome seja maior que 2... (maior que 2, é 3,4,5,6,...)

 

3º

<%

set rs = conexao.execute("select * from albuns where cod_art='" & rs.Fields("cod_art") & "'")

 

while not rs.EOF

Response.Write "<option value=""" & rs.Fields("cod_alb") & """>" & rs.Fields("nome") & "</option>"

 

rs.movenext

wend

 

%>

Naum use essa parte...

esse combobox será preenchido pelo javascript...

 

4º

quando você chama o banco e puxa os valores de uma determinada tabela... o ponteiro se posiciona no final da tabela... por isso é necessário movê-lo novamente para o inicio caso queira chamar os valores do banco novamente... por isso, coloque a intrução RS.MoveFirst antes do while...

 

bom acho que é só... se naum resolver o problema poste ae novamente...

 

Boa Sorte!!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[DOM 0]

Olá amigos muito obrigado por e ajudarem, mas eu não entendi algumas coisas:

3º

<%

set rs = conexao.execute("select * from albuns where cod_art='" & rs.Fields("cod_art") & "'")

 

while not rs.EOF

Response.Write "<option value=""" & rs.Fields("cod_alb") & """>" & rs.Fields("nome") & "</option>"

 

rs.movenext

wend

 

%>

Naum use essa parte...

esse combobox será preenchido pelo javascript...

É para excluir esse código ? Pois eu exclui ele dá o seguinte erro:

Erro de compilação do Microsoft VBScript erro '800a03f6' 'End' esperado /sys/album_cadastrar_musica.asp, line 164

Essa linha é da combobox 2

<textarea name="musicas" cols="28" rows="8" id="musicas"><%= musicas %></textarea>

[AMON-HÁ 0]

Bom... respondendo a primeira parte...

É para excluir esse código ? Pois eu exclui ele dá o seguinte erro:

Sim... é pra excluir esse código sim...como eu disse... o 2º combobox vai ser preenchido pelo javasript... ele tem que está vazio...Já a segunda parte... relacionado ao erro que deu...poste ae o código depois das mudanças pra mim dar uma olhada... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[DOM 0]

O código ficou assim então depois que eu fiz o que você me pediu:

<%   'vamos verificar se foi setado para salvar   if request("salvar") = "1" then	  'chama os procedimentos para verificar e validar os campos.	  'campos a ser verificados.	  'nome	  usuario= replace(request("cod_usu"),"","")	  banda= replace(request("cod_art"),"","")	  album= replace(request("cod_alb"),"","")	  nome= replace(request("musicas"),"","")	    			  if len(nome) < 0 then erro = erro & "- O nome da banda ou do artista esta muito curto, deve ser > 2 caracteres.<br>"' 	  	  'verifica se ja existe esse album	   set rs = conexao.execute("SELECT * FROM musica where cod_usu = " & cod_usu & " and nome = '" & nome & "' limit 0,1")	  	   if not rs.eof then		  erro = erro & "- Já existe um álbum com esse nome.<br>"	   end if	  	  'se nao der erro salva	  if len(erro) = 0 then		   conexao.execute("INSERT INTO album (cod_usu, cod_art, cod_alb, nome,) VALUES (" & cod_usu & ", " & banda & ", " & album & ", '" & nome & "')")		   response.redirect "index.asp?cod_usu=" &  cod_usu & "&action=pospost&msn_nome=Cadastro Banda/Artista&msn=Cadastro efetuado com sucesso...&passo=Cadastrar outra(o) banda/artista&passo=Cadastrar álbuns&link=" & Server.URLEncode("index.asp?cod_usu="& cod_usu & "&action=artista_cadastrar") & "&link=" & Server.URLEncode("index.asp?cod_usu=" & cod_usu &"&action=album_cadastrar_album")	  end if	  url = replace(url,"http://","")   end if%><%	Function EscreveFuncaoJavaScript()	Response.Write "<script language=""JavaScript"">" & vbcrlf 	Response.Write "function atualizaartistas(album) {" & vbcrlf	'Essa função JavaScript recebe o form em que estão os campos a serem atualizados!	'Veja na chamada da função no método OnChange em que se passa o this.form!	'Vamos criar um switch para ele verificar qual opção foi selecionada!! 	Response.Write "switch (album.cmbartista.options[album.cmbartista.selectedIndex].value) {" & vbcrlf 	'Agora entramos com o banco de dados! Temos que preencher todos os distritos!	set rs = conexao.execute("SELECT * FROM artistas ORDER BY cod_art asc")	While NOT rs.EOF		'Caso tenha sido esse distrito selecionado... 		Response.Write "case '" & rs.fields("cod_art") & "':" 		'Apagamos tudo o que tem na caixa dos concelhos!		Response.Write "album.cmbalbum.length=0;" & vbcrlf 		'Seleccionamos todos os concelhos do distrito escolhido!		set rsaux = conexao.execute("SELECT * FROM album WHERE cod_art=" & rs.fields("cod_art") & " order by nome asc")		'Fazemos um loop por todos os concelhos, criando uma nova opção no SELECT! 		i = 0 	 		While NOT rsAux.EoF			Response.Write "album.cmbalbum.options[" & i & "] = new Option('" & rsAux.fields("nome") & "','" & rsAux("cod_alb") & "');"				i=i+1			rsAux.MoveNext		Wend			Response.Write "album.cmbalbum.size=1;" & vbcrlf 				'Imprimos um break! (Verifique tutoriais de JavaScript, se tiverem alguma dúvida da sua utilização! 		Response.Write "break;" & vbcrlf		'Próximo concelho! 		rs.MoveNext 	Wend	'Fecha chaves do switch e da função! E fecha o script! 	Response.Write "}}" & vbcrlf & "</script>" & vbcrlf End FunctionEscreveFuncaoJavaScript()%><form action="index.asp?action=album_cadastrar_album" method="post" name="album" id="album">  <table border="0" width="70%" cellspacing="0" cellpadding="0">	<%	if len(erro) > 1 then	%>	  <tr>		<td colspan="2">		  <p align="center"><b><font color="#FF0000" size="2" face="Verdana">E R R O</font> </b> </td>	  </tr>	  <tr>		<td colspan="2"><font color="#FF0000"><%= ERRO %><br>		  <br>		  </font></td>	  </tr>	  <%	  end if	  %>  <tr>	<td colspan="2"><br>	</td>  </tr>  <tr>	  <td colspan="2"><font face="Verdana" size="2"><img border="0" src="imagens/triangulo.gif"> 		<b>Cadastro de Música </b></font></td>  </tr>  <tr>	<td width="30%"></td>	<td width="70%"></td>  </tr>  <tr>	<td width="30%"> <font face="Verdana" size="2"> Banda ou Artista:</font> </td>	<td width="70%"><font face="Verdana" size="2"><select name="cmbartista" id="cmbartista" onChange="atualizaartistas(this.form);">  <option>-- Banda ou Artista --</option>  <%			   set rs = conexao.execute("SELECT * FROM `artistas` where cod_usu = '" & cod_usu & "' order by nome asc")	  								while not rs.EOF					Response.Write "<option value=""" & rs.Fields("cod_art") & """>" & rs.Fields("nome") & "</option>"									rs.movenext				wend							%></select></font>	</td>  </tr>  <tr>	<td width="30%"><font face="Verdana" size="2">Nome do álbum:</font> </td>	<td width="70%"><font face="Verdana" size="2"><select name="cmbalbum" id="cmbalbum" class="textbox">				<option>-- Album --</option>						</select></font>	</td>  </tr>  <tr>	<td width="30%"><font face="Verdana" size="2">Músicas:</font></td>	<td width="70%"><p><font size="1">Favor separar cada nome por quebra de linha.<br>		  ex: música 1</font></p></td>	<p> <textarea name="musicas" cols="28" rows="8" id="musicas"><%= musicas %></textarea></p>		  </tr>  <tr>	<td width="30%" valign="top"> </td>	<td width="70%"> 	</td>  </tr>  <tr>	<td width="30%" valign="top"> </td>	<td width="70%">	</td>  </tr>  <tr>	<td width="30%" valign="top"><br>	  <br> </td>	<td width="70%"> <table class="buttonborder">	<tr>	<td><input type="submit" value="Cadastrar ->" name="submit"></td>	</tr> </table>	</td>  </tr></table><input type="hidden" name="salvar" value="1"></form>

A linda que está dando erro é essa:

<p> <textarea name="musicas" cols="28" rows="8" id="musicas"><%= musicas %></textarea></p>

[AMON-HÁ 0]

Cara... eu dei uma olhada rápida aqui e encontrei um monte de erro no seu código...

naum sei se conseguir identificar todos mas fiz algumas mudanças... teste ae e veja se dar erro...

 

OBS: de todas as mudanças que eu havia dito pra você fazer a unica que você fez foi a de retirar uma parte do código...

 

<%   'vamos verificar se foi setado para salvar   if request("salvar") = "1" then	  'chama os procedimentos para verificar e validar os campos.	  'campos a ser verificados.	  'nome	  usuario= request("cod_usu")	  banda= request("cod_art")	  album= request("cod_alb")	  nome= request("musicas")	    			  if len(nome) <=3 0 then erro = erro & "- O nome da banda ou do artista esta muito curto, deve ser > 2 caracteres.<br>"' 	  	  'verifica se ja existe esse album	   set rs = conexao.execute("SELECT * FROM musica where cod_usu = " & cod_usu & " and nome = '" & nome & "' limit 0,1")	  	   if not rs.eof then		  erro = erro & "- Já existe um álbum com esse nome.<br>"	   end if	  	  'se nao der erro salva	  if len(erro) = 0 then		   conexao.execute("INSERT INTO album (cod_usu, cod_art, cod_alb, nome,) VALUES (" & cod_usu & ", " & banda & ", " & album & ", '" & nome & "')")		   response.redirect "index.asp?cod_usu=" &  cod_usu & "&action=pospost&msn_nome=Cadastro Banda/Artista&msn=Cadastro efetuado com sucesso...&passo=Cadastrar outra(o) banda/artista&passo=Cadastrar álbuns&link=" & Server.URLEncode("index.asp?cod_usu="& cod_usu & "&action=artista_cadastrar") & "&link=" & Server.URLEncode("index.asp?cod_usu=" & cod_usu &"&action=album_cadastrar_album")	  end if	  url = replace(url,"http://","")   end if	Function EscreveFuncaoJavaScript(conexao)	Response.Write "<script language=""JavaScript"">" & vbcrlf 	Response.Write "function atualizaartistas(album) {" & vbcrlf	'Essa função JavaScript recebe o form em que estão os campos a serem atualizados!	'Veja na chamada da função no método OnChange em que se passa o this.form!	'Vamos criar um switch para ele verificar qual opção foi selecionada!! 	Response.Write "switch (album.cmbartista.options[album.cmbartista.selectedIndex].value) {" & vbcrlf 	'Agora entramos com o banco de dados! Temos que preencher todos os distritos!	set rs = conexao.execute("SELECT * FROM artistas ORDER BY cod_art asc")	rs.MoveFirst	While NOT rs.EOF		'Caso tenha sido esse distrito selecionado... 		Response.Write "case " & rs.fields("cod_art") & ":" 		'Apagamos tudo o que tem na caixa dos concelhos!		Response.Write "album.cmbalbum.length=0;" & vbcrlf 		'Seleccionamos todos os concelhos do distrito escolhido!		set rsaux = conexao.execute("SELECT * FROM album WHERE cod_art=" & rs.fields("cod_art") & " order by nome asc")		'Fazemos um loop por todos os concelhos, criando uma nova opção no SELECT! 		i = 0 	 		 	rsAux.MoveFirst		While NOT rsAux.EoF			Response.Write "album.cmbalbum.options[" & i & "] = new Option('" & rsAux.fields("nome") & "','" & rsAux("cod_alb") & "');"				i=i+1			rsAux.MoveNext		Wend			Response.Write "album.cmbalbum.size=1;" & vbcrlf 				'Imprimos um break! (Verifique tutoriais de JavaScript, se tiverem alguma dúvida da sua utilização! 		Response.Write "break;" & vbcrlf		'Próximo concelho! 		rs.MoveNext 	Wend	'Fecha chaves do switch e da função! E fecha o script! 	Response.Write "}}" & vbcrlf & "</script>" & vbcrlf End Function%><html><head><% EscreveFuncaoJavaScript(conexao) %></head><form action="index.asp?action=album_cadastrar_album" method="post" name="album" id="album">  <table border="0" width="70%" cellspacing="0" cellpadding="0">	<%	if len(erro) > 1 then	%>	<tr>	  <td colspan="2">	  <p align="center"><b><font color="#FF0000" size="2" face="Verdana">E R R O</font>	  </b></p>	  </td>	</tr>	<tr>	  <td colspan="2"><font color="#FF0000"><%= ERRO %><br>	  <br>	  </font></td>	</tr>	<%	  end if	  %>	<tr>	  <td colspan="2"><br>	  </td>	</tr>	<tr>	  <td colspan="2"><font face="Verdana" size="2">	  <img border="0" src="imagens/triangulo.gif"> <b>Cadastro de Música </b>	  </font></td>	</tr>	<tr>	  <td width="30%"></td>	  <td width="70%"></td>	</tr>	<tr>	  <td width="30%"><font face="Verdana" size="2">Banda ou Artista:</font>	  </td>	  <td width="70%"><font face="Verdana" size="2">	  <select name="cmbartista" id="cmbartista" onChange="atualizaartistas(this.form);">	  <option>-- Banda ou Artista --</option>	  <%			   set rs = conexao.execute("SELECT * FROM artistas where cod_usu = '" & cod_usu & "' order by nome asc")	  								rs.MoveFirst				while not rs.EOF					Response.Write "<option value=""" & rs.Fields("cod_art") & """>" & rs.Fields("nome") & "</option>"									rs.movenext				wend							%></select> </font></td>	</tr>	<tr>	  <td width="30%"><font face="Verdana" size="2">Nome do álbum:</font> </td>	  <td width="70%"><font face="Verdana" size="2">	  <select name="cmbalbum" id="cmbalbum" class="textbox">	  <option>-- Album --</option>	  </select> </font></td>	</tr>	<tr>	  <td width="30%"><font face="Verdana" size="2">Músicas:</font></td>	  <td width="70%">	  <p><font size="1">Favor separar cada nome por quebra de linha.<br>	  ex: música 1</font></p>	  </td>	  <p><textarea name="musicas" cols="28" rows="8" id="musicas"><%= musicas %></textarea></p>	</tr>	<tr>	  <td width="30%" valign="top"></td>	  <td width="70%"></td>	</tr>	<tr>	  <td width="30%" valign="top"></td>	  <td width="70%"></td>	</tr>	<tr>	  <td width="30%" valign="top"><br>	  <br>	  </td>	  <td width="70%">	  <table class="buttonborder">		<tr>		  <td><input type="submit" value="Cadastrar ->" name="submit"></td>		</tr>	  </table>	  </td>	</tr>  </table>  <input type="hidden" name="salvar" value="1"></form>