<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%if not session("AdminOk")="true" then response.Redirect "login.asp" %>
<% dim saved
dim cat
dim msg
cat = request.Form("name")
if request.Form("submit")<>"" then
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
if request.Form("id")="" then
rs.open "Select * From ProductCategories",cn,2,3
rs.addnew
rs.fields("CategoryName") = cat
rs.update
msg = "La Categoria degli articoli è stata salvata"
saved = true
else
rs.open "Select * From ProductCategories Where CategoryID=" & Request.Form("id"),cn,2,3
rs.fields("CategoryName") = cat
rs.update
msg = "La Categoria è stata modificata"
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 ProductCategories Where CategoryID=" & request.QueryString("id"),cn
if not rs.eof then
cat = rs.fields("CategoryName")
End If
rs.close
cn.close
set rs = nothing
set cn = nothing
msg = "La Categoria degli articoli è stata caricata."
End Sub
%>
Nuova Lavorazione
