Fungsi yang sangat sederhana digunakan untuk mendeteksi apakah nama domain website dapat diakses secara normal. Fungsi urlChk(sUrl)
pada kesalahan lanjutkan berikutnya
Setel xmlHttp = Server.CreateObject(Microsoft.XMLHTTP)
xmlHttp.buka GET,sUrl,false
xmlHttp.kirim
jika xmlHttp.Status <> 200 maka
urlChk=salah
kalau tidak
urlChk=benar
berakhir jika
Fungsi Akhir
sUrl=http://www.vevb.com
jika urlChk(sUrl) maka
respon.write(sUrl&(dapat diakses secara normal))
kalau tidak
respon.write(sUrl&(tidak dapat diakses))
berakhir jika