Domtst....

Comment...
Det skal siges at i domaintest.asp, får man ALLE informationer fra RIPE.

Altså rettighederne...
plus, man får beskeden om domænet er ledigt eller optaget...


<//morpheus\\>

<form method="GET" action="whois.asp">

..eller jeg forstår ikke helt hvad du mener.. ?

..men hvofor skal det være i QueryString ?

mit>>> Så kan man selv slå det op...

Hvis en bruger ikke gider gå ind på siden og så'n...

så er det da nemmere at skrive:
www.domain.dk/domaintest.asp?domain=domain.dk

Og så har man det hele på éngang ! :o)

<//morpheus\\>

Det lyder fornuftigt ;-)
..men så burde det da virke, som jeg skrev i går

<form method="GET" action="whois.asp">

..altså ændre method til GET...

Oki...

Skal jeg så GET'te den fra domaintest.asp ?

Or what ?

hmm..jeg har måske misfårstået noget...
Den fil du har listet hedder whois.asp..men denne fil connecter også til RIPE...

..men hvad er domaintest.asp så ?..

Kære ven,

Gider du ikke lige skrive noget kode af en eller anden art, som jeg kan bruge til noget ?

Med venlig hilsen
<//morpheus\\>

Jeg har lavet den om nu...

Du kan prøve den på http://d-net.dk/whois.asp

Men der er dog en lille fejl...Der kommer ikke noget resultat efter søgningen !

<//morpheus\\>

dam'n...WRONG !

Den rigtige adresse er...
http://d-net.dk/dom/whoois.asp

<//morpheus\\>

osse forkert...

http://d-net.dk/dom/whois.asp

hmmm..jeg kan ikke komme ind på den ?

sæ'føli kan jeg skrive noget kode, men jeg prøver jo at finde ud af, hvad det egentligt er du skal bruge...
Hvis spørgemåden er  domaintest.asp?domain=domain.dk
...Hvordan hænger det sammen med det kode du har postet ?...Du skriver, at den postede kode er filen whois.asp
Efter hvad jeg lige umiddelbart kan se, så har du både inputfeltet og koden til at connecte til RIPE på denne side ?

Ok! Vi prøver lige igen....

Min fil: whois.asp
- I denne skal der kunne laves en forespørgsel...

whois.asp?domain=d-net.dk

http://www.d-net.dk/dom/whois.asp

Koden ser nu sådan ud....
--------------
<% strDomain = Trim(Request.Form("domain")) %>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>

<p><b>Domæne tester</b></p>

<form method="GET" action="whois.asp">
<p><input type="text" name="domain" size="30" value="<%=strdomain%>"> <input type="submit" value="Test" name="Test"></p>
</form>

<%
If Len(strDomain) > 0 Then
  Set objSocket = Server.CreateObject("Socket.TCP")
 
  objSocket.Host = "whois.ripe.net:43"
  objSocket.Open

  ' // Sender forespørgsel
  objSocket.SendLine(strdomain)

  ' // Venter på at disconnecte
  objSocket.WaitForDisconnect

  ' // Gemmer output i variablen tmpBuffer
  tmpBuffer = objSocket.Buffer
 
  If InStr(1, tmpBuffer, "% No entries found", 1) > 0 Then
    Response.Write "<p><font face='Verdana' size='2'>Domæne navnet <b><font color='red'>" & strDomain & "</b></font> er ledigt hos RIPE</font></p>"
  Else
    Response.Write "<p><font face='Verdana' size='2'>Desværre domænet <b><font color='red'>" & strDomain & "</font></b> er optaget.</font></p>"
  End If
  Response.Write "<hr><p><blockquote><pre>" & tmpBuffer & "</pre></blockquote></p>"
 
  objSocket.Close
End If
%>

</body></html>

Nu er mit problem så bare at jeg vil gerne udskrive rettighederne til domænet, men dette skal gøres å en anden side...

Skal jeg lave en variabel der hedder "TmpBuffer" ?

<//morpheus\\>

hmm...Der kommer lidt rigeligt meget data retur fra RIPE...jeg tror nok, at jeg ville vælge, at oprette forbindelsen en på den nye side; altså her hvor du vil ha' detaljerne udskrevet..

Ka' du ikke nedskrive en løsning her ?

<//morpheus\\>

hmmm...noget i den her stil....har ikke afprøvet, da jeg ikke har muligheden her :(



Filen Domiantest.asp:

<% strDomain = Trim(Request.Form("domain")) %>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>

<p><b>Domæne tester</b></p>

<form method="POST" action="Domaintest.asp">
<p><input type="text" name="domain" size="30" value="<%=strdomain%>"> <input type="submit" value="Test" name="Test"></p>
</form>

<%
If Len(strDomain) > 0 Then
  Set objSocket = Server.CreateObject("Socket.TCP")
 
  objSocket.Host = "whois.ripe.net:43"
  objSocket.Open

  ' // Sender forespørgsel
  objSocket.SendLine(strdomain)

  ' // Venter på at disconnecte
  objSocket.WaitForDisconnect

  ' // Gemmer output i variablen tmpBuffer
  tmpBuffer = objSocket.Buffer
 
  If InStr(1, tmpBuffer, "% No entries found", 1) > 0 Then
    Response.Write "<p><font face='Verdana' size='2'>Domæne navnet <b><font color='red'>" & strDomain & "</b></font> er ledigt hos RIPE</font></p>"
  Else
    Response.Write "<p><font face='Verdana' size='2'>Desværre domænet <b><font color='red'>" & strDomain & "</font></b> er optaget.</font></p>"%>
  <A HREF="whois.asp?Domain=<%=strDomain%>">Se detaljer</A>
  <%End If
 
  objSocket.Close
End If
%>

</body></html>


Filen whois.asp:


<% strDomain = Trim(Request("Domain")) %>
<html><head>
<title>Domæne tester med w3 Sockets</title><body>

<p><b>Domæne tester</b></p>


<%
If Len(strDomain) > 0 Then
  Set objSocket = Server.CreateObject("Socket.TCP")
 
  objSocket.Host = "whois.ripe.net:43"
  objSocket.Open

  ' // Sender forespørgsel
  objSocket.SendLine(strdomain)

  ' // Venter på at disconnecte
  objSocket.WaitForDisconnect

  ' // Gemmer output i variablen tmpBuffer
  tmpBuffer = objSocket.Buffer
 
    Response.Write "<hr><p><blockquote><pre>" & tmpBuffer & "</pre></blockquote></p>"
 
  objSocket.Close
End If
%>

</body></html>

Hvad ???

Det virker fint ! :o)

Mang tak for al hjælpen !

Her kommer 200 Point til dig ! :o)

<//morpheus\\>

Det er da i orden :)
..men hvorfor skrev du "hvad ???"...var der et problem ?

ligger den online nu, så jeg kan afprøve den ? ;-)

det gør den ka' jeg se...ser godt ud :)

Hvad...????

Ligesom: "Årrhhh hvad ?" = "Fedt!"