Creator

ai eu agradeceria mto c alguem me ajudase com esse script, muito obrigado desde ja!!!

O script q gera o boleto eh esse, tem um outro script q eu ponho os dados da conta, eu tentei imprimir um boleto mas ele deu erro qdo eu fui pagar

<!--

<!--#include file="../Includes/Config.asp"-->
<%
SDIG=""
CDIG=""
LDIG=""
NOSSONUMERO=""
Dim atab(99)

'********************************
' VARIÁVEIS
'********************************

var_sacado = Request.QueryString("sacador")
var_endereco = Request.QueryString("endereco")
var_bairro = Request.QueryString("bairro")
var_cidade = Request.QueryString("cidade")
var_estado = Request.QueryString("estado")
var_cep = Request.QueryString("cep")

'***************************************
Function Converten(pNumeron)
Converten = Right(String(8,"0") &_
cstr(pNumeron * 100),8)
End Function
'****************************************

var_nossonumero = Converten(ccur(Request.QueryString("nossonumero")))
var_datadocumento = Request.QueryString("datadocumento")
var_datavencimento = Request.QueryString("datavencimento")
var_valordocumento = Request.QueryString("valordocumento")
var_numerodoc = Request.QueryString("numerodoc")
var_instrucoes="<B><BR> Não receber após 90 dias.<BR> Pagável em agências do BRADESCO<br> ou em qualquer agência bancária até o vencimento <BR></b>"
var_observacoes="<B> <BR> Pagamento referente a compra efetuada na Cultura com Emoção<BR> <BR> <BR> <BR></b>"

'********************************
' INICIO DO CÁLCULO
'********************************

dvnossonumero=calcdig10(vAgenciaBradesco&vContaBradesco&vCarteiraBradesco&var_nossonumero)
dvagconta=calcdig10(vAgenciaBradesco&vContaBradesco)


valordia=date()
var_data=Day(valordia) & "/" & Month(valordia) & "/" & YEAR(valordia)

valorvalor1=var_valordocumento
valorvalor2=replace(valorvalor1,",","")
valorvalor2=replace(valorvalor2,".","")
valorvalor3=len(valorvalor2)
valorvalor4=10-valorvalor3
var_valor= String(""&valorvalor4&"","0") & (""&valorvalor2&"")
if valorvalor1=0 then
var_valor=""
end if

var_fatorvencimento=fatorvencimento(""&var_datavencimento&"")
if var_fatorvencimento="0000" then
var_datavencimento="Contra Apresentação"
end if



var_codigobarras=codbar(""&vBancoBradesco&"",""&vMoedaBradesco&"",""&var_fatorvencimento&"",""&var_valor&"",""&vCarteiraBradesco&"",""&var_nossonumero&"",""&dvnossonumero&"",""&vAgenciaBradesco&"",""&vContaBradesco&"",""&dvagconta&"")
var_linhadigitavel=linhadigitavel(""&var_codigobarras&"")



'**************************
FUNCTION linhadigitavel(codigobarras)
'**************************
cmplivre=mid(codigobarras,20,25)
campo1=left(codigobarras,4)&mid(cmplivre,1,5)
campo1=campo1&calcdig10(campo1)
campo1=mid(campo1,1,5)&"."&mid(campo1,6,5)

campo2=mid(cmplivre,6,10)
campo2=campo2&calcdig10(campo2)
campo2=mid(campo2,1,5)&"."&mid(campo2,6,6)

campo3=mid(cmplivre,16,10)
campo3=campo3&calcdig10(campo3)
campo3=mid(campo3,1,5)&"."&mid(campo3,6,6)

campo4=mid(codigobarras,5,1)

campo5=int(mid(codigobarras,6,14))

if campo5=0 then
campo5="000"
end if

linhadigitavel=campo1&"&nbsp;&nbsp;"&campo2&"&nbsp;&nbsp;"&campo3&"&nbsp;&nbsp;"&campo4&"&nbsp;&nbsp;"&campo5
'*************************
END FUNCTION
'*************************


'**************************
FUNCTION CALCDIG10(cadeia)
'**************************
mult=(len(cadeia) mod 2)
mult=mult+1
total=0
for pos=1 to len(cadeia)
res= mid(cadeia, pos, 1) * mult
if res>9 then
res=int(res/10) + (res mod 10)
end if
total=total+res
if mult=2 then
mult=1
else
mult=2
end if
next
total=((10-(total mod 10)) mod 10 )
CALCDIG10=total
'*************************
END FUNCTION
'*************************

