Aggiornare un record di una tabella ad ogni upload

[zeweb]

Ciao a tutti dovrei aggiunggere a questo script per l'upload anche l'aggiornamento di un'altra tabella del DataBase che mi contiene solo una data di aggiornamento del sito.

Dovrei aggiungerla qui... :master:

<link href="style.css" rel="stylesheet" type="text/css">


<%
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


if request.form("func") = "Aggiorna Evento" then
	Set objCon = Server.CreateObject ("ADODB.Connection")
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	objCon.Open strCon
	sql = "Select * from Eventi where ID = "& request.form("ID")
	objRec.Open sql, objCon, 2, 3
	objRec("data") = ConvertiData(trim(request.form("CalendarPopup1")))
	objRec("ora") = trim(request.form("ora"))
	objRec("titolo") = trim(request.form("titolo"))
	objRec("luogo") = trim(request.form("luogo"))
	objRec("descrizione") = trim(request.form("TA"))
	if Not IsNull(luogo) then titolo = replace(luogo,"'","''")
	if Not IsNull(titolo) then titolo = replace(titolo,"'","''")
	if Not IsNull(descrizione) then descrizione= replace(descrizione,"'","''")
	if Not IsNull(autore) then autore = replace(autore,"'","''")
	objRec.Update
	objRec.Close
	objCon.Close
	Set objRec = nothing
	Set objCon = nothing	

elseif request.form("func") = "Pubblica Evento" then
	Set objCon = Server.CreateObject ("ADODB.Connection")
	Set objRec = Server.CreateObject ("ADODB.Recordset")
	objCon.Open strCon
	objRec.Open "Eventi", objCon, 2, 3
	objRec.AddNew
	
	objRec("data") = ConvertiData(trim(request.form("CalendarPopup1")))
	objRec("ora") = trim(request.form("ora"))
	objRec("titolo") = trim(request.form("titolo"))
	objRec("luogo") = trim(request.form("luogo"))
	objRec("descrizione") = trim(request.form("TA"))
	if Not IsNull(luogo) then titolo = replace(luogo,"'","''")
	if Not IsNull(titolo) then titolo = replace(titolo,"'","''")
	if Not IsNull(descrizione) then descrizione= replace(descrizione,"'","''")
	if Not IsNull(autore) then autore = replace(autore,"'","''")
	objRec.Update
	objRec.Close
	objCon.Close
	Set objRec = nothing
	Set objCon = nothing	
	
elseif request.form("func") = "Elimina Evento" then
	Set objCon = Server.CreateObject ("ADODB.Connection")
	objCon.Open strCon
	sql = "Delete from Eventi where ID = "& request.form("ID")
	objCon.execute(sql)
	objCon.Close
	Set objCon = nothing	
end if
Response.Write("<p align='center'><span class='avviso'>Evento modificato con successo!</span></p>")
%>

[zeweb]

non mi aiuta nessuno?

[zeweb]

la tabella si chiama "Upgrade" e il campo è data/ora

[santino83]

a fine script

Set objCon = Server.CreateObject ("ADODB.Connection")
objCon.Open strCon

stringa="update [tabella] set [campodata]=#" & date() & "#"
objCon.execute(stringa)

objCon.close
set objCon=nothing

[zeweb]

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

manca la conenssione ?

/admin/upload_comunicati.asp, line 109

Set objCon = Server.CreateObject ("ADODB.Connection")
objCon.Open strCon

stringa="update [Upgrade] set [data]=#" & date() & "#"
objCon.execute(stringa)

objCon.close
set objCon=nothing

[santino83]

ma che c'è in strCon?

[zeweb]

Scusa mancava del codice, ora funziona!

Grazie