msxml3.dll error '80072efd'

[Mrflashy]

'msxml3.dll error '80072efd'
A connection with the server could not be established
photoalbum/ScriptLibrary/incResizeAddOn.asp, line 361'

Is the error i get.. for those of you who have been following this intense drama ;) (PeOfEo is one, yes this is still the drama of my fw /router, that I now have fixed :D)

Anyone know what that error message means? It still works flawlessly behind the NAT table, but now I do atleast not get that it stops somewhere in the router / fw anymore...
But I don't feel like telling what made it so.. lol, i was just to change admin access port on router / fw from default 80 to 8080 and it works (almost anyhow) :)

Well, any help is appriciated

//Mrflashy

[CardboardHammer]

Showing the code around the line at which the error occurs might help.

My guess is that it is a failed RPC call...

EDIT: Are you trying to access an XML related file on a different server?

[Mrflashy]

ResizeComUrl = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO")

This was the original code for the file that gave me the error, but I did a search on the forum for the photoalbum I'm using (which is far from easy. neat etc.. the support they have is, well non exsiting.. but i found one advice..)
To change the before mentioned part of code to :

ResizeComUrl = "http://192.168.1.35/" &_
Request.ServerVariables("PATH_INFO")


First try gave me a nogo from inside the lan, then a quick fix, had forgotten the _ and it worked from behind the lan, still from the outside, the error is still :
msxml3.dll error '80072efd'
A connection with the server could not be established
/photoalbum/ScriptLibrary/incResizeAddOn.asp, line 362

However, if I check the source code (using Homesite 5 and check line 362, I find :

objText = objHttp.responseText

So I am clueless here.. A larger area of the code is :

objHttp.open "GET", ResizeComUrl, false
objHttp.Send ""
objText = objHttp.responseText <-- error part
' Check notification validation
if (objHttp.status <> 200 ) then


The whole part here is that this is a part of a upload for pictures, that uses the .NET component to resize images when they are uploaded..

Hmm, more info? Let me know ;)
*Edited*
Might add that pictures uploaded do show up in the database on the server, despite this error, but they are not parsed or "stored" so they show in the photoalbum
*Edited*

//MrFlashy

[CardboardHammer]

Is this relevant? http://support.microsoft.com/default.aspx?scid=kb;EN-US;289481

If not, what kind of object is objHttp?

[CardboardHammer]

Another idea: are you using impersonation or any such thing that might be causing users on the LAN to be operating at a higher level of permission than persons accessing the page from the WAN side of the router?

EDIT: Never mind that, as I can access the page in question without a problem http://eod.kicks-ass.org/photoalbum/ScriptLibrary/incResizeAddOn.asp

[Mrflashy]

Originally posted by CardboardHammer
Is this relevant? http://support.microsoft.com/default.aspx?scid=kb;EN-US;289481

If not, what kind of object is objHttp?

Do be honest I don't know. This whole photoalbum is a part of a "freeware" package from DuWare (www.duware.com)
and I am really not into how they have built the code (not that I would have a chance either if i sat down and went thru it, but thats another matter)

And that article, i have no idea as i am not using a proxy server at all, it's the router / fw who is the gateway and it also hands out Ip (DHCP)..so I am quite lost..
Another weird part is that I have a script that is supposed to detect the .NET component and from behind the router / fw (on the LAN) this works fine : http://eod.kicks-ass.org/detect.asp , however from the outside, it generates a similiar message, that it can not find the component..

weird stuff.. if anyone has any good PHP based photo gallerys, that are easy to set up and modify (I know _zero_ about php ) I am thinking of using that..

//MrFlashy

[CardboardHammer]

It may be that the .NET component isn't configured correctly. Some one else in another forum said they received that error and that they knew how to fix the configuration to get it to work (but weren't allowed to), but they didn't say what the needed change would have been...

[Mrflashy]

lol.. I sure could use that info
"not allowed to" would reflect that it wasnt on their server then? (I hope.. )

But configuring the .NET component? Hmm.. have to look into that a bit...

//MrFlashy

