Hente database

Nogen der kan lave disse koder om til at den kan hente dem fra en anden hjemmeside:

<% if mode = "tilfoej?ip" then %><%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("http://raunsbaek.dk/ban/DIN_DATABASE.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From ban"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

  rs.AddNew
  rs("ip") = Request.form("ip")
  rs.Update
  Response.Write "<meta HTTP-EQUIV=""REFRESH"" CONTENT=""00000000; URL=tilfoej_ip.asp"">"

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%>
<% end if %>

Så kommer der en mere:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("http://raunsbaek.dk/ban/DIN_DATABASE.mdb")
strSQL = "select * from ban ORDER BY id"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "Der er ingen brugere i databasen."
else
Do Until rs.EOF
%>

<a href="sletbrugeren.asp?id=<%=RS("id")%>" title="Slet denne ip"><B><%=Server.HtmlEncode(rs("ip"))%></B></a><br>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

Der kommer lige en mere:

<%
Response.Buffer = True
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("http://raunsbaek.dk/ban/DIN_DATABASE.mdb")

strSQL = "DELETE * FROM ban WHERE id=" & Request.QueryString("id")
Conn.Execute (strSQL)

Conn.Close
Set Conn = nothing

Response.Redirect "tilfoej_ip.asp"
%>

Lige en sidste:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("http://raunsbaek.dk/ban/DIN_DATABASE.mdb")
strSQL = "select * from ban ORDER BY id"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write "Der er ingen brugere i databasen."
else
Do Until rs.EOF
%>

<a href="sletbrugeren.asp?id=<%=RS("id")%>" title="Slet denne ip"><B><%=Server.HtmlEncode(rs("brugernavn"))%></B></a><br>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>