Só aparece metade do SITE

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>