Exibir dados

Olá pessoal, estou tentando preencher os campos de um relatório em FPDF com ASP, mas sempre que ponho para imprimir os dados ao invés de renotar o PDF com os dados retorna uma página em branco. alguém pode me ajudar - Segue o Código

<!--#include file="fpdf.asp"-->
<!--#include file="codigobarras_pedido/codigobarras_inc.asp"-->
<%

If Not intProtocolo = "" Then

sql = ""

 sql = sql& " SELECT "
 sql = sql& " pd.IdPedidoDetalhe AS 'IDDetalhe', "
 sql = sql& " (CASE LEN(chDETDocumento) "
 sql = sql& " WHEN 11 THEN 'CPF'"
 sql = sql& " WHEN 14 THEN 'CNPJ'"
 sql = sql& " END) AS 'cer_TipoDoc',"
 sql = sql& " (CASE LEN(chDETDocumento) "
 sql = sql& " WHEN 11 THEN (SUBSTRING(pd.chDETDocumento,1,3)+ '.' +SUBSTRING(pd.chDETDocumento,4,3)+ '.' +SUBSTRING(pd.chDETDocumento,7,3)+ '-' +SUBSTRING(pd.chDETDocumento,10,2)) "
 sql = sql& " WHEN 14 THEN (SUBSTRING(pd.chDETDocumento,1,2)+ '.' +SUBSTRING(pd.chDETDocumento,3,3)+ '.' +SUBSTRING(pd.chDETDocumento,6,3)+ '/' +SUBSTRING(pd.chDETDocumento,9,4)+ '.' +SUBSTRING(pd.chDETDocumento,13,2)) "
 sql = sql& " END) AS 'cer_Documento', "
 sql = sql& " UPPER(pd.chDETNome) AS 'cer_Nome', "
 sql = sql& " pd.chDETNomePai AS 'cer_Pai', "
 sql = sql& " pd.chDETNomeMae AS 'cer_Mae', "
 sql = sql& " pc.vlPEDValor AS 'Valor', "
 sql = sql& " ISNULL(pc.vlPEDValorCorreio,0) AS 'Correio', "
 sql = sql& " ISNULL(pc.vlPEDValorEntrega,0) AS 'Entrega', "
 sql = sql& " ISNULL(pc.vlPEDTaxaBancaria,0) AS 'TxBanco', "
 sql = sql& " ISNULL(pc.vlPEDTaxaServico,0) AS 'TxServico', "
 sql = sql& " pc.chPEDRequerente AS 'Requerente', "
 sql = sql& " pc.chPEDTelefone AS 'Telefone', "
 sql = sql& " pc.chPEDEndereco AS 'Endereco', "
 sql = sql& " pc.chPEDBairro AS 'Bairro', "
 sql = sql& " pc.chPEDCidade AS 'Cidade', "
 sql = sql& " pc.chPEDUf AS 'UF', "
 sql = sql& " (SUBSTRING(pc.chPEDCEP,1,5)+ '-' +SUBSTRING(pc.chPEDCEP,6,3)) AS 'CEP', "
 sql = sql& " pc.nuPEDOndeRetirar AS 'Retirada', "
 sql = sql& " pd.nuDETProtocolo AS 'Controle', "
 sql = sql& " pc.dtPEDDataPedido AS 'Data', "
 sql = sql& " chCERNome AS 'cer_arCertidao', "
 sql = sql& " nuDCTValor AS 'cer_arValorCertidao', "
 sql = sql& " vlPEDCustoEnvio AS 'CustoEnvio' "
 sql = sql& " FROM TBPedidoDetalhe AS pd INNER JOIN TBPedidoCertidao AS pc "
 sql = sql& " ON (pc.nuPEDProtocolo = pd.nuDETProtocolo), TBDetalheCertidao AS dc, TBTipoCertidao AS tc "
 sql = sql& " WHERE pd.nuDETProtocolo = " &intProtocolo
 sql = sql& " AND pd.IdPedidoDetalhe = dc.IdDCTPedidoDetalhe "
 sql = sql& " AND tc.IdTipoCertidao = nuDCTIdTipoCertidao "
 sql = sql& " ORDER BY pc.nuPEDIdEmpresa, IDDetalhe "

 Set objRS = p_objConn.Execute(sql)
 sql = ""
 sql = sql& " SELECT "
 sql = sql& " CASE blPCRAviso01 WHEN 1 THEN chPCRAviso01 ELSE '' END AS 'aviso01', "
 sql = sql& " CASE blPCRAviso02 WHEN 1 THEN chPCRAviso02 ELSE '' END AS 'aviso02', "
 sql = sql& " CASE blPCRAviso03_recibo WHEN 1 THEN chPCRAviso03_recibo ELSE '' END AS 'aviso_recibo', "
 sql = sql& " CASE blPCRHomonimo WHEN 1 THEN chPCRHomonimo ELSE '' END AS 'homonimo', "
 sql = sql& " CASE blPCRHomonimo_js WHEN 1 THEN chPCRHomonimo_js ELSE '' END AS 'homonimo_js', "
 sql = sql& " blPCRValorCertidao AS 'valor_certidao' "
 sql = sql& " FROM TBParametro_Certidao "

 Set rsMensagens = Server.CreateObject("ADODB.RecordSet")
 rsMensagens.Open sql,p_objConn

 strAviso_recibo = rsMensagens("aviso_recibo")

 rsMensagens.Close
 Set rsMensagens = nothing
 '//////////

 If Not objRS.EOF Then
 strRequerente = objRS("Requerente")
 strTelRequerente = formataTelefone(objRS("Telefone"))
 strEndereco = objRS("Endereco")
 strBairro = objRS("Bairro")
 strCidade = objRS("Cidade")
 strUF = objRS("UF")
 strCEP = objRS("CEP")
 datPedido = objRS("Data")

 If IsNull(objRS("TxServico")) or objRS("TxServico") = 0 Then vlrServico = 0 Else vlrServico = objRS("TxServico")
 If IsNull(objRS("TxBanco")) or objRS("TxBanco") = 0 Then vlrBanco = CDbl(Session("vlPARTaxaBanco")) Else vlrBanco = CDbl(objRS("TxBanco")) End If

 intRetirada = CInt(objRS("Retirada"))
 vlrCustoEnvio = CDbl(objRS("CustoEnvio"))
 vlrCorreio = CDbl(objRS("Correio"))
 vlrEntrega = CDbl(objRS("Entrega"))
 vlrValor = CDbl(objRS("Valor"))
 vlrTotal = vlrCorreio + vlrEntrega + vlrBanco + vlrServico + vlrValor + vlrCustoEnvio

 imprimeCabecalho()
 imprimePedidos()
 imprimeLocalEntrega()
 imprimeFinal()

 Else
 Response.Write "<font color='red'><b>Protocolo inexistente</b></font>"
 Response.End
 End If

 Set objRS = nothing
 Set p_objConn = nothing

