| |
| |
<%
Dim NumPageEnCours
Dim TaillePage
Dim MaxPages
Dim MaxEnrgs
Dim CombienDeRecs
Dim MonObjRS
DSN_base="DRIVER={Microsoft Access Driver (*.mdb)};" &"DBQ=" & Server.MapPath(".") &"/ms2.mdb;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN_BASE
Set fs = Server.CreateObject("Scripting.FileSystemObject")
NumPageEnCours = Request("quelpage")
If NumPageEnCours = "" then NumPageEnCours = 1
TaillePage = Request("taillepage")
If TaillePage = "" Then TaillePage = 3
' Si vous souhaitez mettre vous même la taille maxi du nombre d'enregeistrement par page
' mettez en commentaire les 2 lignes précédentes et mettez par ex : TaillePage = 16
Set MonObjRS = Server.CreateObject("ADODB.Recordset")
MonObjRS.cachesize = 2
' Obtention des informations de recherche
types="MANUTENTION"
%>
<%
'Verification des caracteres numeriques ou obligatoires
%>
<%'Recherche en fonction des choix de l internaute
sqlstring = "SELECT *" & "FROM ms WHERE Rubrique = '"& types &"' "
Set Rs = conn.Execute(sqlstring)
MonObjRS.Open sqlstring, conn, 3, 3
MonObjRS.pagesize = TaillePage
MaxPages = CInt(MonObjRS.pagecount)
MaxEnrgs = CInt(MonObjRS.pagesize)
If Not MonObjRS.EOF Then MonObjRS.absolutepage = NumPageEnCours else compteur=3
CombienDeRecs = 0%>
<%compt=0%>
<%Do UNTIL MonObjRS.EOF OR CombienDeRecs >= MaxEnrgs%>
<%compt=compt+1%>
<%photo= MonObjRS("Photos1")%>
<% if (photo <>"" and compt = 1 ) then%>
<%texte= MonObjRS("Reference")%>
<%texte2= texte +".txt"%>
<%CheminLocal = Server.MapPath(".\texte\") & "\" ' Dossier d'upload par defaut %>
<%Set fichier= fs.OpenTextFile(CheminLocal &texte2)%>
<%=MonObjRS("Intitule")%>
|
Caractéristiques
:
<%WHILE NOT fichier.AtEndOfStream%>
<%Response.write fichier.ReadLine%>
<%WEND%>
|
| Prix
: à partir de <%=MonObjRS("Prix")%> |
<%fichier.close%>
<%end if%>
<% if ( MonObjRS("Photos1")<>"" and compt = 2 ) then%>
<%texte= MonObjRS("Reference")%>
<%texte2= texte +".txt"%>
<%CheminLocal = Server.MapPath(".\texte\") & "\" ' Dossier d'upload par defaut %>
<%Set fichier= fs.OpenTextFile(CheminLocal &texte2)%>
Caractéristiques
:
<%WHILE NOT fichier.AtEndOfStream%>
<%Response.write fichier.ReadLine%>
<%WEND%>
|
<%=MonObjRS("Intitule")%>
|
| Prix
: à partir de <%=MonObjRS("Prix")%> |
<%fichier.close%>
<%end if%>
<% if ( MonObjRS("Photos1")<>"" and compt = 3 ) then%>
<%texte= MonObjRS("Reference")%>
<%texte2= texte +".txt"%>
<%CheminLocal = Server.MapPath(".\texte\") & "\" ' Dossier d'upload par defaut %>
<%Set fichier= fs.OpenTextFile(CheminLocal &texte2)%>
<%=MonObjRS("Intitule")%>
|
Caractéristiques
:
<%WHILE NOT fichier.AtEndOfStream%>
<%Response.write fichier.ReadLine%>
<%WEND%>
|
| Prix
: à partir de <%=MonObjRS("Prix")%> |
<%fichier.close%>
<%end if%>
<%
MonObjRS.MoveNext
CombienDeRecs = CombienDeRecs + 1
Loop
%>
<%Call PagingBar()%>
<%
Sub PagingBar()
Dim StrHTML
Dim PageEnCours
Dim CompteurFin, CompteurDebut
Dim i, LesVars
If MaxPages <> 0 Then
PageEnCours = Request.ServerVariables("script_name")
Response.Write ""
Response.Write ""
Response.Write ""
LesVars = ""
For each Item In Request.Form
If LCase(Item) <> "quelpage" And LCase(Item) <> "taillepage" Then
LesVars = LesVars & "&" & LCase(Item) & "=" & server.URLencode(Request.Form(Item))
End If
Next
For each Item In Request.QueryString
If LCase(Item) <> "quelpage" And LCase(Item) <> "taillepage" Then
LesVars = LesVars & "&" & LCase(Item) & "=" & server.URLencode(Request.QueryString(Item))
End If
Next
If (NumPageEnCours mod 10) = 0 Then
CompteurDebut = NumPageEnCours - 9
Else
CompteurDebut = NumPageEnCours - (NumPageEnCours mod 10) + 1
End If
CompteurFin = CompteurDebut + 9
If CompteurFin > MaxPages Then CompteurFin = MaxPages
If CompteurDebut <> 1 Then
StrHTML = "Première page : "
Response.Write StrHTML
StrHTML = "10 pages Précédente
"
Response.Write StrHTML
End If
Response.Write "["
For i = CompteurDebut To CompteurFin
If cstr(i) <> Cstr(NumPageEnCours) Then
StrHTML = "" & i & ""
Else
StrHTML = "" & i & ""
End If
Response.Write StrHTML
If i <> CompteurFin Then Response.Write " "
Next
Response.Write "]"
If CompteurFin <> MaxPages Then
StrHTML = "
10 pages Suivantes"
Response.Write StrHTML
StrHTML = " : Dernière page"
Response.Write StrHTML
End If
Response.Write "
"
Response.Write " | "
Response.Write "
"
End If
End Sub
%>
|
|
|