[CardboardHammer]

Right. It was a client's server.

[Mrflashy]

You wouldn't happen to know what the topic was of that other discussion regarding .NET? I did a lengthy pass yesterday on microsoft.com but didn't really find anything useful (though I found a lot of things that I didn't know what did, so i followed murphys law, "if it works, don't mess with it" ;) )

//MrFlashy

[CardboardHammer]

Here's a link to the thread (which I found via a Google on the error message): http://www.flzone.net/forum/topic.asp?TOPIC_ID=27463&FORUM_ID=7&CAT_ID=5&Topic_Title=sending+HTML+email+from+another+page&Forum_Title=ASP

[Mrflashy]

I also found that one before I posted here (did the same search on goggle) but it relates to a different problem. The poster has problems sending a different piece of information than what I am trying to. Besides, I have no call or set the object like this :

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")


I am not even using XML , as this is a part of PureASPUpload and a img resize in .aspx.
This problem is weirder and weirder as seperatly one can access the files the upload calls, but it fails when it needs to execute some of the code in the include files, but then again it works flawlessly behind the router/fw..

I am starting to think it has to be a IIS configuration issue, the question is what and how the heck do I configure it..

Gonna try a little tips I got from a friend, to check what the object holds..

objHttp.open "GET", ResizeComUrl, false
objHttp.Send ""
objText = objHttp.responseText <-- error part
' Check notification validation
if (objHttp.status <> 200 ) then

Is the original code, I am gonna try :

objHttp.open "GET", ResizeComUrl, false
objHttp.Send ""
Response.Write(objHttp.responseText) <-- to see what the object holds..
objText = objHttp.responseText <-- error part
' Check notification validation
if (objHttp.status <> 200 ) then

Hopefully it will bring me further on the path to the solution :)

//MrFlashy

[CardboardHammer]

If it's erroring on objHttp.responseText, sticking that in a response.write isn't going to help.

It may be that it's erroring at objHttp.Send. Vbscript and VB both have a nasty habit of not always pointing out EXACTLY where an error happens. They do generally get close, at least.

What kind of object is objHttp? Show the code where you set it.

You may not be using XML directly, but it seems likely that something is, given that the error relates to msxml3.dll.

[Mrflashy]

Here is the chunk of the code that checks what image resize component i have and the part with the error :

sub FitImage_Comp(compType,DotNetResize,imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeig ht,isNoThumb,aspect)
select case compType
case "AUTO"
FitImage_Comp DetectImageComponent(DotNetResize),DotNetResize,imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWi dth,saveHeight,isNoThumb,aspect
case "PICPROC"
FitImage_PicProc imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "SHOTGRAPH"
FitImage_ShotGraph imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "ASPJPEG"
FitImage_AspJpeg imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "ASPIMAGE"
FitImage_AspImage imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "ASPSMART"
FitImage_AspSmart imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "IMGWRITER"
FitImage_ImgWriter imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "ASPTHUMB"
FitImage_AspThumb imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "ASP.NET"
select case DetectDotNetComponent(DotNetResize)
case "DOTNET1"
FitImage_DotNet "Msxml2.ServerXMLHTTP.3.0",DotNetResize,imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "DOTNET2"
FitImage_DotNet "Msxml2.ServerXMLHTTP",DotNetResize,imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
case "DOTNET3"
FitImage_DotNet "Microsoft.XMLHTTP",DotNetResize,imgFile,newImgFile,maxWidth,maxHeight,Quality,saveWidth,saveHeight,isNoThumb,aspect
end select
end select
end sub