End If

'// Procedimentos

Sub imprimeCabecalho()

%>

<%If intProtocolo = "" Then%>

<script>
	self.window.close();
	parent.opener.location = parent.opener.location;
	parent.opener.focus();
</script>

<%End If%>

<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","B",16
pdf.Open()
pdf.AddPage()

pdf.Image "img_brasao.jpg",12,10,15
pdf.SetFont "Arial","B",10
'//inicio Cabeçalho'//

pdf.SetXY 27.0, 6
pdf.Cell 140,17,"CARTÓRIO DE DISTRIBUIÇÃO DF",0,0,L
pdf.SetXY 27.0, 10
pdf.Cell 140,17,"ED. VENÂNCIO 2000, BLOCO B60, SALA 240",0,0,"L"
pdf.SetXY 27.0, 14
pdf.Cell 140,17,"ASA SUL - BRASÍLIA/DF - 70.333-900 TELEFONE: (61) 3212-4000",0,0,"L"
pdf.SetXY 10.0, 10
pdf.Cell 140,17,"",1,0,"L"

pdf.SetFont "Arial","B",8
pdf.SetXY 150.0, 10
pdf.Cell 50,8.5,"",1,1,"C"

pdf.SetXY 150.0, 8
pdf.Cell 50,8.5,"Protocolo",0,0,"C"

pdf.SetXY 150.0, 11
pdf.Cell 50,8.5,intProtocolo,0,0,C

pdf.SetXY 155.0, 18.5
pdf.Cell 50,8.5,"Data:",0,0,"L"

pdf.SetXY 150.0, 18.5
pdf.Cell 50,8.5,"",1,0,"C"

pdf.SetFont "Arial","B",8
pdf.SetXY 10, 25
pdf.Cell 190,8.5,"Requerente:",0,0,L

pdf.SetXY 30, 25
pdf.Cell 190,8.5,strRequerente,0,0,L

pdf.SetXY 10, 27
pdf.Cell 190,5,"",1,0,"C"

pdf.SetFont "Arial","B",8
pdf.SetXY 10, 32.5
pdf.Cell 190,8.5,"",0,0,"L"

pdf.SetXY 10, 32.1
pdf.Cell 190,16,"",1,0,"C"

pdf.SetFont "Arial","B",8
pdf.SetXY 10,48
pdf.Cell 190,8.5,"",0,0,"L"

pdf.SetXY 10, 48
pdf.Cell 190,15,"",1,0,"C"

'Fim Cabeçalho

pdf.Close()
pdf.Output
%>
<% End Sub%>