Upload immagine: perchè non funzia ?

[Delo80]

Sto facendo un amministrazione remota con uuna sezione in cui l'amministratore può inserire TESTO e IMMAGINI.
Ho provato a utilizzare lo script di Lorenzo Abbati, lo conoscete?Immagino di si
Il problema è che non mi funzia...

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/prova/Upload_Database.asp, line 9

B.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb"),"SELECT Top 1 * FROM news"/B
------^

Ovviamente prima e dopo le B ci sono parentesi quadra, è che se le inserisco qua mi fa diventare bold il testo

Qualcuno sa aiutarmi?Non n vengo fuori
La mia esigenza è quella di inserire un immagine e un testo in un database access con un controllo sul peso dell'immagine inserita.
Grazie a tutti

ps Lavoro su server aruba

[Roby_72]

Non ho capito... Mi fai vedere la stringa che usi?

Roby

[Delo80]

Eccolo...uso l'esempio per upload in database

<%
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("news.mdb"),"SELECT Top 1 * FROM news"
.EnabledAspUpload	= False
.EnabledImageSize	= False
.EnabledLog 		 = False
.AutoRename 		 = True
.Overwrite			 = False
.SetPath "files\"
.Load
.MoveFirst
if .EOF then
	NumFiles = .Count()
	Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il ttipo di file."
else
	.Database.Open()
	While Not .EOF
			.Save
			response.Write "il file " & .GetFileName &" è stato salvato 
"
			'Inserimento dei valori
			.Database.Fields("Titolo") = .Form("Titolo")
			.Database.Fields("Percorso") = .GetCompletePathFile
			'Inserimento
			.Database.AddNew()
	.MoveNext
	Wend
end if
End With
Set oUpload = Nothing
%>

Grazie Roby...sei il mio supereroe preferito =D

[Roby_72]

.SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("news.mdb") &","SELECT Top 1 * FROM news"

Prova...

Roby