codice:
<%@ LANGUAGE="VBSCRIPT"%>
<%'OPTION EXPLICIT%>
<%RESPONSE.BUFFER=True%>
<%session.LCID = 1040%>
<%RESPONSE.Expires=0
response.addheader "pragma", "no-cache"
response.addheader "cache-control", "private"
response.cachecontrol = "private"
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<%
set objconn=server.CreateObject("ADODB.Connection")
objconn.open strconnect
%>
<head>
<title>SIDERIDRAULIC SYSTEM</title>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta name="generator" content="HAPedit 3.0">
<link href="css/stiloso.css" rel="stylesheet" type="text/css">
<style type="text/css">
div#main
{
position: relative;
left: -1px;
top: 0px;
width: 509px;
height: 341px;
z-index: 0;
background-color: #FFFFFF;
border-top: 1px none #000000;
border-right: 1px solid #000000;
border-bottom: 1px none #000000;
border-left: 1px solid #000000;
padding: 0 1.5em 5em;
background-repeat: no-repeat;
}
</style>
<script language="javascript">
function addProduct(l)
{
document.forms[0].action = "ins_prodotti.asp?action=progetto&servizio="+ l ;
document.forms[0].submit();
}
</script>
<script language="javascript">
function sotProduct(l)
{
document.forms[0].action = "ins_prodotti.asp?action=progetto&servizio="+ l ;
document.forms[0].submit();
}
</script>
</head>
<body>
<%
%><%
dim pop
Dim oUpload, pa
Set oUpload = new cUpload
dim codice, catalogo, nome, descrizione, taglie, unita , confezione, cartone, pagina, img1, img2
dim cnto, xxxo, servizioo
if request.QueryString("cosa")="inserimentoavvenuto" then
pa="allegati/"
oUpload.SetPath "allegati/" ' Salva i File nella cartella %CartellaCorrente%/uploads/ se non esiste viene creata
oUpload.Load 'Elabora i dati inviati
oUpload.SaveAll() ' Salva tutto (tranne i files asp, opzione da abilitare)
'oUpload.PrintForm() 'Report di tutte le variabili form inviate
'oUpload.PrintStatus("Files Salvati") 'Report di tutti i file salvati
'dim file1, file2, file3, file4, file4, file5, file6
dim allegato, canc1, fileone1, point1, dif1
dim canc2, fileone2, point2, dif2
dim canc3, fileone3, point3, dif3
dim titolo, location, datains, datasca, vis, divisione, data, testo
codice=TRIM(REPLACE(oUpload.form("codice"), "'", "''"))
catalogo=oUpload.form("catalogo")
nome=TRIM(REPLACE(oUpload.form("nome"), "'", "''"))
descrizione=TRIM(REPLACE(REPLACE(oUpload.form("descrizione"), "'", "''"), VbCrLf, "
"))
taglie=TRIM(REPLACE(oUpload.form("taglie"), "'", "''"))
unita=TRIM(REPLACE(oUpload.form("unita"), "'", "''"))
confezione=TRIM(REPLACE(oUpload.form("confezione"), "'", "''"))
cartone=TRIM(REPLACE(oUpload.form("cartone"), "'", "''"))
pagina=TRIM(REPLACE(oUpload.form("pagina"), "'", "''"))
allegato=TRIM(REPLACE(oUpload.form("allegato"), "'", "''"))
img1=TRIM(REPLACE(oUpload.form("img1"), "'", "''"))
img2=TRIM(REPLACE(oUpload.form("img2"), "'", "''"))
point1=(instrrev(allegato,"."))+3
canc1=(instrrev(allegato,"\"))
dif1=point1-canc1
fileone1=right(allegato,dif1)
point2=(instrrev(img1,"."))+3
canc2=(instrrev(img1,"\"))
dif2=point2-canc2
fileone2=right(img1,dif2)
point3=(instrrev(img2,"."))+3
canc3=(instrrev(img2,"\"))
dif3=point3-canc3
fileone3=right(img2,dif3)
if allegato<>"" and img1<>"" and img2<>"" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, Img1, Img2, AllegatoProdotto) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&",'"&fileone2&"', '"&fileone3&"', '"&fileone1&"');"
end if
if allegato="" and img1="" and img2="" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&");"
end if
if allegato="" and img1="" and img2<>"" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, Img2) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&", '"&fileone3&"');"
end if
if allegato="" and img1<>"" and img2<>"" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, Img1, Img2) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&",'"&fileone2&"', '"&fileone3&"');"
end if
if allegato<>"" and img1<>"" and img2="" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, Img1, AllegatoProdotto) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&",'"&fileone2&"', '"&fileone1&"');"
end if
if allegato<>"" and img1="" and img2<>"" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, Img2, AllegatoProdotto) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&", '"&fileone3&"', '"&fileone1&"');"
end if
if allegato<>"" and img1="" and img2="" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, AllegatoProdotto) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&", '"&fileone1&"');"
end if
if allegato="" and img1<>"" and img2="" then
strsql=" INSERT INTO Prodotto ( CodProdotto, NomeProdotto, DescrizioneProdotto, TaglieProdotto, UnitaVenditaProdotto, ConfezioneMinProdotto, CartoneProdotto, PaginaCatalogo, IdCatalogo, Img1) "
strsql=strsql&" VALUES ('"&codice&"', '"&nome&"', '"&descrizione&"', '"&taglie&"','"&unita&"', '"&confezione&"', '"&cartone&"','"&pagina&"', "&catalogo&",'"&fileone2&"');"
end if
objconn.execute (strsql)
'response.write(strsql)
strsql="SELECT * FROM Prodotto WHERE CodProdotto='"&codice&"' ;"
set objrec=objconn.execute(strsql)
dim idx
idx=objrec("CodProdotto")
dim Fso, rsz, rszz
if allegato<>"" then
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Fso.moveFile Server.MapPath("allegati\"&fileone1&""), Server.MapPath("allegati\"&idx&fileone1&"")
Set Fso = Nothing
end if
if img1<>"" then
Set rsz = Server.CreateObject("Scripting.FileSystemObject")
rsz.moveFile Server.MapPath("allegati\"&fileone2&""), Server.MapPath("allegati\"&idx&fileone2&"")
Set rsz = Nothing
end if
if img2<>"" then
Set rszz = Server.CreateObject("Scripting.FileSystemObject")
rszz.moveFile Server.MapPath("allegati\"&fileone3&""), Server.MapPath("allegati\"&idx&fileone3&"")
Set rszz = Nothing
end if
dim cnt, xxx, servizio
xxx=request.querystring("servizio")
if request.querystring("servizio")<>"" then
for cnt=1 to xxx
servizio=REPLACE(LEFT(TRIM(oUpload.form("select"&cnt)),50), "'", "''")
if Servizio<>"" then
strsql=" INSERT INTO Associazione ( CodProdotto, IdNormativa)"
strsql=strsql&" VALUES ('"&idx&"', "&servizio&");"
objconn.execute (strsql)
end if
next
end if
objrec.close
set objrec=nothing
end if
'xxxo=request.querystring("servizio")
'if request.querystring("servizio")<>"" then
'for cnto=1 to xxxo
'session("selecta"&cnto)=1'TRIM(REPLACE(request.form("select"&cnto), "'", "''"))
'next
'end ifDim oUpload
'Set oUpload = new cUpload
oUpload.Load()
'WriteLn "Multipart="&oUpload.IsMultipart
'if request.QueryString("action")=progetto then
session("codice")=oUpload.form("codice")
session("catalogo")=oUpload.form("catalogo")
session("nome")=oUpload.form("nome")
session("descrizione")=oUpload.form("descrizione")
session("taglie")=oUpload.form("taglie")
session("unita")=oUpload.form("unita")
session("confezione")=oUpload.form("confezione")
session("cartone")=oUpload.form("cartone")
session("pagina")=oUpload.form("pagina")
session("allegato")=oUpload.form("allegato")
session("img1")=oUpload.form("img1")
session("img2")=oUpload.form("img2")
'end if
%>
Rispondi quotando
