PDF MOD - Posted (3698 Views)
leatherlips
Senior Member
leatherlips
Posts: 1838
1838
I'm working on a PDF mod. This mod will let you embed a pdf file into your post via the PDFMENOT website. I have it working OK but when embedded, it widens the width of the forum. I can't figure out why.
Here is my test page with an embedded PDF file:

http://www.mangionemagic.com/forumtest/topic.asp?TOPIC_ID=901

If you want to try out the feature login as demo/demo. Just either link to a pdf file and place it in the pdf tags - [pdf] [/pdf] or simply upload a pdf file (which will automatically insert the pdf tags for you).
Here is the code for my tag. Note that I do not write code. I simply am a good "copy and paste" kind of guy. I copied some code from the video mod and modified it for this PDF mod. There is probably a better way to do it but this for now is working.
Here is the function:

Code:
function EmbedPDF(URL,autostart){
   if(autostart != true && autostart != "true" && autostart != "1" && autostart != 1){
      autostart = 0; //Replace with default. Default = 0 (false).
      }else{
      autostart = 1; //Replace with 1, being zero.
   }//See if we can continue.
   if(URL == null || URL == "illegal"){
      //Nope, we can't.
      document.writeln(" error: illegal use of pdf tag! ");
   }else{
      //Add the code to the document.
      document.writeln('<script type="text/javascript" src="http://pdfmenot.com/embed/?url=' + URL + '&width=625&height=475" />');
      document.writeln('</script>');
   }
}
Here is the tag code:

Code:
'##### PDF Begin #####

Function ReplacePDFTags(fString)
   Dim oTag, cTag
   Dim roTag, rcTag
   Dim oTagPos, cTagPos
   Dim nTagPos
   Dim counter1, counter2
   Dim strCodeText
   Dim Tagcount
   Dim strTempString, strResultString
   TagCount = 2
   Dim CodeTags(2,2,2)
   Dim strArray, strArray2

   CodeTags(1,1,1) = "[pdf]"
   CodeTags(1,2,1) = "[/pdf]"

   CodeTags(1,1,2) = "<div class=""media""><script language=""javascript"">EmbedPDF("""
   CodeTags(1,2,2) = """,625,475,false)</script></div><div class=""break""></div>"

   CodeTags(2,1,1) = "[pdf]"
   CodeTags(2,2,1) = "[/pdf]"
   CodeTags(2,1,2) = CodeTags(1,1,2)
   CodeTags(2,2,2) = CodeTags(1,2,2)

   strResultString = ""
   strTempString = fString

   for counter1 = 1 to TagCount

      oTag   = CodeTags(counter1,1,1)
      roTag  = CodeTags(counter1,1,2)
      cTag   = CodeTags(counter1,2,1)
      rcTag  = CodeTags(counter1,2,2)
      oTagPos = InStr(1, strTempString, oTag, 1)
      cTagPos = InStr(1, strTempString, cTag, 1)

      if (oTagpos > 0) and (cTagPos > 0) then
         strArray = Split(strTempString, oTag, -1)
         for counter2 = 0 to Ubound(strArray)
            if (Instr(1, strArray(counter2), cTag) > 0) then
               strArray2 = split(strArray(counter2), cTag, -1)
               strCodeText = trim(strArray2(0))
               if instr(strCodeText,",") > 0 or _
                  instr(strCodeText,")") >0 or _
                  instr(strCodeText,"(") >0 or _
                  instr(strCodeText,";") >0 or _
                  instr(strCodeText,"""") >0 or _
                  instr(strCodeText,"<") >0 or _
                  instr(strCodeText,">") >0 or _
                  instr(strCodeText,"[") >0 or _
                  instr(strCodeText,"]") >0 or _
                  instr(strCodeText,",") >0 then
               strCodeText = "illegal"
               end if
               strResultString = strResultString & roTag & strCodeText & rcTag & strArray2(1)
            else
               strResultString = strResultString & strArray(counter2)
            end if
         next

         strTempString = strResultString
         strResultString = ""
      end if
   next

   ReplacePDFTags = strTempString
end function

'##### PDF End #####
Can anyone see why it stretches my forums width?
Mangione Magic Forum - The Music of Chuck Mangione
My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Last edited by leatherlips on 15 August 2009, 14:37
 Sort direction, for dates DESC means newest first  
 Page size 
Posted
modifichicci
Average Member
modifichicci
Posts: 787
787
pdfmenot tools is giving error. Someone knows a substitute?
Ernia e Laparocele Forum di Ernia e Laparocele Acces - MySql Migration Tutorial Adamantine forum
Posted
modifichicci
Average Member
modifichicci
Posts: 787
787
Changing

Code:
document.writeln('<script type="text/javascript" src="http://pdfmenot.com/embed/?url=' + URL + '&width=625&height=475" />');
      document.writeln('</script>');



to

Code:

document.writeln('<iframe src="http://docs.google.com/viewer?url=' + URL + '%20&embedded=true" width="650" height="580" style="border: none;">');
      document.writeln('</iframe>');

let it work by google docs
Ernia e Laparocele Forum di Ernia e Laparocele Acces - MySql Migration Tutorial Adamantine forum
Posted
shaggy073077
Starting Member
shaggy073077
Posts: 29
29
I have a problem with this mod. Here is were it's been aggrivating on me.
Code:
Microsoft VBScript compilation error- Error '800a0401'

Expected end of statement

/inc_header_short.asp, line 77

Response.Write "<script type=""text/javascript"" src=""pdf.js""></script>" & vbNewLine 
---------------^

My line # 77 is:

Code:
Response.Write "<script type=""text/javascript"" src=""pdf.js""></script>"

Any help?
Posted
AnonJr
Forum Moderator
AnonJr
Posts: 5768
5768
The problem is most likely on the line above it. Post line 77 with the three lines above and below it for context.
You Must enter a message