Codice graaaazzzzzieeee....

Ciao

Andrea Palmatè
webmaster di:
http://www.sandrotoffi.it

Ecco il codice a VOI!!!!!
Il componente che ho usato e ASPSIMPLEUPLOAD
Pagina con form:

<form method="POST" action="insertprod.asp" ENCTYPE="multipart/form-data" > ecc...

Pagina per salvare sul DB e per fare l'upload

<%
sql2="SELECT ID FROM coda"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql2,conn,3,3
rs2.MoveLast
image=rs2("ID")
SaveFileName = image & Right(upl.ExtractFileName(upl.Form("File1")),4)
'Aperura connessione TBLK
sql="SELECT * FROM coda"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,3,3
rs.AddNew
rs("TopicID")=upl.Form("cat")
rs.UpDate
ids=rs("ID")
rs("SubcatID")=upl.Form("subcat")
rs("datainvio")=date()
If len(prezzo)<>0 then
rs("prezzo")=formatcurrency(prezzo)
else
rs("prezzo")= 0
rs("dadefinire")=1
end if
rs("titolo")=upl.Form("titolo")
rs("descrizione")=upl.Form("descrizione")
''''''''''''UPLOAD FILE
if len(upl.Form("File1"))>0 then
If upl.SaveToWeb("File1","../oggetti/" & SaveFileName) Then
rs("immagine")=SaveFileName
else
rs("immagine")=""
End If
end if
'''''''''''' FINE UPLOAD FILE
rs("hits")=0
rs("venditore")=session("IDuser")
rs("quantita")=upl.Form("qta")

if upl.Form("assegni")<>"" then
rs("assegni")=true
end if
if upl.Form("bancomat")<>"" then
rs("bancomat")=true
end if
if upl.Form("contrassegno")<>"" then
rs("contrassegno")=true
end if
if upl.Form("bonifico")<>"" then
rs("bonifico")=true
end if
if upl.Form("vaglia")<>"" then
rs("vaglia")=true
end if

if upl.Form("trasporto")="venditore" then
rs("trasportoincluso")=true
end if
rs.UpDate
%>
DIVERTITEVI!!!!!!!
Grazie