|
From: Michael O. <Mic...@it...> - 2002-01-31 10:44:59
|
Hi=20
When I'm using this code below I'm getting an empty page.
<%
Dim oMan, Zone, Zones
Set oMan =3D CreateObject("ASPDns.ManageServer")=20
Set RRecord =3D CreateObject("ASPDns.RRecord")=20
Set Zones =3D CreateObject("ASPDns.Zones")=20
Zone =3D"Micro.com"
Response.write Zones(Zone).NS1
%>
In the Event log there is the below error message.
The VB Application identified by the event source logged this
Application DNS: Thread ID: 1600 ,Logged:=20
Failed using ASPDns.ManageServer -> ZoneEnumRecords method. Check
further Eventlog errors for details.
If I look in then source code for ManageServer.cls under ZoneEnumRecords
there is
vBuff =3D ExecuteCMD(Server & " /EnumRecords " & ZoneName
& " @ /child")
vMXBuff =3D ExecuteCMD(Server & " /EnumRecords " & ZoneName =
&
" @ /type MX")
The /Child does not give NS records
Anynody has the same problem?
GSA: And yes I'll install VB for troubleshooting ASPDNS
Thanks=20
Michael
|