Directamente con asp no estoy seguro
pero intenta esto
FUNCTION CheckInternetConnection
LPARAMETERS tcWebAddress
DECLARE Integer InternetCheckConnection ;
IN WININET.DLL ;
String Url, Long dwFlags, Long Reserved
IF InternetCheckConnection(tcWebAddress,1,0) # 0
RETURN .T.
ELSE
RETURN .F.
ENDIF
también lo puedes hacer con un dll que llame a wininet.dll
'Declaración
Public Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
'Función para verificar la URL
Public Function Validahttp(URL As String) As Integer
Validahttp = 0
'Verifica si existe una direccion de http de internet
If InternetCheckConnection(URL, FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
Validahttp = 0
Else
Validahttp = 1
End If
End Function
Para mayor información consulta estas paginas
http://www.lawebdejm.com/prog/cpp/wininetintro.html http://www.mentalis.org/