<%@ Language=VBScript %> <% Dim pdfDoc Dim content Dim text set pdfDoc = Server.CreateObject("PDFParser.Document") If not pdfDoc.Open(Server.Mappath("in_sample.pdf")) then Response.Write "

" Response.Write "Could not open file." & "
" End if pdfDoc.PageNo = 1 set content = pdfDoc.Page.content If Not (content Is Nothing) Then content.BreakWords = True set text = content.text content.Reset True Yold = -1 thetext = "" Do If content.GetNextText Is Nothing Then Exit Do set text = content.text if text.length > 0 then YPos = text.YPos Y = YPos(0) If Yold = Y Then thetext = thetext & " " & text.UnicodeString Else Response.Write Server.HTMLEncode(thetext) & "
" thetext = text.UnicodeString End If Yold = Y end if loop Else Response.Write "

" Response.Write "There is no content on this page" & "
" Response.Write "

" End If %>