agiornare data su pagina quando aggiorno DB

[zeweb]

Come posso inserire in una pagina una data che si aggiorni tutte le volte che modifico il DB (access)?


Grazie

[marco_c]

quando modifichi il database inserisci nel db stesso la data di quell'istante e poi la leggi dove ti serve leggerla....

[zeweb]

ma io ho diversi upload che mi aggiornano il DB a seconda dei form delle pagine, allora devo inserire la data in ogni form?

[optime]

ze, se la vuoi vedere la devi leggere e visualizzare, fai tu...

[zeweb]

lo scipt chew uso è questo mi potete aiutare a inserirla?

Grazie eh!

<%
Function ConvertiData(data)
'#########CONVERTE UNA DATA IN FOPRMATO dd/mm/YYYY in mm/dd/YYYY
data=replace(data,"-","/")
giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
mese = Left(data, InStr(1, data, "/") - 1)
anno = Right(data, Len(data) - InStrRev(data, "/"))
ConvertiData = giorno & "/" & mese & "/" & anno
'response.write ConvertiData
End Function

Function CancellaFile(quale_file)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'OCCHIO QUI ALLA PATH E AL SERVER MAPPATH
'file1="mediaroom/documenti/"& attach
objFSO.DeleteFile Server.MapPath(quale_file)
Set objFSO = Nothing
End Function



'CONNESSIOONE
Set myconn = Server.CreateObject("ADODB.Connection")
'######### OCCHIO QUI CHE HO MODIFICATO
'############### CORREGGI LA STRINGA con percorso
myconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/cedab.mdb")
'########
Set oUpload = new cUpload
oUpload.AutoRename=False'Disabilito l'autoRename
oUpload.OverWrite=False'Imposto l'overwrite
oUpload.Upload 'Carico i dati
oUpload.MoveFirst 'Posizionamento sul primo record
oUpload.SetPath "\mediaroom\note\"

select case left(oUpload.Form("Submit"),1)
case "E"
'if left(oUpload.Form("Submit"),1)="E" then ' se si è premuto il pulsante Elimina nota che comincia con la E
	sql = "SELECT * FROM note_informative WHERE id="&oUpload.Form("idNota")
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sql, myconn,3,3
	'prende il nome dei file
	file1 = rs("attach")
	'cancella il record dalla tabella documenti
	rs.delete
	rs.close
	Set rs = Nothing
	myconn.Close
	Set myconn = Nothing
	'cancella i files eventuali presenti
	'########CORREGGERE PERCORSI
	if len(file1)>1 then a=cancellaFile("/mediaroom/note/"& file1)

Case else 'ENTRA QUI SOTTO E FA UPDATE O INSERT nel caso contrario
	'Set oUpload = new cUpload
	'oUpload.AutoRename=False'Disabilito l'autoRename
	'oUpload.OverWrite=False'Imposto l'overwrite
	'oUpload.Upload 'Carico i dati
	'oUpload.MoveFirst 'Posizionamento sul primo record
	'oUpload.SetPath "\mediaroom\note\"
	'##############ANDREA
	'leggo i campi del form tra cui anche i vecchi attach e cover
	'##########AGGINGI QUELLI CHE MANCANO
	idNota=oUpload.Form("idNota")
	'MODIFICATO
	' idDocumento=oUpload.Form("idNota")
	titolo=oUpload.Form("titolo")
	titolo=replace(titolo,"'","''")
	sommario=oUpload.Form("sommario")
	Sommario=replace(Sommario,"'","''")
	Data=ConvertiData(oUpload.Form("CalendarPopup1"))
	attach=oUpload.Form("valore_attuale_attach")
	'adesso faccio l'upload eventuale
	While Not oUpload.Eof
		quale_campo=oUpload.Files("InputName") 'qui legge quale campo del db è stato aggiornato
		nome_file=oUpload.GetFileName
		'response.write quale_campo
		if quale_campo="attach" then
			if len(attach)>1 then a=cancellaFile("/mediaroom/note/"& attach)
			attach=nome_file
		end if
		oUpload.Save
		oUpload.MoveNext
	Wend
	Set oUpload = Nothing
	'adesso spariamo nel db l'update del documento
	'qui si sceglie se fare UPDATE o INSERT a seconda della pagina di provenienza
	if (instr(request.ServerVariables("HTTP_REFERER"),"edit_ni.asp")>1) then
		'STRINGA SQL: alla fine uno spazio vuoto OCCHIO
		'AGGIUNGI I CAMPI CHE MANCANO PERCHE' NON HO MESSO LA DATA
			sql = "UPDATE note_informative SET "
			if titolo<>"" then sql=sql&"titolo='"&titolo&"', "
			'sql=sql&"data='"&data&"', "
			sql=sql&"attach='"&attach&"', "
			sql=sql&"data=#"&Data&"#, "
			sql=sql&"sommario='"&sommario&"' "
			sql=sql&"WHERE id="& idNota &""
		else 'allora nuovo record
			sql = "INSERT INTO note_informative (titolo, attach, sommario, data) VALUES "
			sql=sql&" ( '"&titolo&"', '" &attach&"', '" &sommario&"', '" &data&"')"
		end if
		'response.write "
"&sql
		set rec = myconn.execute(sql)
		set rec = nothing
		myconn.close
		set myconn = nothing
		
end select
response.Redirect("default_ni.asp")
%>