Mesclar 2 Conexões p/ usar uma Variavel vindo do Request.QueryString

[bufalino 0]

GENTEMM, criei uma página de visualizaçao q pega o valor d um link duma pagina anterior (Request.QueryString), nessa pagina de visualização, vai beleza abrindo a conexao..., mostrando os dados e fechando a conexão etc, q funcinona beleza, mas nessa mesma pagina eu tenho q abrir uma outra conexao pq uso uma condiçao WHERE diferente, e nessa segunda da erro com o (Request.QueryString) da minha variavel (varMES).. como fazer pra mesclar os dois para poder a proveitar a mesma Request.QueryString sem dar erro??

 

vo mostar como ta essa pagina:

 

<%

Dim conDB0

Dim recLinks0

Dim varMES

varMES=(request.QueryString("cod"))

const cntCaminho0 = "c:\bd\DB.mdb"

set conDB0 = Server.createObject("ADODB.Connection")

set recLinks0 = Server.CreateObject("ADODB.Recordset")

conDB0.open "driver={microsoft access driver (*.mdb)};dbq=" & cntCaminho0

recLinks0.open "SELECT * FROM bi WHERE mes = '" & varMES & "' AND concorrencia = 'Estaduais' ORDER BY data ASC", conDB0

do while not recLinks0.Eof

%>................................................................................

..............ABRO A PRIMEIRA CONEXAO

 

<% response.write recLinks0.fields("licitante") %>......................... MOSTRA OS DIVERSOS DADOS

 

<%

RecLinks0.MoveNext

Loop

recLinks0.close

conDB0.close

%>.............................................................................

.................FECHO TUDO

 

 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NA MESMA PAGINA

 

<%

Dim conDB1

Dim recLinks

....................SE COLOCAR D NOVO a Dim varMES e o varMES=(request.QueryString("cod")) Da erro

const cntCaminho = "c:\bd\DB.mdb"

set conDB1 = Server.createObject("ADODB.Connection")

set recLinks = Server.CreateObject("ADODB.Recordset")

conDB1.open "driver={microsoft access driver (*.mdb)};dbq=" & cntCaminho

recLinks.open "SELECT * FROM bi WHERE mes = '" & varMES & "' AND concorrencia = 'Nacionais' ORDER BY data ASC", conDB1

do while not recLinks.Eof

%>.............................................................................

.................ABRO A SEGUNDA CONEXAO

 

<% response.write recLinks0.fields("licitante") %>.......................... MOSTRA OS DIVERSOS DADOS

 

<%

RecLinks.MoveNext

Loop

recLinks.close

conDB1.close

%>.............................................................................

.................FECHO TUDO

[micox 2]

Cara, pelo que entendi do seu código, você NÃO apagou o conteúdo da varMES, ou seja, seu querystring ainda tá lá...Por isso não é necessário você declarar ela denovo, pois ela já está lá...Dá algum erro em específico?

[bufalino 0]

http://forum.imasters.com.br/public/style_emoticons/default/blush.gif PUTSS, tem horas q a gente soh vê esses detalhes com o auxilio de outras pessoas,.. Era isso mesmo,, deixei de declarar a variavel q deu certo,, VALEW AE :D