Password + Baol = problema

[TeoB]

Salve, uso lo script di baol per uppare dei files sul server e delle info da stoccare in un db al quale ho impostato la password.

Nella prima pagina c'è una form nella quale inserisco le info, il percorso al file e la password. Questa form manda alla pagina up.asp :

<%
Dim oUpload, password, nome, categoria, descrizioneita, descrizioneing
Set oUpload = new cUpload
password = oUpload.form("password")
if password =prova then
	oUpload.SetPath "/public/galleries"
	oUpload.AutoRename=False
	oUpload.OverWrite=True
	oUpload.Upload
	oUpload.Save()
        nome = oUpload.GetFileName()
        categoria = oUpload.Form("categoria")
	commenti = oUpload.Form("descrizioneita")
	comments = oUpload.Form("descrizioneing")
	descrizioneita = replace(commenti,"'","''")
	descrizioneing = replace(comments,"'","''")
dbconn =  Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " &_
         "Data Source="& Server.MapPath("/mdb-database/fotodata.mdb") &"; " &_
         "Jet OLEDB:Database Password=" & password & ";"
strsql = "INSERT INTO fotoinfo ( nome, categoria, descrizioneita, descrizioneing ) Values ( '" & nome & "', '" & categoria & "', '" & descrizioneita & "', '" & descrizioneing & "');"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open dbConn
objConn.Execute strsql 
Response.Write strsql
objConn.Close 
set objConn = Nothing
else
response.write "Non sei autorizzato"
end if
Set oUpload=Nothing
%>

Mi dà errore alla riga objconn.open dicendo che manca un ", ma la stessa riga in un altra pagina funziona correttissimamente. Inoltre, anche se inserisco una pass sbagliata nella form non mi va all'esle (Non sei autorizzato).

Grazie anticipate, buona giornata! :ciauz:

[santino83]

ma oUpload.form non va richiamato dop aver fatto oUpload.load()?

[TeoB]

Originariamente inviato da santino83
ma oUpload.form non va richiamato dop aver fatto oUpload.load()?

E' quello che pensavo, ma siccome non posso usare il request come faccio a richiedere il valore "password" prima dell'utilizzo dello script di baol? Dovrei rigirare totalmente tutto il file?

[santino83]

veramente io pensavo ad una cosa del genere:

Dim oUpload, password, nome, categoria, descrizioneita, descrizioneing
Set oUpload = new cUpload

	oUpload.SetPath "/public/galleries"
	oUpload.AutoRename=False
	oUpload.OverWrite=True

oUpload.Load()

password = oUpload.form("password")
if password ="password_di_prova" then
	oUpload.Save()

etc etc

[TeoB]

Fantastico, problema risolto, grazie mille :) mi resta peró sempre l'errore alla riga:

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " &_
         "Data Source="& Server.MapPath("/mdb-database/fotodata.mdb") &"; " &_
         "Jet OLEDB:Database Password=" & password & ";"

Object required: ''

La stessa identica cosa in un'altra pagina (senza peró upload di Baol) funziona benissimo...

[santino83]

objConn=  Server.CreateObject("ADODB.Connection")

objConn.open etc etc

[TeoB]

Ho trovato l'errore, mancava un semplicissimo set:

set objConn=  Server.CreateObject("ADODB.Connection")

Poi ho zappato via le altre cose che non servono.

Grazie lo stesso!

[santino83]

appunto quello che dicevo io