<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%if not session("AdminOk")="true" then response.Redirect "login.asp" %>
<%
dim productname
'dim price
dim category
dim details
dim filename
dim msg
Set Uploader = New FileUploader
Uploader.Upload()
if Uploader.Form("submit")<>"" then
productname = Uploader.Form("name")
'price = Uploader.Form("Price")
category = Uploader.Form("Category")
details = Uploader.Form("details")
call SaveRecord()
End if
if request.QueryString("id")<>"" then
call GetRecord()
End if
Sub SaveRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn
'##########################################################
' Cambio Percorso salvataggio Immagini
'##########################################################
if Uploader.Files.count <> 0 then
File = Uploader.Files.Items()
File(0).SavetoDisk Server.MapPath("\public\immagini\Articoli")
filename = File(0).Filename
else
filename = ""
End if
if Uploader.Form("id")="" then
rs.open "Select * From Products",cn,2,3
rs.addnew
rs.fields("productname") = productname
'rs.fields("price") = price
if filename <>"" then rs.fields("image") = filename
rs.fields("details") = details
rs.fields("categoryid") = category
rs.update
msg = "L'articolo è stato salvato"
saved = true
else
rs.open "Select * From Products Where ProductID=" & Uploader.Form("id"),cn,2,3
rs.fields("productname") = productname
'rs.fields("price") = price
rs.fields("details") = details
rs.fields("categoryid") = category
if filename <>"" then rs.fields("image") = filename
rs.update
msg = "L'articolo è stato aggiornato"
saved = true
End if
rs.close
cn.close
set rs = nothing
set cn = nothing
End Sub
Sub GetRecord()
dim rs
dim cn
set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn
rs.open "Select * From Products Where ProductID=" & request.QueryString("id"),cn
if not rs.eof then
productname = rs.fields("productname")
'price = rs.fields("price")
details = rs.fields("details")
category = rs.fields("categoryid")
filename = rs.fields("image")
End If
rs.close
cn.close
set rs = nothing
set cn = nothing
msg = "L'articolo è stato caricato."
End Sub
%>
Amministrazione
