Ho modificato così per quel che riguarda la gestione dell'errore.
codice:
vc_url=request.QueryString("descurll")
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
on error resume next
xmlhttp.open "GET", vc_url, false
xmlhttp.send ""
status = xmlhttp.status
if err.number <> 0 or status <> 200 then
if status = 404 then
%>
<script language="JavaScript">
alert('ATTENZIONE. La pagina web inserita è inesistente oppure non è stato inserito correttamente. Controllare la presenza dei caratteri http:// iniziali ed eventuali errori durante la digitazione.');
this.close();
</script>
<%
else if status >= 401 and status < 402 then
%>
<script language="JavaScript">
alert('ATTENZIONE. Attenzione, non è possibile accedere all indirizzo web indicato per mancanza di autorizzazione');
this.close();
</script>
<%
else if status >= 500 and status <= 600 then
%>
<script language="JavaScript">
alert('ATTENZIONE. Internal Server Error per indirizzo web indicato');
this.close();
</script>
<%
else
%>
<script language="JavaScript">
alert('ATTENZIONE. Indirizzo web inserito è inesistente oppure presenta un certificato https scaduto. Verificare eventuali altri indirizzi web associati a questo ente');
this.close();
</script>
<%
end if
end if
end if
else
pagestatus = xmlhttp.Status
Set xmlhttp = Nothing
If CInt(pagestatus) = 200 Then
FileExist = true
response.write "Il file esiste"
%>
<script language="JavaScript">
this.close();
</script>
<%
end if
' Response.Write "Server is up and URL is available."
end if
set xmlhttp = nothing
%>
Ora devo capire se è possibile comunque bypassare l'errore del certificato scaduto https