Tema: ayuda web
Ver Mensaje Individual
  #4 (permalink)  
Antiguo 17/12/2003, 14:34
dover
 
Fecha de Ingreso: septiembre-2003
Ubicación: Roma e Firenze
Mensajes: 68
Antigüedad: 20 años, 6 meses
Puntos: 1
A ver si esto puede ayudarrte:
Ciao,
dover

<html>
<head>

</head>
<title></title>
<body topmargin=0 leftmargin=0>


<%



if request("mode")="check" then

'Indirizzo del sito
StrURL = request("url")
Set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")

On Error Resume Next
objXMLHTTP.Open "GET", StrURL, false
objXMLHTTP.Send

statuscode = objXMLHTTP.Status
Set objxml = Nothing
if CInt(statuscode) = 12007 then
Response.write "<table width=520 height=250 cellspacing=0 cellpadding=0>"
Response.write "<tr><td class='testo' background='../pics/sf_dominio.jpg' align=center valign=middle>"
Response.write "<font class='testobig'>Il dominio è libero!</font><p>"
Response.write "Puoi registrare <a href='#' onFocus='this.blur()'class='link3'>qui </a>"
Response.write "il Tuo dominio<br> dopo aver letto le condizioni che regolano<br>"
Response.write "il rapporto economico <br>"
Response.write " tra la filelife ed i Clienti<p>"
Response.write "<a href='pagina3.asp' class='link3' onFocus='this.blur()'>back</a><br>"
Response.write "</td></tr>"
Response.write "</table>"
elseif request("url")="http://" or request("url")=""then
Response.write "<table width=520 height=250 cellspacing=0 cellpadding=0>"
Response.write "<tr><td class='testo' background='../pics/sf_dominio.jpg' align=center valign=middle>"
Response.write "<font class='testobig'>Attenzione, inserire un nome di dominio</font><br>"
Response.write "<br>"

%>
<form action="pagina3.asp?mode=check" method="post" name="dominio">
<INPUT type="text" id=text1 name="url" value="http://" size=40 class="testo2"><p>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT type="submit" value="RICERCA" id=submit1 name=submit1
style="font-size: xx-small; font-family: arial; color:#000000; background-color:
#E1E1E1; border-color:#f3f3f3 ;" >
</form>

<%


Response.write "</td></tr>"
Response.write "</table>"
elseif request("mode")<>"" then
Response.write "<table width=520 height=250 cellspacing=0 cellpadding=0>"
Response.write "<tr><td class='testo' background='../pics/sf_dominio.jpg' align=center valign=middle>"
Response.write "<font class='testobig'>Siamo spiacenti,</font><br>"
Response.write "<font class='testobig'>Il dominio"
Response.write " cercato è già stato registrato.</font><p>"
Response.write "<a href='pagina3.asp'class='link2'>EFFETTUA UNA NUOVA RICERCA</a>"
Response.write "</td></tr>"
Response.write "</table>"
end if
else
%>
<table border=0 width=520 height=250 cellspacing=0 cellpadding=0 align=center>
<tr><td background="../pics/sf_dominio.jpg" align=center valign=middle>
<font class="testobig">VERIFICA LA DISPONIBILITA'&nbsp;DEL DOMINIO</font><br>
<font class="testo">
Inserire il nome di dominio da verificare, seguendo la sintassi</font><br>
<font class="testo2">www.nomedominio.estensione</font><br>
<form action="pagina3.asp?mode=check" method="post" name="dominio">
<INPUT type="text" id=text1 name="url" value="http://" size=40 class="testo2"><p>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT type="submit" value="RICERCA" id=submit1 name=submit1
style="font-size: xx-small; font-family: arial; color:#000000; background-color:
#E1E1E1; border-color:#f3f3f3 ;" >
</form>
</body>
</html>