Domænetester med select menu .......
Når jeg søger på et domænenavn med dette script (domænetester W) via. et textfelt og en select menu til valg af .dk .com osv. for jeg følgende udtræk: \"domæne,.dk\" det skulle jo gerne være domæne.dk uden \",\" Er der nogen der har en løsning ? Det ville også være smart hvis man kun fik div. oplysninger om domænet ved fek.s. klik på en knap. Er der nogen der kan hjælpe !<% strDomain = LCase(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=\"test.asp\">
<p><input type=\"text\" name=\"Domain\" size=\"30\" value=\"<%=strDomain%>\">
<select name=\"Domain\">
<option selected>.dk
<option>.as
<option>.com
<option>.net
<option>.org
</select>
<input type=\"submit\" value=\"Test\" name=\"Test\"></p>
</form>
<%
If Len(strDomain) > 0 Then
\' Finder den sidste forekomst af .
pos = InStrRev(strDomain, \".\")
If pos > 0 Then
strDOM = Mid(strDomain, pos+1)
Set objSocket = Server.CreateObject(\"Socket.TCP\")
Select Case strDOM
Case \"com\", \"net\", \"org\", \"edu\"
strHost = \"Internic\"
objSocket.Host = \"rs.internic.net:43\"
strMatch = \"No match\"
Case Else
strHost = \"RIPE\"
objSocket.Host = \"whois.dk-hostmaster.dk:43\"
strMatch = \"% No entries found\"
End Select
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, strMatch, 1) > 0 Then
Response.Write \"<p><font color=blue>Domæne navnet <b>\" & strDomain & \"</b> er ledigt hos \" & strHost & \"</font></p>\"
Else
Response.Write \"<p>Desværre domænet <b>\" & strDomain & \"</b> er optaget.</p>\"
End If
Response.Write \"<hr><p><blockquote><pre>\" & tmpBuffer & \"</pre></blockquote></p>\"
objSocket.Close
Else
Response.Write \"<p>Du skal angive et gyldigt domænenavn</p>\"
End If
End If
%>
</body></html>
