Runtime Error '800a01a8'

 
Post new topic   Reply to topic    Aprelium Forum Index -> Classic ASP
View previous topic :: View next topic  
Author Message
wraithe
-


Joined: 18 Sep 2006
Posts: 11

PostPosted: Mon Sep 18, 2006 10:52 pm    Post subject: Runtime Error '800a01a8' Reply with quote

Okay I am seeing this error when I test my website both internally and externally:

===================================
Microsoft VBScript runtime error- Error '800a01a8'

Object required: 'Session(...)'

/phase1/showdoc.asp, line 5
===================================

I have all required components installed to run this: Abyss Web Server, ActiveHTML, ABCpdf5, Access Driver, Micscroft Scripts crap 5.6, VB 6 etc. w/ IIS disabled and removed on an XP Pro box. I checked the 5th line and its code is:

====================
Set theDoc = Session("doc")
====================

Here is the full code from my showdoc.asp file:

======================================================
<% @Language="VBScript" %>
<%
Response.Buffer = True
Response.Expires = -1000
Set theDoc = Session("doc")
theData = theDoc.GetDaabcpdf5ta()
Response.ContentType = "application/pdf"
Response.AddHeader "content-length", UBound(theData) - LBound(theData) + 1
If Request.QueryString("attachment") <> "" Then
Response.AddHeader "content-disposition", "attachment; filename=MyPDF.PDF"
Else
Response.Addheader "content-disposition", "inline; filename=MyPDF.PDF"
End If
Response.BinaryWrite theData
%>
======================================================

Everything appears to be working fine but just in case I am posting the code from (one of) the file(s) I am trying to generate and the obeject is a perfect match so I am stuck. Any help would be great.

======================================================

<% @Language="VBScript" %>
<%
Response.Buffer = True
%>

<%
dim XFullname
dim XSSN
XFullname = request("FULLNAME")
XSSN = request("SSN")
%>

<%
Set Session("doc") = Server.CreateObject("ABCpdf5.Doc")
%>

<%
Response.Buffer = True
%>

<%
Function NewlineToBR (strText)
NewlineToBR = Replace(strText, vbLf, "<BR>")
End Function
%>

<%
Set theDoc = Session("doc")
theDoc.Rect.Position 80,50
theDoc.Rect.Width = 460
theDoc.Rect.Height = 680
theF1 = theDoc.AddFont("Times-Roman")
theF2 = theDoc.AddFont("Times-Bold")
theDoc.TextStyle.LineSpacing = 1

theDoc.Font = theF2
theDoc.FontSize = 12
theDoc.HPos = 0.5
theDoc.TextStyle.Italic = True
theDoc.AddText "AFFIDAVIT" & vbcrlf & vbcrlf
theDoc.TextStyle.Italic = False
theDoc.HPos = 0.0

theDoc.Font = theF1
theDoc.FontSize = 10
theDoc.AddText "state of _______________________________)" & vbcrlf
theDoc.AddText " ) SS" & vbcrlf
theDoc.AddText "county of ______________________________)" & vbcrlf & vbcrlf


theDoc.AddText "I, " & XFullname & ", hereinafter Affiant, swear to or affirm by firsthand knowledge under penalty of perjury under the laws of the united States of America, that this Affiant is requesting information under the Freedom of Information Act pursuant to Affiant’s account number " & XSSN & "." & vbcrlf & vbcrlf

theDoc.AddText " Further, Affiant sayeth nought." & vbcrlf & vbcrlf & vbcrlf & vbcrlf

theDoc.AddText " __________________________________________________________" & vbcrlf
theDoc.AddText " (Affiant Signature)" & vbcrlf & vbcrlf & vbcrlf & vbcrlf

theDoc.HPos = 0.5
theDoc.Font = theF2
theDoc.FontSize = 12
theDoc.AddText "Notary Statement" & vbcrlf & vbcrlf

