aggiornamento record che non va al record specifico

[alessandra73]

ciao a tutti,
ho questo problema, il modulo aggiornamento dati/file non aggiorna il record specifico dopo che ho inserito l'aggiornamento upload asp.

Non segnala nessun errore ma viene fuori che l'aggiornamento del record 1 va sul 2 mentre se dico aggiorna 2 non aggiorna niente completa il ciclo con l'indirizzamento nella pagina stabilita ma niente.

Nel form ho messo anche il comportamento vai ad un record spcifico tramite gli id ma niente, proprio non ci vuole sentire, tra l'altro quando faccio clic sul pulsante aggiorna ho notato che manca proprio il reindirizzamento del codice ID=1

che posso fare?

[Roby_72]

:master:

[alessandra73]

script originario di asp upload
If (CStr(UploadFormRequest("MM_update")) = "form1" And CStr(UploadFormRequest("MM_recordId")) <> "") Then

script modificato in quanto dava errore l_bound
'If (CStr(UploadFormRequest("MM_update")) <> "" And CStr(UploadFormRequest("MM_recordId")) <> "") Then

riassumo magari esce fuori l'errore
1. creato recordset alla tabella
2. modificato il campo file che lui presenteva in "text" --> in "file" per far apparire sfoglia
3. inserito modulo asp upload file per fargli caricare il file
4. inserito vai ad un record specifico

l'ho messo on line ma dava errore di l_bound così ho modificato come avevo letto per il modulo inserimento normale vedi all'inizio

e non aggiorna i record, come se non vedesse vai ad un record specifico.

Sbaglio qualcosa nella programmazione, non si fa così?


Grazie di nuovo

[Roby_72]

Non vedendo lo script non saprei.
Passi l'id da aggiornare? Dovresti metterlo in un campo hidden...

Roby

[santino83_11_04]

che vuol dire l'uno lo mette sul 2 e il due non lo aggiorna? c'è un ciclo che fa gli upload?

[alessandra73]

no non penso

provo ad incollare lo script

<%
'*** Pure ASP File Upload 2.1.4
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload")) <> "") Then
Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,p au_storeType,pau_sizeLimit,pau_nameConflict,pau_re quireUpload,pau_minWidth,pau_minHeight,pau_maxWidt h,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_t imeout,pau_progressBar,pau_progressWidth,pau_progr essHeight
pau_thePath = """public"""
pau_Extensions = "GIF,JPG,JPEG,BMP,PNG"
pau_Form = "form1"
pau_Redirect = ""
pau_storeType = "file"
pau_sizeLimit = ""
pau_nameConflict = "over"
pau_requireUpload = "true"
pau_minWidth = ""
pau_minHeight = ""
pau_maxWidth = ""
pau_maxHeight = ""
pau_saveWidth = ""
pau_saveHeight = ""
pau_timeout = "600"
pau_progressBar = ""
pau_progressWidth = "300"
pau_progressHeight = "100"

Dim RequestBin, UploadRequest
CheckPureUploadVersion 2.14
ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeT ype,pau_sizeLimit,pau_nameConflict,pau_requireUplo ad,pau_minWidth,pau_minHeight,pau_maxWidth,pau_max Height,pau_saveWidth,pau_saveHeight,pau_timeout
end if
%>


<%
' *** Update Record: (Modified for File Upload) set variables

'If (CStr(UploadFormRequest("MM_update")) = "form1" And CStr(UploadFormRequest("MM_recordId")) <> "") Then ---> ORIGINARIO
If (CStr(UploadFormRequest("MM_update")) <> "" And CStr(UploadFormRequest("MM_recordId")) <> "") Then --> MODIFICATO cosi non da errori ma non va al record specifico

MM_editConnection = MM_Conn_bi_STRING
MM_editTable = "TAB_CANARIE"
MM_editColumn = "BALCONI"
MM_recordId = "'" + UploadFormRequest("MM_recordId") + "'"
MM_editRedirectUrl = "aggiornamento_AVVENUTO.asp"
MM_fieldsStr = "TIPO_di_OFFERTA|value|TIPOLOGIA|value|LOCALITA|va lue|CITTA|value|MQ|value|CAMERA_DA_LETTO|value|BAL CONI|value|POSTO_AUTO|value|PIANO|value|CONDIZ_STA BILE|value|ANNOTAZIONI_ULTERIORI|value|DESCRIZIONE |value|PREZZO|value|FOTO_1|value|FOTO_2|value|FOTO _3|value|FOTO_4|value|FOTO_5|value|FOTO_6|value"
MM_columnsStr = "TIPO_di_OFFERTA|',none,''|TIPOLOGIA|',none,''|LOC ALITA|',none,''|CITTA|',none,''|MQ|',none,''|CAMER A_DA_LETTO|',none,''|BALCONI|',none,''|POSTO_AUTO| ',none,''|PIANO|',none,''|CONDIZ_STABILE|',none,'' |ANNOTAZIONI_ULTERIORI|',none,''|DESCRIZIONE|',non e,''|PREZZO|',none,''|FOTO_1|',none,''|FOTO_2|',no ne,''|FOTO_3|',none,''|FOTO_4|',none,''|FOTO_5|',n one,''|FOTO_6|',none,''"

' create the MM_fields and MM_columns arrays
MM_columnsStr = FixColumnsForUpload(MM_fieldsStr,MM_columnsStr)
MM_fieldsStr = FixFieldsForUpload(MM_fieldsStr,MM_columnsStr)
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(UploadFormRequest(MM_fields(MM_i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If

End If
%>
<%
' *** Update Record: (Modified for File Upload) construct a sql update statement and execute it

If (CStr(UploadFormRequest("MM_update")) <> "" And CStr(UploadFormRequest("MM_recordId")) <> "") Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
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
%>



questo sotto è lo script vai ad un record specifico
<%
' *** Move To Specific Record: handle detail parameter

If (MM_paramIsDefined And MM_rsCount <> 0) Then

' get the value of the parameter
MM_param = Request.QueryString(MM_paramName)

' find the record with the unique column value equal to the parameter value
MM_offset = 0
Do While (Not MM_rs.EOF)
If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then
Exit Do
End If
MM_offset = MM_offset + 1
MM_rs.MoveNext
Loop

' if not found, set the number of records and reset the cursor
If (MM_rs.EOF) Then
If (MM_rsCount < 0) Then
MM_rsCount = MM_offset
End If
If (MM_size < 0 Or MM_size > MM_offset) Then
MM_size = MM_offset
End If
MM_offset = 0

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Close
MM_rs.Open
End If
End If

End If
%>

[santino83_11_04]

ah io mi ritiro...già una volta ho provato a modificare questa MER*A di upload di DW ma senza risultati.... passa all'upload di baol, dai retta a me

[alessandra73]

volentieri
ma dove lo trovo upload di boal?

[santino83_11_04]

nella firma dell'utente baol74 http://forum.html.it/forum/showthrea...76#post8596276

[alessandra73]

Ti ringrazio, gentilissimo. Ciao.