FONCTIONS ASP POUR L'AFFICHAGE DE DONNÉES ISSUES D'UNE BASE

<!-- ---------Fonction pour afficher résultats dans un textbox --------->
<%
Function Saisi(valeur, recordset)
	response.Write("<tr valign='baseline'>")
	response.write("<td nowrap align='right'>"&valeur&":</td>")
	dim donnee
	donnee = recordset.Fields.Item(""&valeur&"").Value
	
	'lorsque rien de marqué alors affiche size='35'
	if (IsNull(donnee)) then
		response.write("<td> <input type='text' size='35' name='"&valeur&"' value=''> </td>")
	else
		donnee = Replace(donnee,"'","&acute;")
		response.write("<td> <input type='text' size='35' name='"&valeur&"' value='"&donnee&"'> </td>")
		
	end if
		response.write("</tr>")
End Function
%>

<!-- -----Fonctions utiles lors de l'affichage dans un tableau------->
<%
'afficher l'intitulé de la cellule
Function Saisi(valeur)
	response.write("<th>"&valeur&"</th>")
End Function
'afficher le résultat pour la cellule
Function Saisi2(valeur, recordset)
	dim donnee
	donnee = recordset.Fields.Item(""&valeur&"").Value
	response.write("<td nowrap>&nbsp;"&donnee&"&nbsp;</td>")
End Function
%>