Ir para conteúdo

POWERED BY:

Arquivado

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

saraiva24

Passagem de parâmetros.Resultado invisivel!!!

Por , em ASP Clássico

Recommended Posts

saraiva24    0

saraiva24
Postado

olá pessoal

 

estou com um problema mto estranho!!

 

Tou a construir páginas em ASP, utilizando como ferramenta o dreamweaver. A base de dados é em Access e quando lista determinados conteudos da BD (passando o id como parâmetro) tudo bem...

 

MAS na página a seguir kuando filtro os resultados (tb pelo id) ele simplesmente retorna me a pagina em branco!! sem erros!

 

Alguem me pode ajudar???? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Como você esta filtrando os resultados?

 

Posta o código.

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

tente também exibir o código fonte da página gerada no próprio navegador.. as vezes é problema de codificação HTML.. ou seja.. o conteúdo é enviado para seu navegador, mas devido alguma chave (<) colocada, esse conteúdo naum eh exibido...

Compartilhar este post

Link para o post
Compartilhar em outros sites

saraiva24    0

saraiva24
Postado

Como você esta filtrando os resultados?

 

Posta o código.

<{POST_SNAPBACK}>

Antes de mais, mtooo obrigado por responder!!

 

o código é:

 

Página onde passa os parâmetros

 

<%

Dim rstemainfo

Dim rstemainfo_numRows

 

Set rstemainfo = Server.CreateObject("ADODB.Recordset")

rstemainfo.ActiveConnection = MM_pdc_STRING

rstemainfo.Source = "SELECT * FROM q_lista_tema_info"

rstemainfo.CursorType = 0

rstemainfo.CursorLocation = 2

rstemainfo.LockType = 1

rstemainfo.Open()

 

rstemainfo_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = -1

Repeat1__index = 0

rstemainfo_numRows = rstemainfo_numRows + Repeat1__numRows

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Untitled Document</title>

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

</head>

 

<body>

<table width="478" cellspacing="2" cellpadding="2">

<tr>

<th colspan="2" class="texto" scope="col"><div align="left"></div></th>

</tr>

<%

While ((Repeat1__numRows <> 0) AND (NOT rstemainfo.EOF))

%>

<tr>

<th width="39" class="texto" scope="col"><div align="center"><img src="../Imagens_g/icones/pasta.jpg" width="22" height="20"></div></th>

<th width="423" class="texto" scope="col"><div align="justify"><a href="../curso_tema_info.asp?id=<%=(rstemainfo.Fields.Item("id").Value)%>" target="_parent" class="texto"><%=(rstemainfo.Fields.Item("texto").Value)%></a></div></th>

</tr>

<tr>

<th colspan="2" class="texto" scope="col"> </th>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rstemainfo.MoveNext()

Wend

%>

 

</table>

</body>

</html>

<%

rstemainfo.Close()

Set rstemainfo = Nothing

%>

 

Pagina onde sao filtrados e onde deveria aparecer os resultados

 

<%

Dim Recordset1__MMColParam

Recordset1__MMColParam = "1"

If (Request.QueryString("id") <> "") Then

Recordset1__MMColParam = Request.QueryString("id")

End If

%>

<%

Dim Recordset1

Dim Recordset1_numRows

 

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_pdc_STRING

Recordset1.Source = "SELECT * FROM q_lista_Info WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + ""

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

 

Recordset1_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = -1

Repeat1__index = 0

Recordset1_numRows = Recordset1_numRows + Repeat1__numRows

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title>Untitled Document</title>

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

</head>

 

<body>

<table width="478" cellspacing="2" cellpadding="2">

<%

While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))

%>

<tr>

<th width="49" scope="col"><div align="left" class="texto">

<div align="center"><img src="../Imagens_g/icones/ficheiro.jpg" width="32" height="25"></div>

</div></th>

<th width="413" scope="col"><div align="justify"><span class="texto"><a href="curso_solo_txt.ASP?ID_Curso=<%=(Recordset1.Fields.Item("ID_Curso").Value)%>" class="texto"><%=(Recordset1.Fields.Item("DESIGNACAO").Value)%></a></span></div></th>

</tr>

<tr>

<th colspan="2" scope="col"> </th>

</tr>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

Recordset1.MoveNext()

Wend

%>

 

</table>

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tente também exibir o código fonte da página gerada no próprio navegador.. as vezes é problema de codificação HTML.. ou seja.. o conteúdo é enviado para seu navegador, mas devido alguma chave (<) colocada, esse conteúdo naum eh exibido...

ou simplesmente esconde o erro numa tag html mau formatada...

 

tente fazer isso mesmo, olhar o codigo fonte do html gerado no navegador...

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

manda mostrar na tela o conteudo de:Request.QueryString("id")seria ele o cara que deveria ser usado no sql, né?só que.. como você fez tudo no dw.. fica realmente muito complicado interpretar seu codigo..

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