<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny side 1</title>
</head>
<body>
<table border="0" width="100%" cellpadding="0" id="table1">
<tr>
<td><a href="default.asp?level=ip">IP</a></td>
<td><a href="default.asp?level=ip&sublevel=add">IP-Tilføj</a></td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<%if Request.QueryString("level") = "ip" then%>
<%if Request.QueryString("sublevel") = "" then%>
<%
dim Connection,SQLstringK,KRS
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db.mdb")
SQLstringK="SELECT * FROM IPList ORDER by dato desc"
SET KRS=Connection.Execute(SQLstringK)
%><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="33" align="center">
<b>
<font face="Verdana" size="2">Ret</font></b></td>
<td width="32" align="center">
<b><font face="Verdana">id</font></b></td>
<td width="182">
<b><font face="Verdana">Navn</font></b></td>
<td width="169">
<b><font face="Verdana">IP</font></b></td>
<td width="71" align="center">
<b>
<font color="#000000" face="Verdana" size="2">Slet</font></b></td>
</tr>
<%
while not KRS.EOF%><font size="2"> </font>
<tr>
<td width="33" nowrap align="center" height="8">
<font face="Verdana" size="2">
<a href="default.asp?level=ip&sublevel=ret&id=<%=KRS("id")%>">Ret</a></font></td>
<td width="32" nowrap align="center" height="8"><%=KRS("id")%>
</td>
<td width="182" nowrap height="8"><font color="#000000"><%=KRS("Navn")%><font face="Verdana" size="2">
</font> </font></td>
<td width="169" nowrap height="8"><font color="#000000"><%=KRS("IP")%></font></td>
<td width="71" align="center" height="8">
<p align="center"><font face="Verdana" size="2"><font color="#000000">
<a href="default.asp?level=ip&sublevel=del&id=<%=KRS("id")%>">Slet</a></font>
</font>
</td>
</tr>
<%
KRS.MoveNext
wend
KRS.close
set KRS =nothing
connection.close
set connection = nothing
%> </table>
<%end if%>
<%if Request.QueryString("sublevel") = "del" then%>
<%
dim connection1,id,SQLstringK1
Set Connection1 = Server.CreateObject("ADODB.Connection")
Connection1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db.mdb")
id = Trim(Request.QueryString("id"))
SQLstringK1="DELETE FROM IPList WHERE id="&id
Connection1.Execute(SQLstringK1)
connection1.close
set connection1= nothing
response.buffer=true
response.clear
response.redirect "default.asp?level=ip"
response.end
%>
<%end if%>
<%if Request.QueryString("sublevel") = "ret" then%>
<%Dim ID1,opslag
id1=Request.QueryString("ID")
Set Connection3 = Server.CreateObject("ADODB.Connection")
Connection3.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../db.mdb")
if request.querystring("knap")<>"Ret" then
SQLstringK3="SELECT * FROM IPList WHERE id="&id1
SET opslag=Connection3.Execute(SQLstringK3)
else
SQLstringK3="UPDATE IPList SET Navn='"&Request.QueryString("Navn")&"', IP='"&Request.QueryString("IP")&"' WHERE id="&id1
Connection3.Execute(SQLstringK3)
response.buffer=true
response.clear
response.redirect "default.asp?level=ip"
response.end
end if
%>
<table>
<tr>
<td colspan="6" width="980"><center><%if not opslag.eof then%>
<form method="GET" action="<%=request.servervariables("SCRIPT_NAME")%>">
<div align="center" style="width: 140; height: 40">
<br>
<table border="0" cellspacing="0" cellpadding="3" class="bottom" style="border-collapse: collapse" bordercolor="#111111" width="426">
<tr>
<td width="232"><span class="rot"><font face="tahoma">
link (uden http://)</font></span><font size="2" face="tahoma">
</font></td>
<td width="180"><font size="2" face="tahoma">
<input type="text" name="Navn" maxlength="100" class="bottom" value="<%=OPSLAG("Navn")%>" size="45" style="color: #000000; font-size: 10pt; font-family: Tahoma; border: 1px solid #461525; background-color: #FFFFFF"></font></td>
</tr>
<tr>
<td width="232"><font size="2" face="tahoma"><span class="rot">
beskrivelse </span></font></td>
<td width="180"><font size="2" face="tahoma"><span class="rot">
<input type="text" name="IP" maxlength="100" class="bottom" size="45" value="<%=OPSLAG("IP")%>" style="color: #000000; font-family: Tahoma; font-size: 10pt; border: 1px solid #461525; background-color: #FFFFFF"></span></font></td>
</tr>
</table>
</div>
<INPUT type="hidden" name="id" value="<%=opslag("id")%>">
<p>
<input type="submit" value="Ret" name="knap" style="font-family: Tahoma; font-size: 10pt; color: #000000; font-weight: bold; border: 1px solid #461525; background-color: #FFFFFF">
<input type="reset" value="Nulstil" name="B2" style="font-size: 10pt; font-family: Tahoma; font-weight: bold; color: #000000; border: 1px solid #461525; background-color: #FFFFFF"></p>
</form>
</center></td>
</tr>
</table>
<%end if%>
<%if Request.QueryString("sublevel") = "add" then%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN
strSQL = "Select * from IPList"
set rscount = conn.execute("select count(id) as antal from IPList")
antal = rscount("antal")
set rscount = nothing
%> <table>
<tr>
<td colspan="6" align="center" width="980">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2">
<tr>
<td valign="top"><% mode = request("mode") %>
<b> <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From IPList"
rs.Open strSQL, Conn
%> <% if mode ="" then %>
<form action="default.asp?level=ip&sublevel=add&mode=tilfojet" method="post">
<div align="center" style="width: 439; height: 102">
<center>
<br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber3" width="439">
<tr>
<td width="253">Navn</td>
<td width="186">
<input type="text" name="NAVN" maxlength="100" class="bottom" size="45" style="border:1px solid #461525; font-size: 10pt; font-family: Tahoma"></td>
</tr>
<tr>
<font face="tahoma,helvetica" size="1">
<td width="253"><b>IP:</b></td>
<td width="186">
<input type="text" name="IP" maxlength="100" class="bottom" size="45" style="border:1px solid #461525; font-size: 10pt; font-family: tahoma"></td>
</font>
</tr>
<tr>
<td width="253" align="center"></td>
<td width="186" align="center">
<p align="left">
<input type="submit" value="sæt til" name="Submit" style="border:1px solid #461525; font-size: 10pt; font-family: Tahoma; font-weight: bold; color:#000000; background-color:#FFFFFF">
<input type="reset" value="slet alt" name="Reset" style="border:1px solid #461525; font-size: 10pt; font-family: Tahoma; font-weight: bold; color:#000000; background-color:#FFFFFF"></td>
</tr>
</table>
<br><br><br>
</center>
</div>
</form><%end if%>
<% if mode ="tilfojet" then
rs.AddNew
rs("Navn") = Request.form("Navn")
rs("IP") = Request.form("IP")
rs("dato") = date()
rs("kl") = time()
rs.Update
%><% response.redirect("default.asp?level=ip") %>
<% end if %></td>
</tr>
</table></td>
</tr>
</table>
<%end if%>
<%end if%><%end if%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
