Problemi con Upload

[mmaria]

Ciao amici lavoro in asp.
Faccio l'UPLOAD e oltre a scaricare la foto sul server scrivo il nome delal foto nel db. Al momento della scrittura scrive solo il nome con l'estensione. Voglio sempre far precedere al nome la scritta ../public/ come faccio con lo script seguente:

UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = Filename
ValueBeg = PosBeg-1
ValueLen = PosEnd-Posbeg

Io ho provato con
Value = "../public/" +Filename
ma mi scrive solo ../public/ senza nome della foto.

Grazie in anticipo.

Maria

[Luis33]

ma perchè non usi questo script?:

 <% 

Set oUpload = new cUpload 
NomeUtente = session("username") 
oUpload.SetPathFile "Files\" & NomeUtente & "\" 
oUpload.SetLogFile(NomeUtente & "|" & Request.ServerVariables("REMOTE_ADDR")) 
oUpload.AutoRename=True 
oUpload.OverWrite=False 
oUpload.Upload 
oUpload.PrintStatus "Lista dei files caricati in FILES" 
oUpload.Files.Filter="[ContentType] like 'image/*' and Size<500000" 

Set Conn=Server.CreateObject("ADODB.Connection") 
strConn="driver={Microsoft Access Driver (*.mdb)}; " 
strConn=strConn&" DBQ=" & Server.MapPath("/database.mdb") 
Conn.Open strConn

oUpload.MoveFirst 
While Not oUpload.Eof 
Descrizione = oUpload.Form("Desc_" & oUpload.Files("InputName")) 
Nome = oUpload.Form("Nome")
Email = oUpload.Form("Email")
FileName = oUpload.GetCompletePathFile() 
FileName = Mid(FileName,InStrRev(FileName,"\")+1)
FileName = NomeUtente & "/"& FileName
sql = "INSERT INTO tbl (Nome_File, Descrizione_File, Nome, Email) VALUES ('" & Replace(FileName, "'", "''") & "', '" & Replace(Descrizione, "'", "''") & "', '" & Nome & "', '" & Email & "');"
conn.Execute sql

Dim objMail, messaggio

	'qui puoi mandare un msg di conferma all'utente 
	messaggio = messaggio & VBcrlf & "File caricato

"

	
    Set objMail = Server.CreateObject("CDONTS.NewMail")

    objMail.From = "tuaemail@com.com"
	objMail.To = Email
	objMail.Subject = "Risposta automatica"
    objMail.Body = messaggio
    objMail.importance = 2
	objMail.MailFormat = 0
    objMail.BodyFormat = 0
    objMail.Send

    Set objMail = Nothing


oUpload.Save 
oUpload.MoveNext 
Wend 

Conn.Close
Set Con = nothing

response.write "<center>File caricato correttamante</center>" 
%>

l'include file upload.asp puoi scaricarlo da qui: http://www21.brinkster.com/lorzdesig.../upload311.zip

[mmaria]

Grazie Luiss per il sugegrimento ma devo lavorare con il mio script ed ho bisogno di risolvere il problema con il mio script.
CHI MI AIUTA?

[Roby_72]

Posta la query di inserimento.

Roby

[99eros9]

Stai usando lo script messo a disposizione da Aruba?... mi sembra che il codice sia quello

[mmaria]

Roby spero di non sbagliare:
ecco la query di inserimento:

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If

[Roby_72]

Con questo codice non modifichi alcun valore prima di procedere all'inserimento.
Ma una query INSERT INTO come si conviene??? no???

Roby

[mmaria]

Roby scusa se profitto ancora ma ho controllato tutto lo script che possiedo e non c'è alcun altro INSERT INTO... che posso fare?
Ciao

[Roby_72]

No, forse non mi sono spiegato.
Devi togliere quell'agglomerato di DW e crearti TU una semplice query di INSERT dopo aver recuperato i dati provenienti dal form.
Così com'è lo script non lo modifichi.

Roby

[mmaria]

Scusa è facile da creare?