Select dentro de select

[Carlos Moreira 0]

Ola pessoal estou tentando buscar um registro em um select dentro do select estou fazendo assim

 

Cidade= RS("cidade")
mysql = "SELECT * FROM cidade where id="&Cidade&""
Set RScidade = Conn.Execute(mysql)
do until RScidade.eof

cidadev = RScidade("cidade")
%> <strong><%=cidadev%></strong> <%
RScidade.movenext
loop
RScidade.Close 
Set RScidade = Nothing

Diz que o codigo nao da parametro para o mesmo

[Ted k' 126]

faz isso:

 

<%
Cidade = RS("cidade")
mysql = "SELECT * FROM cidade where id="&Cidade
Set RScidade = Conn.Execute(mysql)

while not RScidade.eof
%>
<strong><%=RScidade("cidade")%></strong><br>
<%
RScidade.movenext : wend

RScidade.Close
Set RScidade = Nothing
%>

verifique se Cidade = RS("cidade") está valtando valor numérico!!

[Carlos Moreira 0]

Ta falando isso:

 

A variável usa um tipo de automação sem suporte no VBScript

 

e ja verifiquei e esta retornando numero sim certinho!

 

Obs: lembrando que estou dentro de um select de paginação MYSQL

[Ted k' 126]

post então o código todo junto com a linha do erro

[Carlos Moreira 0]

<%

'Definição de Variáveis

Dim Conn

Dim RS

Dim sql

Dim Pag

'-----------------------------------------------------------

'Controles de Paginação

pag = Request.QueryString("pag")

 

If pag = "" Then

pag = 1

End if

 

Call abre_conexao1(ConnString,Conn)

 

Conn.CursorLocation = 3 '<- Cursor de conexão

'-----------------------------------------------------------

'Criação de RecordSet

Set RS = Server.CreateObject("ADODB.RecordSet")

'-----------------------------------------------------------

'Conexão Ativa

Set RS.ActiveConnection = Conn

'-----------------------------------------------------------

Conteudo = Request.Querystring("conteudo")

Cidade = Request.Querystring("cidade")

 

'Select na tabela do banco

If Cidade = "" Then

sql = "SELECT * FROM cliente where (nome like '%"&Conteudo&"%' or palavrachave like '%"&Conteudo&"%' or descricao like '%"&Conteudo&"%') order by nome"

End If

 

If Cidade <> "" Then

sql = "SELECT * FROM cliente where (nome like '%"&Conteudo&"%' or palavrachave like '%"&Conteudo&"%' or descricao like '%"&Conteudo&"%') and cidade ="&Cidade&" order by nome"

End If

 

'-----------------------------------------------------------

RS.CursorType = 3 'Tipo do cursor do RecordSet

RS.PageSize = 10 'Qtde de registros a serem exibidos

RS.Open sql '<- Executa o Select

TotalPages = RS.Pagecount

'-----------------------------------------------------------

'Se nao existir dados cadastrados

 

%>

<%

If RS.Eof Then

%>

X

<%

Else

%>

<%

RS.AbsolutePage = pag

'Tazemos todos os dados da tabela

While Not RS.Eof and i < RS.PageSize

i = i + 1

 

if Cortabela = Cortabela1 then 'Cor das tabelas

Cortabela = Cortabela2

else

Cortabela = Cortabela1

end if

%>

<%=RS("nome")%>

<%

If Cidade = "" Then

%> »

<%

RSCidade = RS("cidade")

mysql = "SELECT * FROM cidade where id="&RSCidade&""

Set RScidade = Conn.Execute(mysql)

 

cidadev = RScidade("cidade")

%>

<span class="textobusca"><strong><%=cidadev%></strong></span>

<%

RScidade.Close

Set RScidade = Nothing

End If%>

<%

RS.MoveNext

Wend

RS.Close

Set RS = Nothing

Call fecha_conexao1()

%>

<%

pagina = Request.ServerVariables("Script_Name")

 

 

' cria os links de pagians...

IF CInt(pag) > 1 THEN

%> <%

Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=1'>Primeira</a> | "

%> <%

Else

Response.Write "<font color=""#ADADAD"">Primeira</font> | "

END IF

%> <%

if CInt(pag) > 1 then

Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & pag - 1 &"'><b>Anterior</b></a> | "

Else

Response.Write "<font color='#ADADAD'><b>Anterior</b></font> | "

END IF

%> <%

IF (CInt(pag) < TotalPages) THEN

IF CInt(PF) <> TotalPages THEN

Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & pag+1 & "'><b>Próxima</b></a> | "

END IF

Else

Response.Write "<font color=""#ADADAD""><b>Próxima</b></font> | "

END IF

%> <%

IF (CInt(pag) < TotalPages) THEN

IF CInt(PF) <> TotalPages THEN

Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & TotalPages & "'>Última</a> "

END IF

Else

Response.Write "<font color=""#ADADAD"">Última</font>"

END IF

%> </td>

</tr>

<tr>

<td height="20" align="center"> <%

max_n_mostrados = 9

 

intervalo = Int(max_n_mostrados /2)

inicio = pag - intervalo

final = pag + intervalo

 

If CInt(inicio) <1 Then

inicio = 1

final = 10

END IF

If CInt(final) > CInt(TotalPages) Then final = TotalPages

 

For i = inicio To final

If CInt(i)=CInt(pag) Then

Response.Write "<font color=""#000000"">[<B>" & i & "</B>]<font color=""#000000""></font> "

END IF

If CInt(i) < CInt(pag) Then

Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & i & "'>" & i & "</a> "

END IF

If CInt(i) > CInt(pag) Then

Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & i & "'>" & i & "</a> "

END IF

Next

%> <%

End IF

%>