<% Dim fp_conn, fp_rs Dim li_i, li_SelectAgent, ls_Agent, lb_One lb_One=False li_SelectAgent = Request.QueryString("idagent") Set fp_conn = Server.CreateObject("ADODB.Connection") fp_conn.Open Application("MyDB_ConnectionString") If Trim(li_SelectAgent) <>"" then ls_Req = "SELECT * FROM Agents " ls_Req = ls_Req & " WHERE idagent = " & li_SelectAgent ls_Req = ls_Req & " ORDER BY idagent asc" Set fp_rs = fp_conn.Execute(ls_Req) lb_One = True Else Set fp_rs = Server.CreateObject("ADODB.Recordset") ls_Req = "SELECT * FROM Agents " ls_Req = ls_Req & " WHERE idagent >0 " ls_Req = ls_Req & " ORDER BY idagent asc" Set fp_rs = fp_conn.Execute(ls_Req) End if %>

 

 
<%END IF%>
  Our Agents
<%ELSE %>
<% IF not lb_One THEN li_i=0 Do while not fp_rs.EOF li_i=li_i+1 if li_i<=1 Then ls_Name = fp_rs("name") If fp_rs("idagent") = 14 Then ls_Name = "Moshe Glaser" End if %> <% if li_i=1 Then %>

 

<% li_i=0 end if end if fp_rs.Movenext Loop%>
_
" width="80" height="112">     <% = ls_Name %>
<% =fp_rs("specialities") %>
<% =fp_rs("language") %>
<% =fp_rs("phone") %>
_
" width="80" height="112">     <% =fp_rs("name") %>
<% =fp_rs("specialities") %>
<% =fp_rs("language") %>
<% =fp_rs("phone") %>
<% fp_conn.Close %>

Home Page | List your Property With Us | Agents | Contact Us | Login  
 

Tefah.com  Jerusalem Pearl Hotel, Zahal Square ISRAEL   Tel: 972-2-622-2282   email: website@tefah.com

Copyright 2005 Tefah.com. All rights reserved.