Upload BAOL e MySQL

[emilio81]

Ciao a tutti
uso questo script per l'inserimento di articoli in un database acces e per fare l'upload di una foto, tutto funziona correttamente, adesso ho la necessità di farlo funzionare anche con il database MySQL.
Ho notato che c'è da cambiare qualche cosa tipo il TOP che non funziona e AddNew() e naturalmente la stringa di connessione al database..
Volevo sapere se devo cambiare qualche altra cosa, e come integro la stringa di connessione al database MySQL al posto dell'attuale.

<%
Dim oUpload
Set oUpload= new cUpload
With oUpload
'La riga seguente impoosta la connessione al database e la tabella di inserimento dati
'La connesione e la tabella verranno aperti con il metodo oUpload.Database.Open()
.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/articoli.mdb"),"SELECT Top 1 * FROM articoli"
.EnabledAspUpload	 = False
.EnabledImageSize	 = False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "/public/foto/"
.Load

	.Database.Open()
	While Not .EOF
			.Save
			response.Write ("Hai Caricato " & .GetFileName &" 
")
			'Inserimento dei valori
			
			.Database.Fields("campo1") = .GetFileName

	.MoveNext
	Wend
		    validitalast = .Form("validitalast")
            TodayDate = Now()
            TodayDate = FormatDateTime(TodayDate, VBShortDate)

			.Database.Fields("idcategoria") = .Form("catid")
			.Database.Fields("idsottcat") = .Form("subcat")
			.Database.Fields("articolo") = .Form("articolo")
			.Database.Fields("descrizione_breve") = .Form("descrizione_breve")
			.Database.Fields("descrizione_estesa") = .Form("FCKeditor1")
			.Database.Fields("quantita") = .Form("quantita")
			.Database.Fields("prezzo") = .Form("prezzo")
			.Database.Fields("disponibilita") = .Form("disponibilita")
			.Database.Fields("DataDeletePost") = DateAdd("d", validitalast, TodayDate)
		
			
			priorita = .Form("priorita") 
            If priorita = "" Then 
            priorita = "0" 
            End If 
            .Database.Fields("priorita") = priorita
			
			last_minute = .Form("last_minute") 
            If last_minute = "" Then 
            last_minute = "0" 
            End If 
            .Database.Fields("last_minute") = last_minute
			
			attivo = .Form("attivo") 
            If attivo = "" Then 
            attivo = "0" 
            End If 
            .Database.Fields("attivo") = attivo
			
			.Database.Fields("key") = .Form("key")
             
			 Immagine = .Form("campo1")
			 If Immagine = "" Then
			 .Database.Fields("campo1") = "no_photo.gif"
			 End If
			 
			 
            .Database.AddNew() 
            .Database.Close 

          End With 
          Set oUpload = Nothing 

Response.write("L'oggetto è stato inserito con successo.")
%>

[viki1967]

Manda un privato a Baol, vedrai che ti risolve il problema !

[emilio81]

ho già risolto grazie