[an error occurred while processing this directive] [an error occurred while processing this directive] <% Dim Cp,Tp,Pd,rA,Np,Pp Dim sType,sLoc,wc,wc1 const RecPerPage = 2 wc = "": wc1 = "" Cp = request.form("CurrentPage") sType = cint(0&request.form("seltype")) sLoc = cint(0&request.form("selloc")) if sType <> 0 then wc = " and i.typeid = " & stype wc1 = " where i.typeid = " & stype end if if sLoc <> 0 then wc = wc & " and i.locid = " & sloc if wc1 = "" then wc1 = " where i.locid = " & sloc else wc1 = wc1 & " and i.locid = " & sloc end if set Aji = new Ajinkara Set Pd = New PageDisplay function LoadPage Pd.connect strConn Pd.recPerPage = RecPerPage Pd.CurrentPage = Cp Pd.NavStyle = "page" If request.QueryString("Index") <> "" Then Pd.TopSql = "Select Top " & RecPerPage & " i.*,t.type,l.loc from (prop_item i left join prop_type t on i.typeid = t.typeid) left join prop_loc l on i.locid = l.locid where i.catid = " & Request.QueryString("Index") & wc & " ORDER BY i.id DESC" Pd.MainSql = "Select i.*,t.type,l.loc from (prop_item i left join prop_type t on i.typeid = t.typeid) left join prop_loc l on i.locid = l.locid where i.catid = " & Request.QueryString("Index") & wc & " ORDER BY i.id DESC" Pd.CountSql = "Select count(i.id) from (prop_item i left join prop_type t on i.typeid = t.typeid) left join prop_loc l on i.locid = l.locid where i.catid = " & Request.QueryString("Index") & wc else Pd.TopSql = "Select Top " & RecPerPage & " i.*,t.type,l.loc from (prop_item i left join prop_type t on i.typeid = t.typeid) left join prop_loc l on i.locid = l.locid" & wc1 & " ORDER BY i.id DESC" Pd.MainSql = "Select i.*,t.type,l.loc from (prop_item i left join prop_type t on i.typeid = t.typeid) left join prop_loc l on i.locid = l.locid" & wc1 & " ORDER BY i.id DESC" Pd.CountSql = "Select count(i.id) from (prop_item i left join prop_type t on i.typeid = t.typeid) left join prop_loc l on i.locid = l.locid" & wc1 end if Pd.Load() Np = Pd.NextPage Pp = Pd.PreviousPage End Function LoadPage %> <% pageheading = "Property Listing"%> <%=Organisation & " - " & pagetitle %>
[an error occurred while processing this directive]
  [an error occurred while processing this directive]
<%=pageheading%>
 

[an error occurred while processing this directive]
" method="post" name="frmprop">
  Type: 
  Location:   
<%If Pd.foundRecord then%>
<%Aji.write("Page " & Pd.CurrentPage & " of " & Pd.TotalPage)%>
<%End IF%> <% If Pd.foundRecord then While not Pd.EOF %> <% Pd.movenext Wend Else %> <% End If %>
', '', 'width=800,height=800');MyWin.moveTo(400,200);"> <%If not IsImage(propImgloc & "/" & Pd.fields("pic") ) then Response.Write("") Else Response.Write( "") End If %>
Type of Property: <%=Pd.fields("type")%>
Description: <%=Pd.fields("Desc")%>
Price: <% 'if false then response.write(Pd.fields("price")) %>

Location: bullet <%=Pd.fields("loc")%>
Contact: bullet <%=Pd.fields("contact")%>
   
 
   <%response.Write("no found record. ")%>

 
  For more information call Sola on 08063259388; Andrew on 08028497889;  
     
         
  email your friend   Tell A friend
Print
 Print  
     
<%If Pd.foundRecord then%>
<% dim lbola dim nbola nbola = 1 lbola = Pd.TotalPage do while lbola > 0 %> <% Aji.write(nbola) %> | <% lbola = lbola- 1 nbola = nbola + 1 loop %>   
<%End If%>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
 
[an error occurred while processing this directive]
<% Qbata %>