<%@LANGUAGE="VBSCRIPT"%><% ' *** Insert Record: construct a sql insert statement and execute it MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If If (CStr(Request("MM_insert")) <> "") Then MM_tableName = "abonnes" MM_fields = "email,email,',none,'',nom,nom,',none,'',dept,dept,',none,'',sax,sax,none,1,0,claviers,claviers,none,1,0,batteur,batteur,none,1,0,guitare,guitare,none,1,0,accordeon,accordeon,none,1,0,toutes,toutes,none,1,0" MM_redirectPage = "index.asp" ' create the insert sql statement MM_tableValues = "" MM_dbValues = "" MM_fieldsArray = Split(MM_fields, ",") For i = LBound(MM_fieldsArray) To UBound(MM_fieldsArray) Step 5 FormVal = CStr(Request.Form(MM_fieldsArray(i))) Delim = MM_fieldsArray(i+2) If (Delim = "none") Then Delim = "" AltVal = MM_fieldsArray(i+3) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_fieldsArray(i+4) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fieldsArray)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_fieldsArray(i+1) MM_dbValues = MM_dbValues & FormVal Next MM_insertStr = "insert into " & MM_tableName & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" ' finish the sql and execute it Set MM_insertCmd = Server.CreateObject("ADODB.Command") MM_insertCmd.ActiveConnection = "dsn=mailing_carredas;" MM_insertCmd.CommandText = MM_insertStr MM_insertCmd.Execute ' redirect with URL parameters If (MM_redirectPage = "") Then MM_redirectPage = CStr(Request("URL")) End If If (InStr(1, MM_redirectPage, "?", vbTextCompare) = 0 And (Request.QueryString <> "")) Then MM_redirectPage = MM_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(MM_redirectPage) End If %> Toutes les musiques
 
::Ouverture officielle du site prochainement::
Edito_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
Bienvenue sur touteslesmusiques.com !
Prochainement en ligne, touteslesmusiques.com vous ouvrira une nouvelle fenêtre sur le monde de la musique telle que vous l'aimez, telle que vous la pratiquez.

Nous travaillons actuellement à la construction des futures rubriques.
 
 N'hésitez pas à nous écrire info@carredas-editions.com pour nous faire part de vos suggestions concernant ce que vous souhaitez trouver sur "votre" prochain site touteslesmusiques.com

Par ailleurs vous pouvez vous inscrire dès maintenant à notre mailing list afin d'être prévenus dès l'ouverture du site et peu-être participer à un tirage au sort surprise, en cadeau d'ouverture.
Bon surf !
 
Mailing List///////
E-mail _ _ _ _ _ _ _ _ _ _ _
Nom_ _ _ _ _ _ _ _ _ _ _ _
Département_ _ _ _ _ _ _ _
Vos sensibilités musicales :
Sax Magazine
Claviers Magazine
Batteur Magazine
Guitare Magazine
Accordéon Magazine
Toutes les Musiques

La mailing list permet de vous tenir informé des dernières évolutions
du site.