<%if LCase(Request.Form("password")) = LCase(password) then Session("login")="yes" elseif Request.QueryString("logout") = 1 then Session("login")="" end if%> <%if Session("login") = "" then %> Password:

<% else Dim connection, rs Set connection=Server.Createobject("Adodb.Connection") connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & database if Request.QueryString("id") = "" then Set rs = connection.Execute("SELECT * FROM download")%> Click on a file to remove it from the database:

<%do until rs.EOF%> "><%=rs("fldURL")%>
<% rs.movenext Loop %>

Logout <%Else Set rs = connection.Execute("DELETE * FROM download where fldID = " & cInt(Request.QueryString("id")) & "") Response.Redirect "download_admin.asp" End if End if %>