%@ language = VBScript%>
<%
dim rs, strSql, nb_formations, page_en_cours, iCpt
set rs = server.CreateObject("ADODB.Recordset")
rs.cursorLocation = 3
strSql = "SELECT * FROM FORMATION WHERE bActif = 'o' ORDER BY pos"
rs.open strSql, cn
nb_formations = rs.recordCount
if not isNull(request.QueryString("p")) and request.QueryString("p") <> "" then
page_en_cours = CInt(request.QueryString("p"))
if page_en_cours > nb_formations then page_en_cours = nb_formations
else
page_en_cours = 1
end if
if nb_formations > 0 then
rs.absolutePosition = page_en_cours
dates = rs("dates")
titre = rs("titre")
lieu = rs("lieu")
libelle = rep(rs("libelle"))
info_prix = rep(rs("info_prix"))
info_lieu = rep(rs("info_lieu"))
info_horaires = rep(rs("info_horaires"))
info_hebergement = rep(rs("info_hebergement"))
info_repas = rep(rs("info_repas"))
info_inscriptionversarrhes = rep(rs("info_inscriptionversarrhes"))
info_versementsolde = rep(rs("info_versementsolde"))
info_desistement = rep(rs("info_desistement"))
rs.close
end if
function rep(txt)
if not isNull(txt) and txt <> "" then rep = replace(txt, vbCrLf, "
") else rep = ""
'recherche d'un lien
posLien = inStr(rep, "http://")
if posLien = 0 then posLien = inStr(rep, "www.")
if posLien <> 0 then
posFinLien = inStr(posLien, rep, vbCrLf)
if posFinLien = 0 then posFinLien = inStr(posLien, rep, " ")
if posFinLien = 0 then posFinLien = len(rep)
url = mid(rep, posLien, (posFinLien - posLien + 1))
if inStr(rep, "http://") = 0 then url2 = "http://" & url else url2 = url
rep = replace(rep, url, "" & url & "")
end if
end function
%>