<%
Function ParseBody(strText)
strText = Replace(strText, Chr(13), "")
ParseBody = strText
End Function
Dim myConnString
Dim myConnection
Dim mySQL
Dim objRS
Dim strBody
Dim strBody1
Dim strBody2
Dim strBody3
Dim strBody4
Dim strBody5
Dim strBody6
Dim strBody7
Dim strBody8
Dim strBody9
Dim strBody10
Dim strBody11
Dim strBody12
Dim strBody13
Dim strBody14
Dim strBody15
Dim strBody16
Dim strBody17
Dim strBody18
Dim total
dim xurl
dim compt
dim deb
dim fin
dim objConn
dim TAB1
dim TAB2
dim TAB3
dim TAB31
dim TAB4
dim TAB42
dim TAB5
dim TAB50
dim TAB51
dim TAB525
dim TAB515
dim TAB516
dim TAB6
dim TAB7
dim TAB8
dim TABLIEN
dim saut2
saut2="
"
dim V_AN
dim V_MOIS
dim M_MONTH
dim TE1
dim TE2
dim TE3
dim TE4
TE1="
" TAB31=" | " TAB4= "" TAB42= " | " TAB5=" | " TAB525=" | " TAB515=" | " TAB516=" | " TAB50=" | " TAB51=" | " TAB6= "
" F2= "
" dim M2 objRS.Open strSQL, objConn, adOpenStatic,adLockReadOnly Do Until objRS.EOF = True M1= F1 & objRS("Enseigne").Value & F2 'if objRS("STP").Value = "oui" then strBody1= TAB1 & TAB2 & TAB3 & M1 & TAB31 M2= F1 & objRS("commune").Value & F2 strBody1= strBody1 & TAB516 & M2 & TAB51 strBody5= TAB525 & F1 & "" & "En savoir plus" & "" & F2 & TAB51 TABLIEN = F1 & "" & "e-mail" & "" & F2 strBody6= TAB516 & TABLIEN & TAB51 strBody7= TAB515 & F1 & objRS("teleph").Value & F2 & TAB51 strBody17= TAB6 & TAB7 strBody18=strBody1 & strbody5 & strBody6 & strbody7 & strBody17 response.write strBody18 'end if objRS.Movenext Loop objRS.close strBody1= TAB1 & TAB2 & TAB3 & "" & TAB31 strBody18=strBody1 & strBody17 response.write strBody18 response.write strBody18 response.write strBody18 objConn.close %>