Pub
<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=1206179362" &_ "&client=ca-mb-pub-9581558959281898" &_ "&color_border=" & googleColor("555555", googleTime) &_ "&color_bg=" & googleColor("FFFFFF", googleTime) &_ "&color_link=" & googleColor("32527A", googleTime) &_ "&color_text=" & googleColor("000000", googleTime) &_ "&color_url=" & googleColor("11593C", googleTime) &_ "&dt=" & googleDt &_ "&format=mobile_double" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>
<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=1206179362" &_ "&client=ca-mb-pub-9581558959281898" &_ "&color_border=" & googleColor("555555", googleTime) &_ "&color_bg=" & googleColor("FFFFFF", googleTime) &_ "&color_link=" & googleColor("32527A", googleTime) &_ "&color_text=" & googleColor("000000", googleTime) &_ "&color_url=" & googleColor("11593C", googleTime) &_ "&dt=" & googleDt &_ "&format=mobile_double" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>
Samouraï Productions
Spécialisé dans les musiques actuelles et notamment le reggae, le dance-hall et le hiphop, Samouraï Productions est partenaire d'iworksmusic pour les développements mobiles et Internet.
Plus d'infos sur www.samouraiprod.com
Spécialisé dans les musiques actuelles et notamment le reggae, le dance-hall et le hiphop, Samouraï Productions est partenaire d'iworksmusic pour les développements mobiles et Internet.
Plus d'infos sur www.samouraiprod.com
Abs Belissima
Novateur dans la e-distribution, Christophe Fiamma, créateur de Abs Bellissima est notre partenaire privilégié dans la commercialisation musicale digitale. Plus d'infos sur www.abs-bellissima.com
Novateur dans la e-distribution, Christophe Fiamma, créateur de Abs Bellissima est notre partenaire privilégié dans la commercialisation musicale digitale. Plus d'infos sur www.abs-bellissima.com
Marabi Productions
On ne présente plus Marabi et son créateur Christian Mousset qui a découvert et a fait venir en France, entre autre Césaria Evora, Johnny Clegg, Baboucar Traoré, Malouma... Egalement, directeur artistique du Festival Musiques Métisses à Angoulême, Christian est un amateur et fin connaisseur des musiques du monde et, en particulier, celles venues du continent africain.
Plus d'infos sur www.marabi.net
On ne présente plus Marabi et son créateur Christian Mousset qui a découvert et a fait venir en France, entre autre Césaria Evora, Johnny Clegg, Baboucar Traoré, Malouma... Egalement, directeur artistique du Festival Musiques Métisses à Angoulême, Christian est un amateur et fin connaisseur des musiques du monde et, en particulier, celles venues du continent africain.
Plus d'infos sur www.marabi.netCristal Production
Cristal Production est célèbre pour son catalogue Jazz, Accordéon, Classique... Eric Debègue, fondateur du Label Productions s'est installé il y a quelques années à La Rochelle. Le groupe Cristal comporte les activités de production, d'édition et la gestion du studio d'enregistrement L'alhambra. Dans ce même lieu à Rochefort, dans le département des Charentes-Maritimes, se trouve Cristal Shop, un cyber café où vous pouvez déguster des jus de fruits tout en écoutant de la musique, que l'on peut acheter sur place.
Plus d'infos sur www.cristalprod.com
Cristal Production est célèbre pour son catalogue Jazz, Accordéon, Classique... Eric Debègue, fondateur du Label Productions s'est installé il y a quelques années à La Rochelle. Le groupe Cristal comporte les activités de production, d'édition et la gestion du studio d'enregistrement L'alhambra. Dans ce même lieu à Rochefort, dans le département des Charentes-Maritimes, se trouve Cristal Shop, un cyber café où vous pouvez déguster des jus de fruits tout en écoutant de la musique, que l'on peut acheter sur place.
Plus d'infos sur www.cristalprod.com