<% Server.ScriptTimeout = 36000 strPath = Server.MapPath("bd/guitar.mdb") strPath2 = Server.MapPath("mp3do") 'strPath2 = Server.MapPath("mp3do") 'strPath = "C:\Sites\single21\donaldloignon\database\guitar.mdb" strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strPath Set conn = Server.CreateObject("ADODB.Connection") conn.open strconn ext = cint (replace (Request.QueryString("ext"),"'" ,"''",1)) if Request.QueryString("lg") = "en" then Langue = "Anglais" else Langue = "Français" end if AdresseIp = Request.ServerVariables("REMOTE_ADDR") Visiteurs = Request.ServerVariables ("HTTP_USER_AGENT") if session ("Referer") <> "" then PageAvant = session ("Referer") PageAvant = replace (PageAvant,"'" ,"''",1) else PageAvant = "Direct" end if ladate = date if request.QueryString("ext") = "1" then Titre = "Maître de ton destin - extrait 1" AdresseSon = "donaldguitar_com_Maitre_de_ton_destin.mp3" elseif request.QueryString("ext") = "3" then AdresseSon = "donaldguitar_com_Douce_melodie.mp3" elseif request.QueryString("ext") = "4" then AdresseSon = "donaldguitar_com_Notestorm.mp3" elseif request.QueryString("ext") = "5" then AdresseSon = "donaldguitar_com_Stranger_Forever.mp3" elseif request.QueryString("ext") = "7" then AdresseSon = "donaldguitar_com_My_son.mp3" elseif request.QueryString("ext") = "9" then AdresseSon = "donaldguitar_com_Feeling.mp3" elseif request.QueryString("ext") = "10" then AdresseSon = "donaldguitar_com_Serenade.mp3" elseif request.QueryString("ext") = "11" then AdresseSon = "donaldguitar_com_Vieux_bazou.mp3" elseif request.QueryString("ext") = "12" then AdresseSon = "donaldguitar_com_Peanut_butter_man.mp3" elseif request.QueryString("ext") = "13" then Titre = "Nostalgie " AdresseSon = "donaldguitar_com_Nostalgie.mp3" elseif request.QueryString("ext") = "14" then AdresseSon = "donaldguitar_com_Guerrier_de_l_espoir.mp3" elseif request.QueryString("ext") = "15" then AdresseSon = "donaldguitar_com_Haute_voltige.mp3" elseif request.QueryString("ext") = "16" then AdresseSon = "donaldguitar_com_Haute_voltige.mp3" elseif request.QueryString("ext") = "17" then AdresseSon = "donaldguitar.zip" elseif request.QueryString("ext") = "18" then AdresseSon = "donaldguitar_com_WereOnlyHuman.mp3" elseif request.QueryString("ext") = "19" then AdresseSon = "donaldguitar_com_WhiteChristmas2010.mp3" else AdresseSon = "donaldguitar_com_Haute_voltige.mp3" end if strSQL = "INSERT INTO Telechargement (AdresseIp,Langue,Visiteurs,ext,ladate, NomDuFichier, PageAvant) VALUES ('" & AdresseIp & "','" & Langue & "','" & Visiteurs & "'," & ext & ",'" & ladate & "','" & AdresseSon & "','" & PageAvant & "' )" Conn.Execute strSQL response.redirect ("mp3do/" & AdresseSon) response.end %>