Ir para conteúdo

POWERED BY:

Arquivado

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

vehuiah

Firefox X Internet Explorer

Por , em ASP Clássico

Recommended Posts

vehuiah    0

vehuiah
Postado

Olá Pessoal!!!

 

Sou novo aqui, e trago uma questão interessante.

 

Quando executo o código através do Mozilla Firefox, beleza, o boleto é gerado bunitinho mas, quando eu executo através do Internet Explorer o SELECT DISTINCT sempre retorna NULL, doidera né?

 

já tentei um monte de coisa, sem sucesso, acredito que seja uma coisinha atoa, mas não tô conseguindo achar o que é.

 

Obrigado pessoas....

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

vehuiah    0

vehuiah
Postado

Posta o código relevante amigo.

Desculpa a falh... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif Ai vai o código...

 

ASP
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>

<HTML>

<HEAD>

<TITLE>Boleto eletrônico.</TITLE><META http-equiv=Content-Type content=text/html; charset=windows-1252>

<style type=text/css>

<!--.cp {  font: bold 10px Arial; color: black}

<!--.ti {  font: 9px Arial, Helvetica, sans-serif}

<!--.ld { font: bold 15px Arial; color: #000000}

<!--.ct { FONT: 9px "Arial Narrow"; COLOR: #000033}

<!--.cn { FONT: 9px Arial; COLOR: black }

<!--.bc { font: bold 22px Arial; color: #000000 }-->

</style>

<%

'**************************

Sub WBarCode( Valor )

'**************************

 

Dim f, f1, f2, i

Dim texto

Const fino = 1

Const largo = 3

Const altura = 50

Dim BarCodes(99)

 

if isempty(BarCodes(0)) then

  BarCodes(0) = "00110"

  BarCodes(1) = "10001"

  BarCodes(2) = "01001"

  BarCodes(3) = "11000"

  BarCodes(4) = "00101"

  BarCodes(5) = "10100"

  BarCodes(6) = "01100"

  BarCodes(7) = "00011"

  BarCodes(8) = "10010"

  BarCodes(9) = "01010"

  for f1 = 9 to 0 step -1

    for f2 = 9 to 0 Step -1

      f = f1 * 10 + f2

      texto = ""

      for i = 1 To 5

        texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)

      next

      BarCodes(f) = texto

    next

  next

end if

 

'Desenho da barra

 

 

' Guarda inicial

%>

<img src=2.gif width=<%=fino%> height=<%=altura%> border=0><img

src=1.gif width=<%=fino%> height=<%=altura%> border=0><img

src=2.gif width=<%=fino%> height=<%=altura%> border=0><img

src=1.gif width=<%=fino%> height=<%=altura%> border=0><img

 

<%

texto = valor

if len( texto ) mod 2 <> 0 then

  texto = "0" & texto

end if

 

 

' Draw dos dados

do while len(texto) > 0

  i = cint( left( texto, 2) )

  texto = right( texto, len( texto ) - 2)

  f = BarCodes(i)

  for i = 1 to 10 step 2

    if mid(f, i, 1) = "0" then

      f1 = fino

    else

      f1 = largo

    end if

    %>

    src=2.gif width=<%=f1%> height=<%=altura%> border=0><img

    <%

    if mid(f, i + 1, 1) = "0" Then

      f2 = fino

    else

      f2 = largo

    end if

    %>

    src=1.gif width=<%=f2%> height=<%=altura%> border=0><img

    <%

  next

loop

 

' Draw guarda final

%>

src=2.gif width=<%=largo%> height=<%=altura%> border=0><img

src=1.gif width=<%=fino%> height=<%=altura%> border=0><img

src=2.gif width=<%=1%> height=<%=altura%> border=0>

 

<%

'**************************

end sub

'**************************

response.buffer = true

Ndoc = request.form("BolNdoc")  

session.lcid=1046

       

        set Conn = Server.CreateObject("ADODB.Connection")

        Conn.Open "Driver={SQL Server};Server=*;DataBase=*;Uid=*;Pwd=*" - 'Servidor, Usuário e Senha foram omitidos propositalmente'

 

StrSql = "SELECT * from _boletoativo"

set rsAtivo = Conn.execute (StrSql)

vencimento = rsativo("vencimento")

perletivo = rsativo("periodo")

d1 = rsativo("dia1")

d2 = rsativo("dia2")

d3 = rsativo("dia3")

d4 = rsativo("dia4")

d5 = rsativo("dia5")

 

 

StrSql = " SELECT DISTINCT  A.NOME, A.MATRICULA, A.CPFALUNO, A.ENDALUNO, A.NUMENDALUN, A.COMPENDAL, U.CODTUR, U.CODTUN, A.BAIRROALUN,  " & _

"                      A.CIDALUNO, A.UFALUNO, A.CEPALUNO, A.RESPONS, F.CODIGOBARRA, F.IPTE, F.DATAVENCIMENTO, F.CODMOEVALORORIGINAL, F.VALORORIGINAL,  " & _

"                      F.NUMERODOCUMENTO, F.DATAEMISSAO, F.CNABNOSSONUMERO, F.PARCELA, FC.NROCONTA, FC.NUMAGENCIA, F.PERLETIVO,  " & _

"                      F.VALORDESCONTO, U.PERLETIVO AS Expr1, F.VALOROP8 " & _

" FROM         dbo.FLAN F INNER JOIN " & _

"                      dbo.EALUNOS A ON F.CODCFO = A.RESPONS INNER JOIN " & _

"                      dbo.UMATALUN U ON A.MATRICULA = U.MATALUNO INNER JOIN " & _

"                      dbo.FCXA FC ON F.CODCXA = FC.CODCXA " & _

" WHERE     (A.MATRICULA = '" & request.querystring("RGM") & "') AND (F.NUMERODOCUMENTO = '" & Ndoc & "')  " & _

" ORDER BY U.PERLETIVO DESC "

 

set rs = Conn.execute (StrSql)

 

response.Write ("RGM " & request.querystring("RGM"))  'tá imiprimindo o valor correto

response.Write Ndoc  'tá imiprimindo o valor correto

 

if not rs.eof then  ' aqui retorna sempre eof no internet explorer, no Firefox ele fuincona certo

Banco = left(rs("IPTE"), 3)

if (Banco = "356") then

        Figura = "logo-real.jpg"

        NumBanco = "356-5"

end if

...

 

Poxa!!! Gostei da Rapidez da resposta.. :rolleyes:

 

Obrigado.. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Vehuiah.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

em qual das querys dá erro?já escreveu a variavel pra ver se os parametros estão corretos??outro detalhe...você está usando Ndoc = request.form("BolNdoc") e request.querystring("RGM"), está correto?mais uma coisa, tentou retirar response.buffer = true??

Compartilhar este post

Link para o post
Compartilhar em outros sites

vehuiah    0

vehuiah
Postado

em qual das querys dá erro?

já escreveu a variavel pra ver se os parametros estão corretos??

 

outro detalhe...você está usando Ndoc = request.form("BolNdoc") e request.querystring("RGM"), está correto?

mais uma coisa, tentou retirar response.buffer = true??

Da erro nessa aqui ó:

 

ASP
StrSql = " SELECT DISTINCT  A.NOME, A.MATRICULA, A.CPFALUNO, A.ENDALUNO, A.NUMENDALUN, A.COMPENDAL, U.CODTUR, U.CODTUN, A.BAIRROALUN,  " & _

"                      A.CIDALUNO, A.UFALUNO, A.CEPALUNO, A.RESPONS, F.CODIGOBARRA, F.IPTE, F.DATAVENCIMENTO, F.CODMOEVALORORIGINAL, F.VALORORIGINAL,  " & _

"                      F.NUMERODOCUMENTO, F.DATAEMISSAO, F.CNABNOSSONUMERO, F.PARCELA, FC.NROCONTA, FC.NUMAGENCIA, F.PERLETIVO,  " & _

"                      F.VALORDESCONTO, U.PERLETIVO AS Expr1, F.VALOROP8 " & _

" FROM         dbo.FLAN F INNER JOIN " & _

"                      dbo.EALUNOS A ON F.CODCFO = A.RESPONS INNER JOIN " & _

"                      dbo.UMATALUN U ON A.MATRICULA = U.MATALUNO INNER JOIN " & _

"                      dbo.FCXA FC ON F.CODCXA = FC.CODCXA " & _

" WHERE     (A.MATRICULA = '" & request.querystring("RGM") & "') AND (F.NUMERODOCUMENTO = '" & Ndoc & "')  " & _

" ORDER BY U.PERLETIVO DESC "

 

set rs = Conn.execute (StrSql)

 

eu imprimi elas logo depois da query:

 

response.Write ("RGM " & request.querystring("RGM")) 'tá imiprimindo o valor correto

response.Write Ndoc 'tá imiprimindo o valor correto

 

e tá certinho, e até tentei tirar o " response.buffer = true " mas, nada feito, funciona no Firefox e no Internet Explorer não.

 

Muito doido isso... :mellow:

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