theDoc.HPos = 0.0
theDoc.Font = theF1
theDoc.FontSize = 10
theDoc.AddText "state of _______________________________)" & vbcrlf
theDoc.AddText " ) SS" & vbcrlf
theDoc.AddText "county of _____________________________)" & vbcrlf & vbcrlf

theDoc.AddText "Before me, the undersigned authority, on this day personally appeared" & vbcrlf & vbcrlf & vbcrlf & vbcrlf

theDoc.AddText " __________________________________________________________" & vbcrlf
theDoc.AddText " (Affiant Signature)" & vbcrlf & vbcrlf

theDoc.AddText "known to me or proved to be the person whose name is subscribed to in the foregoing instrument, and acknowledged to me that he/she executed the same for the purposes and consideration therein expressed." & vbcrlf & vbcrlf

theDoc.AddText "Affiant is: ( ) personally known to me, or" & vbcrlf & vbcrlf

theDoc.AddText " ( ) has produced identification. ID#: _________________________________" & vbcrlf & vbcrlf

theDoc.AddText "I certify under penalty of perjury under the laws of the united States of America that the foregoing is true and correct." & vbcrlf & vbcrlf

theDoc.AddText "Given under my hand and seal and executed on this __________ day of _____________________ , 2006." & vbcrlf & vbcrlf & vbcrlf & vbcrlf

theDoc.AddText "(seal)"
theDoc.HPos = 1.0
theDoc.AddText "_________________________________" & vbcrlf & vbcrlf

theDoc.AddText "Notary Public for the State of __________________" & vbcrlf & vbcrlf

theDoc.AddText "My Commission Expires: _____________________" & vbcrlf & vbcrlf

Response.Redirect "showdoc.asp"
%>

======================================================

Checked global.asa and its reported working fine as everything else in the site works great! I just can't get it to show the document after its been created using ABCpdf. Any help is appreciated.
Back to top View user's profile Send private message Visit poster's website
aprelium
-


Joined: 22 Mar 2002
Posts: 6800

PostPosted: Tue Sep 19, 2006 2:51 pm    Post subject: Re: Runtime Error '800a01a8' Reply with quote

wraithe,

This problem is related to ActiveHTML. So we strongly suggest that you contact SeliSoft (the author of ActiveHTML) to get support about this issue.

Please keep us updated about their reply.
_________________
Support Team
Aprelium - http://www.aprelium.com
Back to top View user's profile Send private message Send e-mail
wraithe
-


Joined: 18 Sep 2006
Posts: 11

PostPosted: Wed Sep 20, 2006 5:55 pm    Post subject: Thanx Reply with quote

Will do... Thank you.
Back to top View user's profile Send private message Visit poster's website
wraithe
-


Joined: 18 Sep 2006
Posts: 11

PostPosted: Fri Sep 29, 2006 2:28 am    Post subject: Seliosoft's reply Reply with quote

Got their reply. Great tech support! Turns out that ActiveHTML doesn't allow me to store sessions so i have to make each document show in its own page instead of redirecting. Gonna be a pain in the as* but it should work soon.
Back to top View user's profile Send private message Visit poster's website
aprelium
-


Joined: 22 Mar 2002
Posts: 6800

PostPosted: Fri Sep 29, 2006 2:25 pm    Post subject: Re: Seliosoft's reply Reply with quote

wraithe,

Thank you for the update and the explanation.
_________________
Support Team
Aprelium - http://www.aprelium.com
Back to top View user's profile Send private message Send e-mail
ossweb
-


Joined: 15 Jun 2008
Posts: 1

PostPosted: Sun Jun 15, 2008 9:18 am    Post subject: Reply with quote

You can use the html to pdf converter for .net html to pdf from http://www.winnovative-software.com to perform the html to pdf conversion with only 2 lines of code:

PdfConverter pdfConverter = new PdfConverter();
byte[] downloadBytes = pdfConverter.GetPdfFromUrlBytes(MyURL);
Back to top View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Aprelium Forum Index -> Classic ASP All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB phpBB Group