Problem med domænetester script
Jeg har hentet et script fra activeserverpages.dk og installeret w3sockets komponenten fra dimac, men når jeg kører scriptet får jeg fejlen:Serverobjekt, ASP 0178 (0x80070005)
Kaldet til Server.CreateObject blev ikke udført under kontrol af tilladelser. Adgang til dette objekt er nægtet.
Scriptet:
<% 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="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
' 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.ripe.net:43"
strMatch = "No entries found for the selected source"
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>
