If not UPDATE

[jartuf]

Ciao,
ho uno script di upload con l'update, ma se ipoteticamente si aggiorna un record senza caricare nulla lo script mi si blocca,

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver ODBC Microsoft Access]Errore nella riga
/tortoretolido.net/news/aggiorna.asp, line 103


Il codice è

       <% 
			
	if UCase(Request.QueryString("tipo")) = "NEW" Then
		Dim Uploader, File
		Set Uploader = New FileUploader
		Dim pathfile
		Dim pathfile2
		
	
		Uploader.Upload()
		If Uploader.Files.Count = 0 Then
			' Nessun file inserito
			pathfile = ""
			
		Else
			Uploader.Files("pathfile").SaveToDisk Server.MapPath("../public/foto")
			Uploader.Files("pathfile2").SaveToDisk Server.MapPath("../public/foto")
			pathfile = "../public/foto/" & Uploader.Files("pathfile").FileName
			pathfile2 = "../public/foto/" & Uploader.Files("pathfile2").FileName
		End if
		' Inseriamo tutto nell'archivio

		oRst.Open "SELECT * FROM foto WHERE ID=0", oConn, adOpenKeyset, adLockOptimistic
		oRst.AddNew
		oRst("titolo").Value = Uploader.Form("titolo")
		oRst("descrizione").Value = Uploader.Form("notizia") 
		oRst("imgLink").Value = pathfile
		oRst("imgLink2").Value = pathfile2
		oRst("Data").Value = Date()
		oRst("link1").Value = Uploader.Form("link1")
		oRst("link2").Value = Uploader.Form("link2")
		oRst("descrlink1").Value = Uploader.Form("descrlink1")
		oRst("descrlink2").Value = Uploader.Form("descrlink2")

		oRst.Update
		oRst.Close
		oConn.Close
		
		
		
		Response.Redirect "aggiorna.asp?string=Aggiornamento%20Effettuato"
		
	Elseif UCase(Request.QueryString("tipo")) = "DEL" Then
			if Request.QueryString("id") <> "" Then
				oConn.Execute "DELETE * FROM foto WHERE ID=" & Request.QueryString("id")
				
			End if
			Response.Redirect "aggiorna.asp?string=foto%20Eliminata"
		Else
%>

e l'errore in

oRst.Update

Per fare in modo di evitare l'update potrei fare un if
a condizione che il campo sia pieno allora fai l'update... mi sapete aiutare please?

[99eros9]

Dopo aver fatto una select devi controllare facendo

If not oRst.Eof then

'campo pieno.. fai l'update

Else

'campo inesistente.. fai l'insert o esci.

End If

[Roby_72]

Basta impostare "consenti lunghezza zero" ai campi...Altrimenti:

if len(pathfile2) > 0 then
oRst("imgLink2").Value = pathfile2
end if

Roby

[jartuf]

Roby ho provato ma nn va...
Se inserisco un percorso di upload:

ADODB.Recordset error '800a0cc1' 

Item cannot be found in the collection corresponding to the requested name or ordinal. 

/news/aggiorna.asp, line 110

se invece lascio vuoto

Microsoft OLE DB Provider for ODBC Drivers error '80004005' 

[Microsoft][ODBC Microsoft Access Driver]Error in row 

/news/aggiorna.asp, line 105

[vaargard]

item cannot etc è un errore che vien fuori quando il nome del campo è errato ... comunque segui il consiglio di eros ... fai una bella if ...

[jartuf]

Si d'accordo ma rigurdando il codice trovo
Uploader.Upload()
If Uploader.Files.Count = 0 Then
' Nessun file inserito
pathfile = ""
pathfile2 = ""

ora devo sostituirlo con un nuovo if oppure
agguingerlo e basta?se così fosse dove lo metto prima o dopo?


grazie

[vaargard]

ma scusa tu il record lo devi inserire? non modificare giusto?
allora fai così (senza aggiungere alcuna if a quelle che già hai):

oRst.Open "foto", oConn, adOpenKeyset, adLockOptimistic
		oRst.AddNew
		oRst("titolo").Value = Uploader.Form("titolo")
		oRst("descrizione").Value = Uploader.Form("notizia") 
		oRst("imgLink").Value = pathfile
		oRst("imgLink2").Value = pathfile2
		oRst("Data").Value = Date()
		oRst("link1").Value = Uploader.Form("link1")
		oRst("link2").Value = Uploader.Form("link2")
		oRst("descrlink1").Value = Uploader.Form("descrlink1")
		oRst("descrlink2").Value = Uploader.Form("descrlink2")

		oRst.Update
		oRst.Close
		oConn.Close

prova e dimmi ...

[jartuf]

[code]Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]Error in row

/news/aggiorna.asp, line 106
[code/]

la linea è quella che fa l'upload

[vaargard]

i nomi dei campi li hai controllati???


ed in più per le date fai sempre

oRst("Data").Value = year(Date()) & "/" & month(date()) & "/" & day(date())

[jartuf]

si lo script se inserisco un file funziona, il problema è che io carico sia file sia testi (sono news) e ho previsto la possibilita che nn ci siano foto da uploadare, qui lo script mi sbaglia!
ipoteticamente nn potrei caricare un file "vuoto.gif" e con un if mettere quello nel caso in cui nn ci siano foto caricate?


per la data lo so, grazie, cmq il server prende tutto in ita gg/mm/aa