'**************************
FUNCTION CALCDIG11(cadeia,limitesup,lflag)
'**************************
mult=1 + (len(cadeia) mod (limitesup-1))
if mult=1 then
mult=limitesup
end if
total=0
for pos=1 to len(cadeia)
total=total+(mid(cadeia,pos,1) * mult)
mult=mult-1
if mult=1 then
mult=limitesup
end if
Next
nresto=(total mod 11)
if lflag = 1 then
calcdig11=nresto
else
if nresto=0 or nresto=1 or nresto=10 then
ndig=1
else
ndig=11 - nresto
end if
calcdig11=ndig
end if

'*************************
END FUNCTION
'*************************



'**************************
FUNCTION fatorvencimento(vencimento)
'**************************

if len(vencimento)<8 then
fatorvencimento="0000"
else
fatorvencimento=datevalue(""&vencimento&"")-datevalue("1997/10/07")
end if

'*************************
END FUNCTION
'*************************




'**************************
FUNCTION codbar(banco,moeda,vencimento,valor,carteira,nossonumero,dvnossonumero,agencia,conta,dvagconta)
'**************************

strcodbar=banco&moeda&vencimento&valor&carteira&nossonumero&dvnossonumero&agencia&conta&dvagconta&"000"
dv3=calcdig11(strcodbar,9,0)
codbar=banco&moeda&dv3&vencimento&valor&carteira&nossonumero&dvnossonumero&agencia&conta&dvagconta&"000"
'*************************
END FUNCTION
'*************************




'**************************
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
%><head>

