Grazie per il benvenuto e per la risposta cavicchiandrea.
aspsmartupload.net lo avevo gia consultato comunque ho effettuato delle modifiche al codice e il problema è l'upload, cioè mi segnala sempre la scritta di errore "Errore in fase di upload,riprova!" anche se metto file di estensione specificate nell'AllowedFilesList. Ecco il codice:
<%
On Error Resume Next
Dim objUpl
Set objUpl = Server.CreateObject("aspSmartUpload.SmartUpload")
objUpl.AllowedFilesList = "jpg,gif,jpeg,png"
objUpl.MaxFileSize = 1000000
dim idRubrica
dim file
dim nomefile
idRubrica = session("idcontatto")
objUpl.Upload
objUpl.Save("/Stagista/Sito/upload")
Set objUpl = Nothing
If Err.Number = 0 Then
for each file in ubjUpl.Files
if not file.isMissing then
file.SaveAs("/Stagista/Sito/upload/"& file.FileName)
nomefile = file.FileName & file.FileExt
end if
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Stagista\Sito\Database\Rubrica.accdb;Per sist Security Info=False; "
Conn.Open strConn
sql = "SELECT IDRUBRICA,PERCORSOIMM FROM Immagini WHERE IDRUBRICA = " & idRubrica & " "
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,1
if rs.eof then
sql = "SELECT * FROM Immagini "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,3,3
' Preparazione e scrittura nuovo record
rs.addnew
rs("IDRUBRICA") = idRubrica
rs("PERCORSOIMM") = nomefile
rs.update
else
sql = "SELECT IDRUBRICA,PERCORSOIMM FROM Immagini WHERE IDRUBRICA = " & idRubrica & " "
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,Conn,3,3
rs("PERCORSOIMM") = nomefile
rs.Update
end if
next
Response.Write "Upload eseguito con successo!"
Else
Response.Write "Errore in fase di upload, riprova!"
End If
%>