|
<%
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 CatID = '" & Request.QueryString("CatID") & "' ORDER BY ImageID;"
%>
<%
adoRs.Open strSQL, adoCn, 3, 1, &H0001
%>
<%
Dim ShowPage
ShowPage = CInt(Request.QueryString("ShowPage"))
Dim PageSize
' nombre de produits a afficher sur la page
If Request.QueryString("HideDesc")="HideDesc" Then
PageSize = 50
Else
PageSize = 4
End IF
adoRs.PageSize = PageSize
Dim NumOfPages
NumOfPages = adoRs.PageCount
If ShowPage < 1 then
ShowPage = 1
ElseIf ShowPage > NumOfPages Then
ShowPage = NumOfPages
End If
%>
<%
Do While Not adoRs.EOF and not i = PageSize
%>
<%
i = i + 1
adoRs.MoveNext
Loop%>
<%
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
|