<% Typ = Request.QueryString("Type") 'offre ou demande Rub = Request.QueryString("Rubric") 'ATTENTION ATTENTION J'AI MIS DES COMMENTAIRE SUR TOUT CE QUI CONCERNE SESSION '-------------------------------------------------------------------------JACQUES- 'JE LES ENLLEVES APRES MODIFICATION DU SESSION STATES TIMEOUT (1) DANS LE SERVEUR '-------------------------------------------------------------------------FRED---- 'Session.timeout = 5 If IsObject(Session("PASP_conn")) Then Set conn = Session("PASP_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "PASP","PASP","PASP" Set Session("PASP_conn") = conn End If Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT Rubriques.IDRUBRIC,parm_01.IDPa, parm_01.Vteach, Rubriques.Nom, Rubriques.NomHTML, Rubriques.Url, Rubriques.Image, parm_01.Email, parm_01.Annonce, parm_01.Ville, parm_01.Pays, parm_01.Date FROM parm_01 INNER JOIN Rubriques ON parm_01.Rubric = Rubriques.Nom " sql = sql & " WHERE [IDRUBRIC] = " & cstr(Rub) & " AND [Vteach] = " & cstr(Typ) sql = sql & " ORDER BY parm_01.Date DESC" rs.Open sql, conn, 3, 3 rs.PageSize = 10 ' Number of rows per page ScrollAction = Request("ScrollAction") if ScrollAction <> "" Then PageNo = mid(ScrollAction, 5) if PageNo < 1 Then PageNo = 1 end if else PageNo = 1 end if if Not rs.eof then rs.AbsolutePage = PageNo end If %> REALITY MEDIA - Petites annonces classées .jpg" TEXT=#4d4d4d link=#ce4a88 vlink=#ce4a88 alink=#0000ff topmargin="0" leftmargin="0">
  <%=rs("Nom")%>  - <%=rs("Vteach")%>
choisir une autre rubrique
  <% Set Ad = Server.CreateObject("MSWC.Adrotator") %> <%= Ad.GetAdvertisement("img/sponsor/" & rs("Vteach") & "/" & rs("NomHTML") & ".txt" ) %>
<% 'Do while not (rs is nothing) RowCount = rs.PageSize Do While Not rs.eof and rowcount > 0 %> <%= Day(rs("Date"))%>/<%= Month(rs("Date"))%>/<%= Year(rs("Date"))%>    <% if (rs("Ville")<>"") then response.write("de " & Server.HTMLEncode(rs("Ville")) & "  ") if (rs("Pays")<>"") then response.write("en " & Server.HTMLEncode(rs("Pays")) & "") response.write("

"& rs("Annonce") & "") %>



<% RowCount = RowCount - 1 rs.MoveNext Loop ' set rs =rs.NextRecordSet ' Loop %>

  <% if PageNo > 1 Then %> "> <% else %>  <% end if %> <% if RowCount = 0 Then %> "> <% else %>  <% end if %>



Ajouter une Petite Annonce

Une autre rubrique

Sponsor/Parrain : Réservez votre rubrique

Email privé gratuit pour vos reponses

Retour sur Francophones.net

Email pa@reality.be
Copyright © 2000-2001 Reality Media. Tous droits réservés.
<% Set Od = CreateObject("Scripting.FileSystemObject") flog = server.mappath("palog.log") Set objfile=Od.openTextFile(flog,8,true) Objfile.writeline (date & " - " & time & " - " & Rub & " - " & request.servervariables("HTTP_USER_AGENT")) Objfile.close Set Od=Nothing %>