<%@LANGUAGE="VBSCRIPT"%> <% Dim rs__MMColParam rs__MMColParam = "1" If (Request.QueryString("v") <> "") Then rs__MMColParam = Request.QueryString("v") End If %> <% Dim rs Dim rs_cmd Dim rs_numRows Set rs_cmd = Server.CreateObject ("ADODB.Command") rs_cmd.ActiveConnection = MM_conndw_STRING rs_cmd.CommandText = "SELECT id, nom, prenom, titre, presentation, photo FROM whois WHERE id = ?" rs_cmd.Prepared = true rs_cmd.Parameters.Append rs_cmd.CreateParameter("param1", 5, 1, -1, rs__MMColParam) ' adDouble Set rs = rs_cmd.Execute rs_numRows = 0 %> <% Dim rs2__MMColParam rs2__MMColParam = "1" If (Request.QueryString("v") <> "") Then rs2__MMColParam = Request.QueryString("v") End If %> <% Dim rs2 Dim rs2_cmd Dim rs2_numRows Set rs2_cmd = Server.CreateObject ("ADODB.Command") rs2_cmd.ActiveConnection = MM_conndw_STRING rs2_cmd.CommandText = "SELECT id, photo FROM whois WHERE id = ?" rs2_cmd.Prepared = true rs2_cmd.Parameters.Append rs2_cmd.CreateParameter("param1", 5, 1, -1, rs2__MMColParam) ' adDouble Set rs2 = rs2_cmd.Execute rs2_numRows = 0 %> la Marocaine
" alt="Femme Marocaine" width="127" height="110" align="left">
Nom : <%=(rs.Fields.Item("nom").Value)%>
Prenom : <%=(rs.Fields.Item("prenom").Value)%>
Titre : <%=(rs.Fields.Item("titre").Value)%>




Presentation : <%=(rs.Fields.Item("presentation").Value)%>

 

 
<% rs.Close() Set rs = Nothing %> <% rs2.Close() Set rs2 = Nothing %>