function DetectImageComponent(DotNetResize)
Dim objPictureProcessor, objASPjpeg, AspImage, AspSmart, objImgWriter, objAspThumb, ImageComponent
ImageComponent = ""
if Application("ResizeAutoComponent112") = "" then
on error resume next
'Check for our own Picture Processor
err.clear
Set objPictureProcessor = Server.CreateObject("COMobjects.NET.PictureProcessor")
if err.number = 0 then
Set objPictureProcessor = nothing
ImageComponent = "PICPROC"
else
'Check for ShotGraph
err.clear
Set objShotGraph = Server.CreateObject("shotgraph.image")
'Response.Write err & " - " & err.number & ":" & err.description & "<br/>"
if err.number = 0 then
Set objShotGraph = nothing
ImageComponent = "SHOTGRAPH"
else
'Check for AspJpeg
err.clear
Set objASPjpeg = Server.CreateObject("Persits.Jpeg")
'Response.Write err & " - " & err.number & ":" & err.description & "<br/>"
if err.number = 0 then
Set objASPjpeg = nothing
ImageComponent = "ASPJPEG"
else
'Check for AspImage
err.clear
Set AspImage = Server.CreateObject("AspImage.Image")
if err.number = 0 then
Set AspImage = nothing
ImageComponent = "ASPIMAGE"
else
'Check for AspSmart
err.clear
Set AspSmart = Server.CreateObject("aspSmartImage.SmartImage")
if err.number = 0 then
Set AspSmartImage = nothing
ImageComponent = "ASPSMART"
else
'Check for ImgWriter
err.clear
Set objImgWriter = Server.CreateObject("softartisans.ImageGen")
if err.number = 0 then
Set objImgWriter = nothing
ImageComponent = "IMGWRITER"
else
'Check for AspThumb
err.clear
Set objAspThumb = Server.CreateObject("briz.AspThumb")
if err.number = 0 then
Set objAspThumb = nothing
ImageComponent = "ASPTHUMB"
else
if DetectDotNetComponent(DotNetResize) <> "" then
ImageComponent = "ASP.NET"
end if
end if
end if
end if
end if
end if
end if
end if
on error goto 0
Application("ResizeAutoComponent112") = ImageComponent
else
'use application var
ImageComponent = Application("ResizeAutoComponent112")
end if
if ImageComponent = "" then
Response.Write "SMART IMAGE PROCESSOR ERROR: Can not detect any Resize Server Components!<br/>Please install at least the supplied server component. Read the online docs for more info."
Response.End
end if

DetectImageComponent = ImageComponent
end function

function DetectDotNetComponent(DotNetResize)
Dim DotNetImageComponent, ResizeComUrl, LastPath
if Application("ResizeDotNetComponent112") = "" then
DotNetImageComponent = ""
ResizeComUrl = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("PATH_INFO")
LastPath = InStrRev(ResizeComUrl,"/")
if LastPath > 0 then
ResizeComUrl = left(ResizeComUrl,Lastpath)
end if
ResizeComUrl = ResizeComUrl & DotNetResize
'Response.Write ResizeComUrl & "<br/>"

'Check for ASP.NET 1
if DotNetCheckComponent("Msxml2.ServerXMLHTTP.3.0", ResizeComUrl) = true then
DotNetImageComponent = "DOTNET1"
else
if DotNetCheckComponent("Msxml2.ServerXMLHTTP", ResizeComUrl) = true then
DotNetImageComponent = "DOTNET2"
else
if DotNetCheckComponent("Microsoft.XMLHTTP", ResizeComUrl) = true then
DotNetImageComponent = "DOTNET3"
else
end if
end if
end if
on error goto 0

This is the result when I check the status of the component:
Smart Image Processor Components
Detecting Components:

NOT FOUND: Smart Image Processor Own component
NOT FOUND: ASPJpeg Server Component
NOT FOUND: ASPImage Server Component
NOT FOUND: ASPSmartImage Server Component
NOT FOUND: ImgWriter Server Component
NOT FOUND: AspThumb Server Component
FOUND: ASP.NET Msxml2.ServerXMLHTTP

Smart Image Processor can be fully used on this server!
****

Obviosly it is using the Msxml2.ServerXMLHTTP in one way or another.. dang I'd like to know how to configure it.. Going to have a look with Goggle :)

//MrFlashy

[CardboardHammer]

Before the "objHttp.Send", put "response.write(ResizeComUrl)" and see what you get on each side of the router. They SHOULD match. If they don't, then whatever's causing that is almost certainly the problem.