Runtime Error '800a01a8'

[wraithe]

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.

[aprelium]

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

[wraithe]

Will do... Thank you.

[wraithe]

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.

[aprelium]

wraithe,

Thank you for the update and the explanation.
_________________
Support Team
Aprelium - http://www.aprelium.com

[ossweb]

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);