View previous topic :: View next topic |
Author |
Message |
wraithe -
Joined: 18 Sep 2006 Posts: 11
|
Posted: Mon Sep 18, 2006 10:52 pm Post subject: Runtime Error '800a01a8' |
|
|
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 |
|
![](templates/subSilver/images/spacer.gif) |
aprelium -
Joined: 22 Mar 2002 Posts: 6800
|
Posted: Tue Sep 19, 2006 2:51 pm Post subject: Re: Runtime Error '800a01a8' |
|
|
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 |
|
![](templates/subSilver/images/spacer.gif) |
wraithe -
Joined: 18 Sep 2006 Posts: 11
|
Posted: Wed Sep 20, 2006 5:55 pm Post subject: Thanx |
|
|
Will do... Thank you. |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
wraithe -
Joined: 18 Sep 2006 Posts: 11
|
Posted: Fri Sep 29, 2006 2:28 am Post subject: Seliosoft's reply |
|
|
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 |
|
![](templates/subSilver/images/spacer.gif) |
aprelium -
Joined: 22 Mar 2002 Posts: 6800
|
Posted: Fri Sep 29, 2006 2:25 pm Post subject: Re: Seliosoft's reply |
|
|
wraithe,
Thank you for the update and the explanation. _________________ Support Team
Aprelium - http://www.aprelium.com |
|
Back to top |
|
![](templates/subSilver/images/spacer.gif) |
ossweb -
Joined: 15 Jun 2008 Posts: 1
|
Posted: Sun Jun 15, 2008 9:18 am Post subject: |
|
|
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 |
|
![](templates/subSilver/images/spacer.gif) |
|