|
| | Esplanade Parmentier
62600 Berck-sur-Mer
Tél : 03.21.09.21.21
Fax : 03.21.09.29.29 |
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
if Request.QueryString("action")="del" then
strSQL = "DELETE FROM Images where ImageID=" & Request.QueryString("ImageID")
adoCn.Execute strSQL
end if
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Images WHERE LoginName = '" & Request.QueryString("LoginName") & "' ORDER BY ImageID;"
%>
<%
adoRs.Open strSQL, adoCn, 3, 1, &H0001
%>
<%
If adoRs.RecordCount = 0 Then
%>
<% IF Session("LoginName") = "" Then %>
<% Response.redirect("Login.asp?Redirect="&strRedirectURL) %>
[ Identification ]
<%End IF%>
|
<% IF Session("AccessLevel")="Admin" Then%> <%End IF %>
<%
Response.End
Else
End IF
%>
<%
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
|