2 messaggi dal 24 febbraio 2002
Ho creato una form di tre campi, due di testo e uno di "browse"
ho mandato la action a file .asp, nel quale ho immesso questo codice
<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database") & "\universita_news.mdb" & ";"

Set rs = Server.CreateObject("ADODB.Recordset")
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
vAttach = file.FileName
Next

For each item In mySmartUpload.Form
For each value In mySmartUpload.Form(item)
if (item = "titolo") then
vTitolo = value
elseif (item = "descrizione") then
vDescrizione = value
end if
Next
Next

Set cm= Server.CreateObject("ADODB.Command")
Set cm.ActiveConnection = cn
cm.CommandText = "INSERT INTO unews (Titolo, Descrizione, file) VALUES (?, ?, ?)"
set objparam=cm.createparameter(, 200, , 255, vTitolo)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, vDescrizione)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, vAttach)
cm.parameters.append objparam
cm.Execute

if vAttach<>"" then
Path = Server.MapPath("\allegati")
intCount = mySmartUpload.Save(Path)
end if
%>

....ma non mi funziona, non riesco a fargli eseguire la procedura, e di conseguenza a scaricare le info nel database!
Potete controllare?

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.