error '80020009'
Hej jeg har en databse over en masse ipadresser her på arbejdet, men det er ligesom om at den ikke rigtig "mere" vil lave en liste over dem som er ledige inde for det enkelte range, og der er ikke blevet redigeret i den siden ruder konges tid.. det er faktisk lidt underligt.min kode ser sådan her ud:
<%@LANGUAGE="VBSCRIPT"%>
<% Response.Buffer = True %>
<!--#include file="Security.asp"-->
<!--#include file="forbindelse.asp" -->
<!--#include file="head.asp" -->
Current user: <b><%=Session("username")%></b> -
Current site: <b><%=Session("ipsite")%></b>-
status: <b><%=Session("arkstart")%></b>
<script type="text/javascript">
<!--
function swpdk_onchange(frmSelect) {
frmSelect.submit();
}
//-->
</script>
<%
Set site = Server.CreateObject ("ADODB.Recordset")
%>
<html>
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<link href="style.css" type=text/css rel=stylesheet>
</head>
<body>
<h1><b>IP Holes:</b></h1>
<form name="form1" method="get" action="simple2.asp">
<%
'check 10.150.0.0-10.150.255.0 (698368 - 698623)
Response.write("<h2>10.150.x.x</h2>")
site.Open "SELECT distinct dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256 as div FROM dbo.tbl_nodes where (dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256 >= 698368 and dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256<=698623) order by div", conn
'Dim counter, offset
counter=0
offset=698368
for counter = 0 to 255
nextip = clng(site("div"))
if (nextip-offset) = counter then
'adress in use
site.MoveNext
else
Response.write("10.150."&counter&".x is free!<BR>")
'Response.write "is free<BR>"
end if
if Site.EOF then counter = 255
next
site.Close
'check 10.160.0.0-10.160.255.0 (698880 - 699135)
Response.write("<h2>10.160.x.x</h2>")
site.Open "SELECT distinct dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256 as div FROM dbo.tbl_nodes where (dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256 >= 698880) order by div", conn
'Dim counter, offset
counter=0
offset=698880
for counter = 0 to 255
nextip = clng(site("div"))
if (nextip-offset) = counter then
'adress in use
site.MoveNext
else
Response.write("10.160."&counter&".x is free!<BR>")
'Response.write "is free<BR>"
end if
if Site.EOF then counter = 255
next
site.Close
'check 10.170.0.0-10.170.255.0 (699136 - 699391)
Response.write("<h2>10.170.x.x</h2>")
site.Open "SELECT distinct dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256 as div FROM dbo.tbl_nodes where (dbo.mtc_swpdkip(dbo.tbl_nodes.node_IP)/256 >= 699136) order by div", conn
'Dim counter, offset
counter=0
offset=699136
for counter = 0 to 255
nextip = clng(site("div"))
if (nextip-offset) = counter then
'adress in use
site.MoveNext
else
Response.write("10.170."&counter&".x is free!<BR>")
'Response.write "is free<BR>"
end if
if Site.EOF then counter = 255
next
%>
</form>
<input type=hidden name="currentuser" value="<%=Session("username")%>">
<input type="submit" name="Submit" value="Ok">
</body>
</html>
