<% If Session("logged") <> "1" Then Response.Redirect("login.asp") End If %> <% Dim DateID, ConnectionString, cnUpd, recProducts, upl ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/db1.mdb") & ";" Set upl = Server.CreateObject("SoftArtisans.FileUp") If upl.Form("sended") = "1" Then Set cnUpd = Server.CreateObject("ADODB.Connection") cnUpd.Open ConnectionString Dim updated If Request.QueryString("del") = "1" And upl.Form("IDs") <> "" Then Set recProducts = Server.CreateObject("ADODB.Recordset") recProducts.Open "Select * From Products WHERE id IN (" & upl.Form("IDs") & ")", cnUpd, 1, 3 While Not recProducts.EOF If upl.Form("d" & recProducts("id")) <> "" Then If recProducts("ProductsImage") <> "" Then On Error Resume Next Set objFile = Server.CreateObject("SoftArtisans.FileManager") objFile.DeleteFile Server.MapPath("../") & "\" & recProducts("ProductsImage"), True Set objFile = Nothing End If recProducts.Delete recProducts.UpdateBatch updated = 1 End If recProducts.MoveNext Wend recProducts.Close Set recProducts = Nothing If updated = 1 Then Response.Write("") End If ElseIf Request.QueryString("upd") = "1" And upl.Form("IDs") <> "" Then Set recProducts = Server.CreateObject("ADODB.Recordset") recProducts.Open "Select * From Products WHERE id IN (" & upl.Form("IDs") & ")", cnUpd, 1, 3 While Not recProducts.EOF If upl.Form("up" & recProducts("id")) <> "" And Trim(upl.Form("name" & recProducts("id"))) <> "" Then recProducts("ProductsName") = Trim(upl.Form("name" & recProducts("id"))) recProducts("ProductsDescription") = Trim(upl.Form("desc" & recProducts("id"))) If upl.Form("img" & recProducts("id")).IsEmpty = False Then If recProducts("ProductsImage") <> "" Then On Error Resume Next Set objFile = Server.CreateObject("SoftArtisans.FileManager") objFile.DeleteFile Server.MapPath("../") & "\" & recProducts("ProductsImage"), True Set objFile = Nothing End If upl.Path = Server.MapPath("../images") Dim NewFileNameU NewFileNameU = "Pr" & recProducts("id") & _ Mid(upl.Form("img" & recProducts("id")).UserFilename, InstrRev(upl.Form("img" & recProducts("id")).UserFilename, "\") + 1) upl.Form("img" & recProducts("id")).SaveAs upl.Path & "\" & NewFileNameU recProducts("ProductsImage") = "images/" & NewFileNameU End If If upl.Form("show" & recProducts("id")) <> "" Then recProducts("ShowProducts") = True Else recProducts("ShowProducts") = False End If recProducts.UpdateBatch updated = 1 End If recProducts.MoveNext Wend recProducts.Close Set recProducts = Nothing If updated = 1 Then Response.Write("") End If ElseIf Request.QueryString("new") = "1" And Trim(upl.Form("txtName")) <> "" Then Dim OEMID Set recProducts = Server.CreateObject("ADODB.Recordset") recProducts.Open "Select * From Products WHERE id = 0", cnUpd, 1, 3 recProducts.AddNew recProducts("ProductsName") = Trim(upl.Form("txtName")) recProducts("ProductsDescription") = Trim(upl.Form("txtDesc")) If upl.Form("img").IsEmpty = False Then upl.Path = Server.MapPath("../images") Dim NewFileName NewFileName = "Pr" & recProducts("id") & _ Mid(upl.Form("img").UserFilename, InstrRev(upl.Form("img").UserFilename, "\") + 1) upl.Form("img").SaveAs upl.Path & "\" & NewFileName recProducts("ProductsImage") = "images/" & NewFileName End If If upl.Form("chkShow") <> "" Then recProducts("ShowProducts") = True Else recProducts("ShowProducts") = False End If recProducts.Update recProducts.Close Set recProducts = Nothing Response.Write("") End If cnUpd.Close Set cnUpd = Nothing Set recProducts = Nothing End If %> Here You can add, delete and update Products
<% Dim iPos, lgID, pageNumber Set cnUpd = Server.CreateObject("ADODB.Connection") cnUpd.Open ConnectionString Set recProducts = Server.CreateObject("ADODB.Recordset") recProducts.CursorLocation = 3 recProducts.Open "Select * From Products", cnUpd, adForwardOnly recProducts.PageSize = 10 If Request.QueryString("pg") <> "" Then pageNumber = CInt(Request.QueryString("pg")) ElseIf upl.Form <> "" Then pageNumber = CInt(upl.Form("pg")) Else pageNumber = 1 End If If Not recProducts.EOF Then recProducts.AbsolutePage = pageNumber End If If pageNumber > 1 And pageNumber < (recProducts.PageCount + 1) Then %> <% End If %> <% If pageNumber < recProducts.PageCount Then %> <% End If %> <% If Request.QueryString("pg") <> "" Then %> "> <% ElseIf upl.Form("pg") <> "" Then %> "> <% End If Dim IDs If Not recProducts.EOF Then Dim intRecord For intRecord = 1 To 10 %> <% If recProducts("ShowProducts") = False Then %> <% Else %> <% End If %> <% IDs = IDs & recProducts("id") & ", " recProducts.MoveNext If recProducts.EOF Then Exit For End If Next If Len(IDs) > 2 Then IDs = Mid(IDs, 1, Len(IDs) - 2) End If End If recProducts.Close cnUpd.Close Set cnUpd = Nothing Set recProducts = Nothing Set upl = Nothing %>

Product name:	Product description:
Product image:	Show product:
				Previous	Next
Product Name:	Product Description:
" value="<%=recProducts("ProductsName")%>">	" value="<%=recProducts("ProductsDescription")%>">	" checked>	">
Product Image:	Show product:
<% If recProducts("ProductsImage") <> "" Then %> ', '_new', 'width=200, height=200,status=no,toolbar=no,menubar=no,location=no, left=300, top=300');"><%=recProducts("ProductsImage")%> <% End If %> ">	">			" checked>