!Urgent! Problème ASP lors passage IIS 4.0 --> 5.0

!Urgent! Problème ASP lors passage IIS 4.0 --> 5.0 - ASP - Programmation

Marsh Posté le 28-05-2004 à 13:45:54    

Désolé pour le urgent, mais c'est réellement urgent
Je suis actuellement en train d'installer un serveur WEB en 2000 pour remplacer celui en NT 4.0.
 
Sur les pages du site se trouve des pointeurs vers des fichiers HTM et PDF.
Avant, il y avait possibilité d'ouvrir/télécharger ces fichiers.
 
Avec le nouveau serveur, il n'y a pas moyen d'ouvrir les PDF (ressource non disponible. HTTP 500 erreur interne du serveur).
 
Le développeur de l'époque avec le code suivant pour gérer les PDF

Code :
  1. If Not Response.isClientConnected Then
  2.  Response.end
  3. End If
  4. Response.buffer = true
  5. Response.contenttype = "application/pdf"
  6. Set objBinFile = Server.CreateObject("ASPBinFile.clsASPBinFile" )
  7. FabDocFileBody = objBinFile.BinFileRead(Fabdocfile)
  8. Response.binarywrite FabDocFileBody
  9. Set objBinFile = Nothing
  10. Response.End


 
Ce code est-il toujours valable pour le couple 2000-IIS 5.0 ?
Si oui, que dois je vérifier ?
Si non, quelle méthode utiliser ?


Message édité par houckaye le 28-05-2004 à 13:46:48
Reply

Marsh Posté le 28-05-2004 à 13:45:54   

Reply

Marsh Posté le 28-05-2004 à 14:07:46    

Apparemment, le problème serait lié au message suivant

Code :
  1. Server Object error 'ASP 0177 : 800401f3'
  2. Server.CreateObject Failed
  3. Invalid Prog Id


Message édité par houckaye le 28-05-2004 à 14:08:19
Reply

Marsh Posté le 06-06-2004 à 22:43:14    

L'objet ASPBinFile.clsASPBinFile n'est pas un objet de base, il doit y avoir une dll sur ton ancien serveur qu'il reinstaller sur ton nouveau serveur. Ou alors :
 
 
Response.Buffer = false
Response.ContentType = "application/pdf"
Response.AddHeader "Content-Type", "application/pdf"
Response.AddHeader "Content-Disposition", "inline;filename=file.pdf"
Const adTypeBinary = 1
Dim strFilePath
strFilePath = Server.MapPath("file.pdf" )  
Set objStream = Server.CreateObject("ADODB.Stream" )
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

Reply

Marsh Posté le 07-06-2004 à 09:54:04    

Merci alknon
A peu de chose près, c'est ce que j'ai fais.
Pour ce qui est de l'objet, je ne sais pas c'est une firme extérieure qui avait installé et conçu le site.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed