Hjææælp:!
[.....]
> Nu er det lidt svært at gætte hvilken linie der er linie 70
Det var min End if til sidst ;
[....]
Nu har jeg igen igen en fejl....!!!
søger på et tine.dk domæne
Socket.TCP error '8000ffff'
Error while processing Socket opperation: Can't assign requested address
/tine/whois.asp, line 48
Jeg har skrevet linie 48 ud for den aktuelle linie
Hvad med min objSocket.host = den variabel går igen ved begge udbyder har
det noget at sige??
<%option explicit
dim strDomain
dim pos
dim strDom
dim objSocket
dim strHost
dim strMatch
dim tmpBuffer
dim domaneArray
strDomain= LCase(Trim(Request.Form("Domain"))) %>
<html>
<head><title></title>
</head>
<body>
<form method="POST" action="whois.asp">
<br />
<P>
<h3 align="center">Test om domænenavnet er ledigt<br />
<input type="text" id="domain" name="Domain" size="30" value="<% =strDomain
%>" />
<input type="submit" id="test" name="test" value=" indtast nyt domæne navn"
/>
<br />
</h3>
</P>
</form>
<%
If Len(strDomain) > 0 Then
' Finder den sidste forekomst af .
domaneArray = split(strDomain, ".")
Set objSocket = Server.CreateObject("Socket.TCP")
Select Case DomaneArray(ubound(domaneArray)-1)
Case "com", "net", "org", "edu":
strHost = "Internic"
objSocket.Host = "rs.internic.net:43"
strMatch = "No match"
Case "dk":
strHost = "RIPE"
objSocket.Host = "whois.ripe.net:43"
strMatch = "% No entries found"
End Select
Linie 48 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
%>
</body>
</html>
Mange Hilsner
Tine