<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

		<% On Error Resume Next id = Request.QueryString("id") '-iscrizione newsletter dim sName, sEmail, sMessage,sOggetto 'sName = Request.Form("Name") sEmail = Request.Form("email") 'sMessage = Request.Form("Message") 'sOggetto = Request.Form("Oggetto") if sEmail <> "" then dim oMail Set oMail = Server.CreateObject("CDONTS.NewMail") oMail.To = "info@bergamofilmmeeting.it" oMail.From = "richiesta-web@bergamofilmmeeting.it" oMail.Subject = "Richiesta di iscrizione alla Newsletter" oMail.Body = "Richiesta di iscrizione per l'indirizzo email: " & sEmail oMail.MailFormat = 1 oMail.BodyFormat = 1 oMail.Send Set oMail = Nothing id = "999" end if If id <> "" then Select case id CASE "001" Server.Execute("associazione.html") CASE "002" Server.Execute("distribuzione.html") CASE "003" Server.Execute("editoria.html") CASE "004" Server.Execute("story.html") CASE "005" Server.Execute("extra.html") CASE "006" Server.Execute("bfm_sezioni.html") CASE "007" Server.Execute("bfm_iscrizione.html") CASE "008" Server.Execute("bfm_calendario.html") CASE "009" Server.Execute("bfm_eventi.html") CASE "010" Server.Execute("bfm_incontri.html") CASE "011" Server.Execute("bfm_listafilm.html") CASE "012" Server.Execute("util_accrediti.html") CASE "013" Server.Execute("util_biglieabb.html") CASE "014" Server.Execute("util_luoghi.html") CASE "015" Server.Execute("util_citta.html") CASE "016" Server.Execute("press_comunicati.html") CASE "017" Server.Execute("press_foto.html") CASE "018" Server.Execute("press_rassegnastampa.html") CASE "019" Server.Execute("staff.html") CASE "020" Server.Execute("contatti.html") CASE "021" Server.Execute("partners.html") CASE "022" Server.Execute("links.html") CASE "023" Server.Execute("sostieni.html") CASE "024" Server.Execute("cinque.html") CASE "025" Server.Execute("newsletter.html") CASE "026" Server.Execute("editoria_cat.html") CASE "027" Server.Execute("editoria_mon.html") CASE "028" Server.Execute("story_rassegne.htm") CASE "029" Server.Execute("story_vincitori.htm") CASE "030" Server.Execute("press_foto_clair.html") CASE "031" Server.Execute("press_foto_concorso.html") CASE "032" Server.Execute("press_foto_francis.html") CASE "033" Server.Execute("press_foto_marker.html") CASE "034" Server.Execute("press_foto_medem.html") CASE "035" Server.Execute("press_foto_visti da vicino.html") CASE "036" Server.Execute("press_foto_jazz.html") CASE "037" Server.Execute("press_foto_cult.html") CASE "038" Server.Execute("bfm_sezioni_concorso.html") CASE "039" Server.Execute("bfm_sezioni_clair.html") CASE "040" Server.Execute("bfm_sezioni_medem.html") CASE "041" Server.Execute("bfm_sezioni_francis.html") CASE "042" Server.Execute("bfm_sezioni_visti.html") CASE "043" Server.Execute("bfm_sezioni_marker.html") CASE "044" Server.Execute("bfm_sezioni_barnet.html") CASE "045" Server.Execute("bfm_sezioni_jazz.html") CASE "046" Server.Execute("bfm_sezioni_maratona.html") CASE "047" Server.Execute("bfm_sezioni_anteprime.html") CASE "048" Server.Execute("bfm_sezioni_riscoperte.html") CASE "049" Server.Execute("bfm_sezioni_cult.html") CASE "050" Server.Execute("bfm_sezioni_25anni.html") CASE "051" Server.Execute("press_foto_riscoperte.html") CASE "052" Server.Execute("press_foto_anteprime.html") CASE "053" Server.Execute("press_foto_barnet.html") CASE "054" Server.Execute("press_foto_festival.html") CASE "055" Server.Execute("bfm_sezioni_cinelatino.html") CASE "056" Server.Execute("bfm_sezioni_cinelatino2.html") CASE "057" Server.Execute("home_2.html") CASE "058" Server.Execute("avanti special.html") CASE "059" Server.Execute("p059.html") CASE "060" Server.Execute("p060.html") CASE "061" Server.Execute("p061.html") CASE "062" Server.Execute("p062.html") CASE "063" Server.Execute("p063.html") CASE "064" Server.Execute("p064.html") CASE "065" Server.Execute("p065.html") CASE "066" Server.Execute("p066.html") CASE "067" Server.Execute("p067.html") CASE "068" Server.Execute("p068.html") CASE "069" Server.Execute("p069.html") CASE "070" Server.Execute("p070.html") CASE "071" Server.Execute("p071.html") CASE "072" Server.Execute("p072.html") CASE "073" Server.Execute("p073.html") CASE "074" Server.Execute("p074.html") CASE "075" Server.Execute("p075.html") CASE "076" Server.Execute("p076.html") CASE "077" Server.Execute("p077.html") CASE "078" Server.Execute("p078.html") CASE "079" Server.Execute("p079.html") CASE "080" Server.Execute("p080.html") CASE "999" Server.Execute("newsletter_ok.html") CASE Else Server.Execute("home.html") End select Else Server.Execute("home.html") End If %>