<%
If Session("logged") <> "1" Then
Response.Redirect("login.asp")
End If
%>
Add Products
<%
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
If 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 new Product
| Product name: |
Product description: |
|