Since I have installed Vista I have not been able to get MSN Messanger working I have shouted screamed, reinstalled, uninstalled, google, yahooed, Msn and generally scratched my head. It turned into my pet project everytime I got bored with a bit of coding to have another go. Well today has not been the best of days but I thought I would have another crack at it. Last hour I have destroyed my network and reinstalled it to still no available so I thought I would have another crack at Google. I found this page today .

http://www.vista64.net/forums/vista-general/26735-msn-messenger-wont-login-81000306-a.html

Which had this solution:
Try this:-
Click start
- Type: cmd
- Right-click cmd.exe when it appears under Applications
- Click Run As Administrator
- Type the following: netsh int tcp set global autotuninglevel=disabled
- Press enter
- Restart your computer

.. It worked a treat. If I ever meet David McGown or the people who run vista64.net I will buy them a beer. Horrah.
Only one more thing left to conquer now on vista which is burning a CD... ;-)

So lately I have been working in old skool ASP. I hit the problem of sending a large exe file to a client the file size was 30 Meg. A couple of searches all turned to this page.

http://www.fogcreek.com/FogBugz/KB/errors/ResponseBufferLimitExceed.html

So I phoned my hosting company.. who promptly said no to my request to change the AspBufferingLimit . Not suprising this is the limit that stops a infinite loop from consuming the server.

So a few more google pages later and bit of hacking I have hopefully a working solution togther.

Hopefully this might be useful for someone in the future.



Response.AddHeader "Content-Disposition", "attachment; filename=mylargedownload.exe"
Response.AddHeader "Content-Transfer-Encoding","binary"
Response.ContentType = "application/octet-stream"
Const adTypeBinary = 1
Dim strFilePath
strFilePath = Server.Mappath("/download/mylargedownload.exe")
'This is the path to the file on disk.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
'1 MB
clChunkSize = 1048576
Dim i
For i = 0 To objStream.Size \ clChunkSize
Response.BinaryWrite objStream.Read(clChunkSize)
Response.Flush
Next
objStream.close
Set objStream = Nothing

Happy easter to everyone. ;-)

James

The enterprise library 3 has now support for .NET 3

http://msdn2.microsoft.com/en-us/library/aa480453.aspx