Classic ASP
Classic ASP
RDAP Domain Lookup using rdap.org
See more HTTP Misc Examples
Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = Server.CreateObject("Chilkat.Http")
' Send HTTP requests to https://rdap.org/<type>/<object>, where <type> is the object type (one of domain, ip, autnum, entity etc)
' and <object> is the object identifier (eg example.com, 192.168.0.1, 64496, etc).
' For example, here's a lookup for "oracle.com"
set sbResponse = Server.CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://rdap.org/domain/oracle.com",sbResponse)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
statusCode = http.LastStatus
If (statusCode <> 200) Then
Response.Write "<pre>" & Server.HTMLEncode( "Error response:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sbResponse.GetAsString()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "status code: " & statusCode) & "</pre>"
Response.End
End If
' Load the JSON response and examine..
' Use this online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.LoadSb(sbResponse)
json.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"
' Here's a sample response, and the parsing code generated from the above online tool follows..
' {
' "objectClassName": "domain",
' "handle": "607513_DOMAIN_COM-VRSN",
' "ldhName": "ORACLE.COM",
' "links": [
' {
' "value": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
' "rel": "self",
' "href": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
' "type": "application\/rdap+json"
' },
' {
' "value": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
' "rel": "related",
' "href": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
' "type": "application\/rdap+json"
' }
' ],
' "status": [
' "client delete prohibited",
' "client transfer prohibited",
' "client update prohibited",
' "server delete prohibited",
' "server transfer prohibited",
' "server update prohibited"
' ],
' "entities": [
' {
' "objectClassName": "entity",
' "handle": "292",
' "roles": [
' "registrar"
' ],
' "publicIds": [
' {
' "type": "IANA Registrar ID",
' "identifier": "292"
' }
' ],
' "vcardArray": [
' "vcard",
' [
' [
' "version",
' {},
' "text",
' "4.0"
' ],
' [
' "fn",
' {},
' "text",
' "MarkMonitor Inc."
' ]
' ]
' ],
' "entities": [
' {
' "objectClassName": "entity",
' "roles": [
' "abuse"
' ],
' "vcardArray": [
' "vcard",
' [
' [
' "version",
' {},
' "text",
' "4.0"
' ],
' [
' "fn",
' {},
' "text",
' ""
' ],
' [
' "tel",
' {
' "type": "voice"
' },
' "uri",
' "tel:+1.2086851750"
' ],
' [
' "email",
' {},
' "text",
' "abusecomplaints@markmonitor.com"
' ]
' ]
' ]
' }
' ]
' }
' ],
' "events": [
' {
' "eventAction": "registration",
' "eventDate": "1988-12-02T05:00:00Z"
' },
' {
' "eventAction": "expiration",
' "eventDate": "2025-12-01T05:00:00Z"
' },
' {
' "eventAction": "last changed",
' "eventDate": "2024-10-30T09:32:52Z"
' },
' {
' "eventAction": "last update of RDAP database",
' "eventDate": "2024-11-26T14:11:14Z"
' }
' ],
' "secureDNS": {
' "delegationSigned": false
' },
' "nameservers": [
' {
' "objectClassName": "nameserver",
' "ldhName": "A1-160.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "A11-66.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "A13-65.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "A18-67.AKAM.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS1.P201.DNS.ORACLECLOUD.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS2.P201.DNS.ORACLECLOUD.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS3.P201.DNS.ORACLECLOUD.NET"
' },
' {
' "objectClassName": "nameserver",
' "ldhName": "NS4.P201.DNS.ORACLECLOUD.NET"
' }
' ],
' "rdapConformance": [
' "rdap_level_0",
' "icann_rdap_technical_implementation_guide_0",
' "icann_rdap_response_profile_0"
' ],
' "notices": [
' {
' "title": "Terms of Use",
' "description": [
' "Service subject to Terms of Use."
' ],
' "links": [
' {
' "href": "https:\/\/www.verisign.com\/domain-names\/registration-data-access-protocol\/terms-service\/index.xhtml",
' "type": "text\/html"
' }
' ]
' },
' {
' "title": "Status Codes",
' "description": [
' "For more information on domain status codes, please visit https:\/\/icann.org\/epp"
' ],
' "links": [
' {
' "href": "https:\/\/icann.org\/epp",
' "type": "text\/html"
' }
' ]
' },
' {
' "title": "RDDS Inaccuracy Complaint Form",
' "description": [
' "URL of the ICANN RDDS Inaccuracy Complaint Form: https:\/\/icann.org\/wicf"
' ],
' "links": [
' {
' "href": "https:\/\/icann.org\/wicf",
' "type": "text\/html"
' }
' ]
' }
' ]
' }
set json1 = Server.CreateObject("Chilkat.JsonObject")
objectClassName = json.StringOf("objectClassName")
handle = json.StringOf("handle")
ldhName = json.StringOf("ldhName")
DelegationSigned = json.BoolOf("secureDNS.delegationSigned")
i = 0
count_i = json.SizeOfArray("links")
Do While i < count_i
json.I = i
value = json.StringOf("links[i].value")
rel = json.StringOf("links[i].rel")
href = json.StringOf("links[i].href")
v_type = json.StringOf("links[i].type")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("status")
Do While i < count_i
json.I = i
strVal = json.StringOf("status[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("entities")
Do While i < count_i
json.I = i
objectClassName = json.StringOf("entities[i].objectClassName")
handle = json.StringOf("entities[i].handle")
j = 0
count_j = json.SizeOfArray("entities[i].roles")
Do While j < count_j
json.J = j
strVal = json.StringOf("entities[i].roles[j]")
j = j + 1
Loop
j = 0
count_j = json.SizeOfArray("entities[i].publicIds")
Do While j < count_j
json.J = j
v_type = json.StringOf("entities[i].publicIds[j].type")
identifier = json.StringOf("entities[i].publicIds[j].identifier")
j = j + 1
Loop
j = 0
count_j = json.SizeOfArray("entities[i].vcardArray")
Do While j < count_j
json.J = j
strVal = json.StringOf("entities[i].vcardArray[j]")
k = 0
count_k = json.SizeOfArray("entities[i].vcardArray[j]")
Do While k < count_k
json.K = k
success = json.ObjectOf2("entities[i].vcardArray[j][k]",json1)
i1 = 0
count_i1 = json1.SizeOfArray("")
Do While i1 < count_i1
json1.I = i1
strVal = json1.StringOf("[i]")
i1 = i1 + 1
Loop
k = k + 1
Loop
j = j + 1
Loop
j = 0
count_j = json.SizeOfArray("entities[i].entities")
Do While j < count_j
json.J = j
objectClassName = json.StringOf("entities[i].entities[j].objectClassName")
k = 0
count_k = json.SizeOfArray("entities[i].entities[j].roles")
Do While k < count_k
json.K = k
strVal = json.StringOf("entities[i].entities[j].roles[k]")
k = k + 1
Loop
k = 0
count_k = json.SizeOfArray("entities[i].entities[j].vcardArray")
Do While k < count_k
json.K = k
strVal = json.StringOf("entities[i].entities[j].vcardArray[k]")
success = json.ObjectOf2("entities[i].entities[j].vcardArray[k]",json1)
i1 = 0
count_i1 = json1.SizeOfArray("")
Do While i1 < count_i1
json1.I = i1
j1 = 0
count_j1 = json1.SizeOfArray("[i]")
Do While j1 < count_j1
json1.J = j1
strVal = json1.StringOf("[i][j]")
j1 = j1 + 1
Loop
i1 = i1 + 1
Loop
k = k + 1
Loop
j = j + 1
Loop
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("events")
Do While i < count_i
json.I = i
eventAction = json.StringOf("events[i].eventAction")
eventDate = json.StringOf("events[i].eventDate")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("nameservers")
Do While i < count_i
json.I = i
objectClassName = json.StringOf("nameservers[i].objectClassName")
ldhName = json.StringOf("nameservers[i].ldhName")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("rdapConformance")
Do While i < count_i
json.I = i
strVal = json.StringOf("rdapConformance[i]")
i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("notices")
Do While i < count_i
json.I = i
title = json.StringOf("notices[i].title")
j = 0
count_j = json.SizeOfArray("notices[i].description")
Do While j < count_j
json.J = j
strVal = json.StringOf("notices[i].description[j]")
j = j + 1
Loop
j = 0
count_j = json.SizeOfArray("notices[i].links")
Do While j < count_j
json.J = j
href = json.StringOf("notices[i].links[j].href")
v_type = json.StringOf("notices[i].links[j].type")
j = j + 1
Loop
i = i + 1
Loop
%>
</body>
</html>