<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Vente appartement et maison, villa à Cannes 06 Agent immobilier
Achat, Vente d'une Villa , Maison sur Cannes


JPB international Agence Immobiliere sur internet a sélectionné des propriétés de caractère sur Cannes, le Cannet, Vallauris

Google
consulter notre sélection de maisons, villas, appartement à proxilité de Cannes. <% Dim SqlJunk, condition, prix Const intpageSize=20 Dim intCurrentpage, dbGlobalweb, rsGlobalweb Dim intTotalPages, intI 'on error resume next Session.LCID=1036 '************************************************************* ' test si c'estune première recherche ou la suite d'une recherche (next ou previous) '************************************************************* Session("reference")="" intCurrentPage=1 If Request.QueryString("CurrentPage")>0 Then intCurrentPage=Cint(Request.QueryString("CurrentPage")) ' intCurrentPage=1 Select Case Request.Querystring("navig") Case "Previous" intCurrentPage=intCurrentPage -1 Case "Next" intCurrentPage=intCurrentPage +1 End Select End If session("web")=session("web")& "page:Cannes;" & session("intcurrentpage")&";" SqlJunk = "SELECT * FROM T1 WHERE nature LIKE 'achat' AND region LIKE 'Cannes' "&" ORDER BY priorite" '*************************************************************** 'ouverture d'une connection à la base de données '*************************************************************** 'dbGlobalWeb.Open("baselocation") Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset") rsGlobalweb.CursorLocation=adUseClient rsGlobalweb.CursorType=adOpenStatic rsGlobalweb.CacheSize=intPageSize rsGlobalWeb.Open sqljunk,dbGlobalWeb, , ,adCmdText rsGlobalweb.PageSize=intPageSize If Not(rsGlobalweb.EOF) then rsGlobalweb.AbsolutePage =intCurrentPage intTotalPages= rsGlobalweb.PageCount %>
  cliquer sur la photo pour voir le descriptif et d'autres photos
<% '********************************************************************* ' test si le recorset est vide ''******************************************************************** If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then response.write "Aucun bien référencé dans notre base ne correspond à votre demande
" response.write "cliquer ici pour recevoir d'autres offres répondant à vos attentes" Else '********************************************************************* ' le recordset n'est pas vide ''******************************************************************** dispo="" For intI = 1 to rsGlobalWeb.Pagesize '********************************************************************* ' positionne l'adresse des photos ''******************************************************************** 'repertoire des photos adrphotos="..//photos_web/" & rsGlobalWeb("reference") query="region=Cannes" %> <% rsGlobalWeb.MoveNext If rsGlobalWeb.EOF then Exit For Next End If '****************************************************************************** 'fermeture des objets ouverts '****************************************************************************** rsGlobalWeb.Close Set rsGlobalweb=nothing dbGlobalWeb.Close Set dbglobalweb=nothing %>
prix: <%if rsglobalweb("prix_hte")>0 then response.write (formatnumber(rsGlobalWeb("prix_hte"),0) &" €") else response.write "nous contacter "%>    
<%=rsGlobalWeb("descriptionext_f")%>
 

   <% If intCurrentPage>1 then %> <% End If If intCurrentPage <> intTotalPages Then%> <% End If %>

Back To Home Page


(c) Copyright 2000 JPBinternational