print

Reçu d'inscription

<% dim AcomptesT, TaxT if sCodeM <> "" then strSql1 = "SELECT * FROM Inscriptions where CodeM = " & sCodeM &" and AnnulerIns = false " Set rsQuery1 = Conn.Execute(strSql1) while Not rsQuery1.eof '************************* strSql = "SELECT * FROM Activites where CodeA = " & rsQuery1("CodeA") Set rsQuery = Conn.Execute(strSql) If Not rsQuery.EOF Then NomA = rsQuery("Nom") end if '*************************** %> <% rsQuery1.MoveNext wend %> <%end if%>

Nom :

<%=Nom%>

Prénom :

<%=Prenom%>

Adresse :

<%=Adresse%>

Ville :

<% if Ville <> "" then strSql1 = "SELECT * FROM Ville where CodeV = "&int(Ville)&"" Set rsQuery1 = Conn.Execute(strSql1) If Not rsQuery1.EOF Then NomV = rsQuery1("Nom") end if end if Response.Write NomV %>

Quartier :

<% if Region <> "" then strSql1 = "SELECT * FROM Quartier where CodeQ = "&int(Region)&"" Set rsQuery1 = Conn.Execute(strSql1) If Not rsQuery1.EOF Then NomQ = rsQuery1("Nom") end if end if Response.Write NomQ %>

Tél. résidence :

<%=TelR%>

Tél. travail :

<%=TelT%>

Activité(s)

Date début

Date fin

Local

jours

Semaines

Session

Hrs début

Hrs fin

<%=NomA%>

<% %>

<%if sTRabais <> "" then Response.write (FormatNumber (sTRabais,2)) else Response.write ("0.00") end if%>

<%if TApresRabais <> "" then Response.Write FormatNumber(TApresRabais,2) else Response.Write ("0.00") end if %>

<%if sTx = true and sTPS <> "" then Response.write FormatNumber (sTPS,2) else Response.write ("0.00") end if%>

<%if sTx = true and sTVQ <> "" then Response.write FormatNumber (sTVQ,2) else Response.write ("0.00") end if%>

<%if TotalG <> "" then Response.Write FormatNumber(TotalG,2) else Response.Write ("0.00") end if %>

<%if MontantRecu <> "" then Response.Write FormatNumber(MontantRecu,2) else Response.Write ("0.00") end if %>

<%if Solde <> "" then Response.Write FormatNumber(Solde,2) else Response.Write ("0.00") end if %>