Expected statement

[zeweb]

MI da questo errore

Expected statement

/admin/upload_eventi.asp, line 74

end select

<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
    set rec = myconn.execute(sql)
    sql="update [Upgrade] set [data]=date()"
    myconn.execute(sql)
    set rec = nothing
    myconn.close
    set myconn = nothing
end select
Response.Write("<p align='left'><span class='avviso'><Sezione Eventi modificata con successo!</span></p>")
%>

[weppos]

Hai aperto un if senza chiuderlo oppure lo hai chiuso in una pozione non valida invertendolo con l'apertura di qualche altro costrutto condizionale.

[zeweb]

non è che puoi aiutarmi sul codice ?

[optime]

c'e' un end select che pare non abbia apertura