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.