Etre soi antra et développement personnel

<%@ language = VBScript%> <% dim rs, strSql, nb_seminaires, tbl_seminaires, nb_formations, tbl_formations, iCpt set rs = server.CreateObject("ADODB.Recordset") rs.cursorLocation = 3 strSql = "SELECT * FROM SEMINAIRE WHERE bActif = 'o' ORDER BY pos" rs.open strSql, cn nb_seminaires = rs.recordCount if nb_seminaires > 0 then reDim tbl_seminaires(nb_seminaires) for iCpt = 1 to nb_seminaires rs.absolutePosition = iCpt tbl_seminaires(iCpt) = " " & rs("titre") & " - " & rs("dates") & " " & rs("lieu") next end if rs.close strSql = "SELECT * FROM FORMATION WHERE bActif = 'o' ORDER BY pos" rs.open strSql, cn nb_formations = rs.recordCount if nb_formations > 0 then reDim tbl_formations(nb_formations) for iCpt = 1 to nb_formations rs.absolutePosition = iCpt tbl_formations(iCpt) = " " & rs("titre") & " - " & rs("dates") & " " & rs("lieu") next end if rs.close function rep(txt) if not isNull(txt) and txt <> "" then rep = replace(txt, """", """) rep = replace(rep, "", "") rep = replace(rep, "", "") else rep = "" end if end function %> Etre soi antra et développement personnel - Inscription > Inscription en ligne

Je m'inscris pour le(s) séminaire(s) suivant(s) :

<%for iCpt = 1 to nb_seminaires%> <%next%>


	<%=tbl_seminaires(iCpt)%>

Je m'inscris pour le(s) tantra(s) couple(s) suivant(s) :

<%for iCpt = 1 to nb_formations%> <%next%>


	<%=tbl_formations(iCpt)%>

Je ne m'inscris pas pour l'instant mais je souhaite :


	Recevoir vos lettres d'informations périodiques (Newsletters).

Vos coordonnées (tous les champs sont requis) :


Nom, prénom	:
Adresse postale	:
N° postal, ville, pays	:
Adresse e-mail	:
Téléphone	:

Votre message et vos commentaires :
Si vous désirez vous inscrire à des stages, n'oubliez pas de préciser leurs dates. N'oubliez pas aussi de vérifier si votre adresse email est exacte afin que je puisse vous répondre. Merci.