Ir para conteúdo

POWERED BY:

Arquivado

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

BrunoHP

[Resolvido] order by nome

Por , em ASP Clássico

Recommended Posts

BrunoHP    0

BrunoHP
Postado

Iae galera,

Seguinte quando eu coloco order by nome no SELECT a página não carrega.

 

Se alguem poder dar uma olhada pra mim.

 

 

<!--#include file="../conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sem título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<link href="../css/site_adm.css" rel="stylesheet" type="text/css">
</head>
<body class="textoBoldPreto11">
<% on error resume next
if Trim(Request.QueryString("action")) = "delete" then
cod_del = cint(Request.QueryString("cod"))
dim nome(), data()
nome1 = session("filhos_nome")
data1 = session("filhos_data")

ax = 0
for a = lbound(nome1) to ubound(nome1)

if a <> cod_del then
redim preserve nome(ax)
redim preserve data(ax)

nome(ax) = nome1(a)
data(ax) = data1(a)

ax = ax + 1
end if

next
if ax = 0 then
Session.Contents.Remove("filhos_nome")
Session.Contents.Remove("filhos_data")
else
session("filhos_nome") = nome
session("filhos_data") = data
end if

end if
'dim nome(0), data(0)
ub = 0
if Trim(Request.Form("nome")) <> "" then
if not isempty(session("filhos_nome")) then
nome = session("filhos_nome")
data = session("filhos_data")
redim preserve nome(ubound(nome) + 1)
redim preserve data(ubound(data) + 1)
ub = ubound(nome)
end if
if ub = 0 then
redim nome(0), data(0)
end if
nome(ub) = Request.Form("nome")
data(ub) = Request.Form("data_nasc")

session("filhos_nome") = nome
session("filhos_data") = data

end if

if Trim(Request.QueryString("id")) <> "" then
set seta = server.CreateObject("adodb.RecordSet")
'sql = "Select * from cad_prop_admissao_filhos where cod_profano = '"&Trim(Request.QueryString("id"))&"' order by nome DESC"
sql = "Select * from cad_prop_admissao_filhos where cod_profano = '"&Trim(Request.QueryString("id"))&"'"
sql2 = "Select count(codigo) as soma from cad_prop_admissao_filhos where cod_profano='"&trim(request("id"))&"'"
set seta = conn.execute(sql)
set rscount=conn.execute(sql2)

if not seta.eof then
redim nome(0), data(0)
c = 0
while not seta.eof
redim preserve nome(c)
redim preserve data(c)

nome(c) = seta("nome_filho")
data(c) = seta("Data_nascimento")

c = c + 1

seta.movenext
wend
session("filhos_nome") = nome
session("filhos_data") = data
end if

end if


if not isempty(session("filhos_nome")) then
 %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr> 
    <td width="25%" height="31"> <span class="textoBoldPreto15">Nome</span></td>
    <td width="75%"> <span class="textoBoldPreto15">Data de nascimento </span></td>
  </tr>
  <% for a = lbound(nome) to ubound(nome) %>
  <tr> 
    <td height="31"> <span class="textoNormalPreto15"><%= nome(a) %></span></td>
    <td> <span class="textoNormalPreto15"><%= data(a) %></span></td>
  </tr>
  <% next %>
  <tr> 
    <td height="31" colspan="2"><span class="textoBoldPreto15"><%=rscount("soma")%></span> <span class="textoNormalPreto15">filho(os)</td>
  </tr>
</table>
<% End If
'Session.Contents.Remove("filhos_nome")
'Session.Contents.Remove("filhos_data")
 %>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá um response.write na string SQL, para ver o k esta sendo passado

response.write(SQL)
response.end()

Compartilhar este post

Link para o post
Compartilhar em outros sites

~Thiago Lara    0

~Thiago Lara
Postado

Obs: a página apresenta algum erro? ou simplesmente não carrega?!

 

Se apresentar o erro além da SQL acima como o próprio xanburzum pediu, poste também o erro.

 

Abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

dá um response.write na string SQL, para ver o k esta sendo passado

response.write(SQL)
response.end()

Apareceu isso:

 

Select * from cad_prop_admissao_filhos where cod_profano = '223' order by nome DESC

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

Obs: a página apresenta algum erro? ou simplesmente não carrega?!

 

Se apresentar o erro além da SQL acima como o próprio xanburzum pediu, poste também o erro.

 

Abs

 

Não da erro apenas não carrega

 

Abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

~Thiago Lara    0

~Thiago Lara
Postado

Você tem esse campo nome no banco?

 

OBS IMPORTANTE: to achando que o erro está no COD_PROFANO, se é código tem certeza que é string?! Tente retirar as aspas simples e rode sua aplicação

 

abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

Você tem esse campo nome no banco?

 

OBS IMPORTANTE: to achando que o erro está no COD_PROFANO, se é código tem certeza que é string?! Tente retirar as aspas simples e rode sua aplicação

 

abs

 

Fiz isso porem sem sucesso :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

BrunoHP    0

BrunoHP
Postado

~Thiago Lara e xanburzum

 

Consegui!!!

 

Muito obrigado pela ajuda de vocês... abraços!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

muito bem...

 

qualquer coisa , posta ae...

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