<STYLE type=text/css>
.ti { FONT: 9px tahoma, Helvetica, sans-serif }
.ct { FONT: 9px tahoma; COLOR: navy }
.cn { FONT: 9px Arial; COLOR: black }
.cp { FONT: bold 11px tahoma; COLOR: black }
.ld { FONT: bold 12px tahoma; COLOR: #000000 }
.bc { FONT: bold 16px tahoma; COLOR: #000000 }
</STYLE>

</head>
<img src=../Imagens/Boletos/p.gif width=<%=fino%> height=<%=altura%> border=0><img
src=../Imagens/Boletos/b.gif width=<%=fino%> height=<%=altura%> border=0><img
src=../Imagens/Boletos/p.gif width=<%=fino%> height=<%=altura%> border=0><img
src=../Imagens/Boletos/b.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=../Imagens/Boletos/p.gif width=<%=f1%> height=<%=altura%> border=0><img
<%
if mid(f, i + 1, 1) = "0" Then
f2 = fino
else
f2 = largo
end if
%>
src=../Imagens/Boletos/b.gif width=<%=f2%> height=<%=altura%> border=0><img
<%
next
loop

' Draw guarda final
%>
src=../Imagens/Boletos/p.gif width=<%=largo%> height=<%=altura%> border=0><img
src=../Imagens/Boletos/b.gif width=<%=fino%> height=<%=altura%> border=0><img
src=../Imagens/Boletos/p.gif width=<%=1%> height=<%=altura%> border=0>

<%
'**************************
end sub
'**************************
%>


<script language=JavaScript>
var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1);

function x86(){
if (pr) // NS4, IE5
window.print()
else if (da && !mac) // IE4 (Windows)
vbx86()
else // outros browsers
alert("Desculpe seu browser não suporta esta função. Por favor utilize a barra de trabalho para imprimir a página.");
return false;}
if (da && !pr && !mac) with (document) {
writeln('<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>');
writeln('<' + 'SCRIPT LANGUAGE="VBScript">');
writeln('Sub window_onunload');
writeln(' On Error Resume Next');
writeln(' Set WB = nothing');
writeln('End Sub');
writeln('Sub vbx86');
writeln(' OLECMDID_PRINT = 6');
writeln(' OLECMDEXECOPT_DONTPROMPTUSER = 2');
writeln(' OLECMDEXECOPT_PROMPTUSER = 1');
writeln(' On Error Resume Next');
writeln(' WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');
writeln('End Sub');
writeln('<' + '/SCRIPT>');}
</SCRIPT>



<CENTER>

<p>
<br>
<TABLE WIDTH="660" CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD class=cp VALIGN=BOTTOM WIDTH=225><IMG SRC="../Imagens/Boletos/logoBradesco.jpg" width="149" height="38"></TD>
<TD ALIGN=RIGHT VALIGN=BOTTOM><FONT class=ld><B>RECIBO DO SACADO</B></FONT></TD>
</TR>
</TABLE>
<TABLE WIDTH="660" BORDER=1 CELLSPACING=0 CELLPADDING=1>
<TR>
<TD COLSPAN=2><FONT class=ct>Cedente</FONT><BR><FONT class=cp>&nbsp;<%=vCedenteBradesco%></FONT></TD>
<TD width=15%><FONT class=ct>Ag&ecirc;ncia / C&oacute;digo Cedente</FONT><BR>
<FONT align=center class=cn>&nbsp;<%=vAgenciaBradesco%>&nbsp;/&nbsp;<%=vContaBradesco%>-<%=dvagconta%></FONT></TD>
<TD width=15%><FONT class=ct>Nosso Número</FONT><BR><FONT class=cn>&nbsp;<%=vCarteiraBradesco%>&nbsp;/&nbsp;<%=var_nossonumero%>-<%=dvnossonumero%></FONT></TD>
<TD width=20% bgcolor="#CCCCCC">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD align=left><FONT class=ct>Vencimento</FONT></TD></TR>
<TR><TD align=center><FONT class=cp><%=var_datavencimento%></FONT></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN=2><FONT class=ct>Sacado</FONT><BR><FONT class=cp>&nbsp;<%=var_sacado%></FONT></TD>
<TD width=15%><FONT class=ct>Data Processamento</FONT><BR><FONT align=center class=cn>&nbsp;<%=var_data%></FONT></TD>
<TD width=15%><FONT class=ct>Número Documento</FONT><BR><FONT class=cn>&nbsp;<%=var_numerodoc%></FONT></TD>
<TD width=20% bgcolor="#CCCCCC">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD align=left><FONT class=ct>Valor do Documento</FONT></TD></TR>
<TR><TD align=center><FONT class=cp><%=var_valordocumento%></FONT></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TD><FONT class=ct>CPF / CNPJ</FONT><BR><FONT class=cp>&nbsp;<%=vCNPJBradesco%></FONT></TD>
<TD width=15%><FONT class=ct> Desconto / Abatimento</FONT><BR><FONT class=cp><br></FONT></TD>
<TD width=15%><FONT class=ct> Outras Dedu&ccedil;&otilde;es</FONT><BR><FONT class=cn><br></FONT></TD>
<TD width=15%><FONT class=ct> Mora / Multa</FONT><BR><FONT class=cn><br></FONT></TD>
<TD width=20% bgcolor="#CCCCCC"><FONT class=ct>( Valor Cobrado</FONT><BR><FONT class=cp><br></FONT></TD>
</TR>
<TR>
<TD COLSPAN=5 valign=top align=left>
<FONT class=ct>Observações:</FONT><br>
<TABLE WIDTH="640" ALIGN=RIGHT CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD valign=top align=left>
<FONT class=cn>
<%=var_observacoes%>
</FONT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE WIDTH="660" CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD align=right><FONT class=ct>Autentica&ccedil;&atilde;o Mec&acirc;nica</FONT><BR><BR><BR></TD>
</TR>
</TABLE>

<img src="../Imagens/Boletos/corte.gif" width="640" height="21" border=0><br>
<br>

<TABLE WIDTH="660" BORDER=0 CELLSPACING=0 CELLPADDING=0>
<tr>
<td class=cp width=150><div align="left"><IMG SRC="../Imagens/Boletos/logoBradesco.jpg" width="149" height="38"></div></td>
<td width=3 valign="bottom"><img height=22 src="barra.gif" width=2 border=0></td>
<td class=cpt width=58 valign="bottom"><div align="center"><font class="bc"><%=vBancoBradesco%>-<%=vDVBancoBradesco%></font></div></td>
<td width=3 valign="bottom"><img height=22 src="barra.gif" width=2 border=0></td>
<td class=ld align=right width=453 valign="bottom"><span class='ld'><p align="right">&nbsp;<%=var_linhadigitavel%></span></td>
</tr>
</TABLE>
<TABLE WIDTH="660" BORDER=1 CELLSPACING=0 CELLPADDING=1>
<TR>
<TD COLSPAN=5 WIDTH=500>
<FONT class=ct>Local de Pagamento</FONT><BR>
<FONT class=cp>&nbsp;ATÉ O VENCIMENTO PAGÁVEL EM QUALQUER BANCO</FONT>
</TD>
<TD width=170 bgcolor="#CCCCCC">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD align=left><FONT class=ct>Vencimento</FONT></TD></TR>
<TR><TD align=center><FONT class=cp><%=var_datavencimento%></FONT></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TD COLSPAN=5 WIDTH=500><FONT class=ct>Cedente</FONT><BR><FONT class=cn>&nbsp;<%=vCedenteBradesco%></FONT></TD>
<TD width=170>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD align=left><FONT class=ct>Ag&ecirc;ncia / C&oacute;digo Cedente</FONT></TD></TR>
<TR><TD align=center><FONT class=cn><%=vAgenciaBradesco%>&nbsp;/&nbsp;<%=vContaBradesco%>-<%=dvagconta%></FONT></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TD valign=top><FONT class=ct>Data Documento</FONT><BR><FONT class=cn>&nbsp;<%=var_datadocumento%></FONT></TD>
<TD valign=top><FONT class=ct>Número Documento</FONT><BR><FONT class=cn>&nbsp;<%=var_numerodoc%></FONT></TD>
<TD valign=top><FONT class=ct>Tipo Docu.</FONT><BR><FONT class=cn>&nbsp;DP</FONT></TD>
<TD valign=top><FONT class=ct>Aceite</FONT><BR><FONT class=cn>&nbsp;N</FONT></TD>
<TD valign=top><FONT class=ct>Data Processamento</FONT><BR><FONT class=cn>&nbsp;<%=var_data%></FONT></TD>
<TD width=170>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD align=left><FONT class=ct>Nosso Número</FONT></TD></TR>
<TR><TD align=center><FONT class=cn><%=vCarteiraBradesco%>&nbsp;/&nbsp;<%=var_nossonumero%>-<%=dvnossonumero%></FONT></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TD valign=top><FONT class=ct>Uso Banco</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
<TD valign=top><FONT class=ct>Carteira</FONT><BR><FONT class=cn>&nbsp;<%=vCarteiraBradesco%></FONT></TD>
<TD valign=top><FONT class=ct>Espécie</FONT><BR><FONT class=cn>&nbsp;<%=vEspecieBradesco%></FONT></TD>
<TD valign=top><FONT class=ct>Quantidade</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
<TD valign=top><FONT class=ct>Valor</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
<TD width=170 bgcolor="#CCCCCC">
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
<TR><TD align=left><FONT class=ct>Valor do Documento</FONT></TD></TR>
<TR><TD align=center><FONT class=cp><%=var_valordocumento%></FONT></TD></TR>
</TABLE>
</TD>
</TR>
<TR>
<TH COLSPAN=5 ROWSPAN=4 valign=top align=LEFT ><FONT class=ct>Instru&ccedil;&otilde;es</FONT><BR>
<TABLE WIDTH="475" ALIGN=RIGHT CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD valign=top align=left>
<FONT class=cn>
<%=var_instrucoes%>
</FONT>
</TD>
</TR>
</TABLE>
</TH>
<TD WIDTH=170><FONT class=ct> Desconto / Abatimento</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
</TR>
<TR>
<TD WIDTH=170><FONT class=ct> Outras Deduções</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
</TR>
<TR>
<TD WIDTH=170><FONT class=ct> Mora / Multa</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
</TR>
<TR>
<TD WIDTH=170 bgcolor="#CCCCCC"><FONT class=ct>( Valor Cobrado</FONT><BR><FONT class=cn>&nbsp;</FONT></TD>
</TR>
<TR>
<TD COLSPAN=6 valign=top>
<FONT class=ct>Sacado</FONT><BR>
<TABLE WIDTH="640" ALIGN=RIGHT CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD valign=top align=left>
<FONT class=cn>
<%=var_sacado%><BR>
<%=var_endereco%><BR>
<%=var_bairro%><BR>
<%=var_cep%>&nbsp;-&nbsp;<%=var_cidade%>&nbsp;-&nbsp;<%=var_estado%><BR>
<%=vCNPJ%><BR>
</FONT>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<TABLE WIDTH="660" CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD class=ct align=right>
<div align="right">Autenticação Mecânica - <b class="cp">Ficha de Compensação</b></div>
</TD>
</TR>
<TR>
<TD align=left>
<%
call wbarcode(var_codigobarras)
%>
</TD>
</TR>
</TABLE>

<BR>
<img src="../Imagens/Boletos/corte.gif" width="640" height="21" border=0><BR>

<table width='640' cellspacing=5 cellpadding=0 border=0>
<tr>
<form name='forma'>
<td align="center"><input type=button value=' Imprimir Boleto' onClick='x86()' name='button'></td>
</form>
</tr>
</table>

</CENTER>

</HTML>


-->