| Jorge Luis Ribeiro 2006-06-07, 7:22 pm |
| Hi.
I'm running SBS 2003 and ISA 2004 and trying to run an ASP with webdav PUT
method but I'm getting an ISA error message: "SSL-tunnel - Failed connection
attempt"
Code follows bellow:
<% @language="VBScript"%>
<%
on error resume next
strHTMLContent = "Testing send mail"
Set objXMLPoster = CreateObject("MSXML2.XMLHTTP.3.0")
strWebDavXMLRequest = ""
strWebDavXMLRequest = strWebDavXMLRequest & "From: user1@test.com.br" &
chr(13) & chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "To: user2@test.com.br" &
chr(13) & chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "Subject: Teste" & chr(13) &
chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "Date: " & Now & chr(13)
& chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "X-Mailer: Syscorp" & chr(13) &
chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "MIME-Version: 1.0" & chr(13) &
chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "Content-Type: text/html;" &
chr(13) & chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "Charset = ""ISO-8859-1""" &
chr(13) & chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "Encoding = ""ISO-8859-1""" &
chr(13) & chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & "Content-Transfer-Encoding:
7bit" & chr(13) & chr(10) & chr(13) & chr(10)
strWebDavXMLRequest = strWebDavXMLRequest & strHTMLContent
objXMLPoster.open "PUT", "https://www.test.com.br/exchange/user1",
False, "user1", "password"
objXMLPoster.setRequestHeader "Content-Type", "message/rfc822"
objXMLPoster.send strWebDavXMLRequest
if err <> 0 then
response.write
" ****************************************
**********************"
response.write "<BR>"
response.write time() & ": [" & cstr(err.number) & "] " & err.description
response.write "<BR>"
response.write objXMLPoster.responseText
response.write "<BR>"
response.write
" ****************************************
**********************"
response.end
end if
response.write
" ****************************************
**********************"
response.write "<BR>"
response.write time() & ": " & cstr(objXMLPoster.Status)
response.write "<BR>"
response.write objXMLPoster.status
response.write "<BR>"
response.write
" ****************************************
**********************"
%>
How can i correct the ISA configuration?
Please help me!!!
Jorge
|