Ir para conteúdo

POWERED BY:

Arquivado

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

aldan

Problemas na codificação

Recommended Posts

Bom dia galera! Estou com um probleminha q parece ser fácil de se resolver mais não consigo achar a solução.

Estou tentando recuperar um valor mais não consigo. é o seguinte tenho essa linha de código aqui q faz a chamada de uma página onde requer uma variável.

%>
<a href="FICHA.asp?reftran=<%=(objRS.Fields.Item("reftran").Value)%>"class=""><img src="imagens/editar.gif" border="0" alt="Ficha de Inscrição"></a>
<%
No caso estou chamando a ficha.asp e passando a variavel reftran, só q quando chama a página ficha.asp ela da erro e não aparece nada..

 

código da ficha.asp

<%
reftran = Request.QueryString("reftran")
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("db/vestibular.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
reftran = session("reftran")
sql = "select * from inscr where reftran="&reftran
set rs = db.Execute(sql)
do while not rs.eof 
nome = rs.fields("nome")
endereco = rs.fields("endereco")
cidade = rs.fields("cidade")
uf = rs.fields("uf")
cep = rs.fields("cep")
ddd = rs.fields("ddd")
telefone = rs.fields("telefone")
dtnasc = rs.fields("dtnasc")
proced = rs.fields("proced")
agenda = rs.fields("agenda")
sexo = rs.fields("sexo")
email = rs.fields("email")
cpf = rs.fields("cpf")
rg = rs.fields("rg")
curso = rs.fields("curso")
periodo = rs.fields("periodo")
pcs = rs.fields("pcs")
concem = rs.fields("concem")
dtinsc = rs.fields("dtinsc")
tprova = rs.fields("tprova")
lprova = rs.fields("lprova")
dtVenc = Fun_data()
idconv = "301926"
valor = "10000"
urlretorno = "/faculdade/respinscr.asp"
msgLoja = "Apos o vencimento não receber."&"<bR>"&"Pagável em qualquer Banco ou Casa Lotérica até o vencimento"&"<bR>"&"O boleto poderá ser quitado na tesouraria da Faculdade" 
versao = "002"
moeda = "986"
convclasse = "001"
tppagamento = "2" 
set rs = db.execute(sql)
do while not rs.eof 
%>

 

Alguem me ajude por favor.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aqui

 

reftran = session("reftran")

creio que seja

 

reftran = Request("reftran")

veja ai

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aqui

 

reftran = session("reftran")

creio que seja

 

reftran = Request("reftran")

veja ai

Continua a mesma coisa não mudou nada a página não é exibida.

Compartilhar este post


Link para o post
Compartilhar em outros sites

se nao exibe deve ter algum erro

 

voce tem algum on error resume next no seu codigo?

 

se tem tire-o senao veja se tem algum erro dentro do codigo html da pagina escondido

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.