<% Dim SQL, rs, rs2, rs3, rs4, rs5 set rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT (daz_listings.listingid*(1+datepart(s,getdate()))*(1+datepart(ms,getdate())))%1000 sortid, daz_listings.title, daz_listings.address, " & _ "daz_listings.city, daz_listings.phone, daz_listings.description, daz_listings.photo, " & _ "daz_listings.logo, daz_listings.email, daz_listings.url, daz_states.state " & _ "FROM daz_listings INNER JOIN daz_states ON daz_listings.stateId = daz_states.stateId " & _ "INNER JOIN daz_displays ON daz_listings.listingId = daz_displays.listingId " & _ "WHERE daz_displays.typeId = 2 " & _ "AND catId = 5 " & _ "AND daz_displays.approved = 1 " & _ "ORDER BY sortid " set rs = oConn.execute(SQL) set rs2 = Server.CreateObject("ADODB.Recordset") SQL = "SELECT daz_listings.title, daz_listings.address, " & _ "daz_listings.city, daz_listings.phone, daz_listings.description, daz_listings.photo, " & _ "daz_listings.logo, daz_listings.url, daz_states.state " & _ "FROM daz_listings INNER JOIN daz_states ON daz_listings.stateId = daz_states.stateId " & _ "INNER JOIN daz_displays ON daz_listings.listingId = daz_displays.listingId " & _ "WHERE daz_displays.typeId = 1 " & _ "AND insuranceId = 1 " & _ "AND daz_displays.approved = 1 " set rs2 = oConn.execute(SQL) set rs3 = Server.CreateObject("ADODB.Recordset") SQL = "SELECT daz_listings.title, daz_listings.address, " & _ "daz_listings.city, daz_listings.phone, daz_listings.description, daz_listings.photo, " & _ "daz_listings.logo, daz_listings.url, daz_states.state " & _ "FROM daz_listings INNER JOIN daz_states ON daz_listings.stateId = daz_states.stateId " & _ "INNER JOIN daz_displays ON daz_listings.listingId = daz_displays.listingId " & _ "WHERE daz_displays.typeId = 1 " & _ "AND insuranceId = 2 " & _ "AND daz_displays.approved = 1 " set rs3 = oConn.execute(SQL) set rs4 = Server.CreateObject("ADODB.Recordset") SQL = "SELECT daz_listings.title, daz_listings.address, " & _ "daz_listings.city, daz_listings.phone, daz_listings.description, daz_listings.photo, " & _ "daz_listings.logo, daz_listings.url, daz_states.state " & _ "FROM daz_listings INNER JOIN daz_states ON daz_listings.stateId = daz_states.stateId " & _ "INNER JOIN daz_displays ON daz_listings.listingId = daz_displays.listingId " & _ "WHERE daz_displays.typeId = 1 " & _ "AND insuranceId = 3 " & _ "AND daz_displays.approved = 1 " set rs4 = oConn.execute(SQL) set rs5 = Server.CreateObject("ADODB.Recordset") SQL = "SELECT daz_listings.title, daz_listings.address, " & _ "daz_listings.city, daz_listings.phone, daz_listings.description, daz_listings.photo, " & _ "daz_listings.logo, daz_listings.url, daz_states.state " & _ "FROM daz_listings INNER JOIN daz_states ON daz_listings.stateId = daz_states.stateId " & _ "INNER JOIN daz_displays ON daz_listings.listingId = daz_displays.listingId " & _ "WHERE daz_displays.typeId = 1 " & _ "AND insuranceId = 4 " & _ "AND daz_displays.approved = 1 " set rs5 = oConn.execute(SQL) '######################################################################################## %> Arizona Homeowner Insurance Agents
Home     About Us     Advertising     Listing     Site Directory     Members Login Bringing Dream Homes to Reality  
QUICK REFERENCE
        

Homeowner Insurance Agent
in Arizona

Featured Insurance Agents   Feature Your Site Here
<% Dim count count = 0 If Not (rs.BOF And rs.EOF) Then rs.movefirst Do Until rs.EOF '######################################################################################## 'featured ad If count <> 0 then Response.write("
") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") If trim(rs("photo")) <> "" then Response.write("") Else Response.write("") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & rs("title") & "") If trim(rs("email")) <> "" then Response.write("email") End If If (trim(rs("email")) <> "") and (trim(rs("url")) <> "") then Response.write(" | ") End If If trim(rs("url")) <> "" then Response.write("visit website") End If Response.write("
") Response.write("" & rs("phone") & "
") Response.write("" & rs("address") & "
") Response.write("" & rs("city") & ", " & rs("state") & "
") Response.write("
") If trim(rs("logo")) <> "" then Response.write("") Else Response.write("") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & rs("description") & "
") Response.write("
") rs.moveNext Loop Else '######################################################################################## 'default featured Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") End If set rs = nothing 'standard listing text 2 Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") Response.write("") Response.write("") Response.write("
Greater Phoenix Insurance AgentsList Your Site
") If Not (rs2.BOF And rs2.EOF) Then rs2.movefirst Do Until rs2.EOF '######################################################################################## 'standard ad 2 Response.write("") Response.write("") If trim(rs2("url")) <> "" then Response.write("") Else Response.write("") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & rs2("title") & "" & rs2("title") & "" & rs2("phone") & "
" & rs2("address") & " " & rs2("city") & ", " & rs2("state") & "
" & rs2("description") & "
") rs2.moveNext Loop End If set rs2 = nothing 'end of table Response.write("
") '#################################################################################### 'standard listing text 3 Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") Response.write("") Response.write("") Response.write("

Greater Tucson Insurance Agents
List Your Site
") If Not (rs3.BOF And rs3.EOF) Then rs3.movefirst Do Until rs3.EOF '######################################################################################## 'standard ad 3 Response.write("") Response.write("") If trim(rs3("url")) <> "" then Response.write("") Else Response.write("") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & rs3("title") & "" & rs3("title") & "" & rs3("phone") & "
" & rs3("address") & " " & rs3("city") & ", " & rs3("state") & "
" & rs3("description") & "
") rs3.moveNext Loop End If set rs3 = nothing 'end of table Response.write("
") 'standard listing text 4 Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") Response.write("") Response.write("") Response.write("

Northern Arizona Insurance Agents
List Your Site
") If Not (rs4.BOF And rs4.EOF) Then rs4.movefirst Do Until rs4.EOF '######################################################################################## 'standard ad 4 Response.write("") Response.write("") If trim(rs4("url")) <> "" then Response.write("") Else Response.write("") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & rs4("title") & "" & rs4("title") & "" & rs4("phone") & "
" & rs4("address") & " " & rs4("city") & ", " & rs4("state") & "
" & rs4("description") & "
") rs4.moveNext Loop End If set rs4 = nothing 'end of table Response.write("
") 'standard listing text 5 Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
") Response.write("") Response.write("") Response.write("

Other Arizona Insurance Agents
List Your Site
") If Not (rs5.BOF And rs5.EOF) Then rs5.movefirst Do Until rs5.EOF '######################################################################################## 'standard ad 5 Response.write("") Response.write("") If trim(rs5("url")) <> "" then Response.write("") Else Response.write("") End If Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("") Response.write("
" & rs5("fname") & " " & rs5("lname") & "" & rs5("fname") & " " & rs5("lname") & "" & rs5("phone") & "
" & rs5("address") & " " & rs5("city") & ", " & rs5("state") & "
" & rs5("description") & "
") rs5.moveNext Loop End If set rs5 = nothing '######################################################################################## 'end of table Response.write("
") %>

 

 



By Using This Website, You Agree to Our Terms of Website Use
The Az Directory of Real Estate provides information and connections intended to make buying and owning an Arizona home a more rewarding experience. The guide covers homebuyers and home sellers throughout Arizona including Phoenix, Scottsdale, Tucson, Sedona, Flagstaff, Tempe, Glendale, Peoria, Paradise Valley, Payson, Prescott, Yuma and other towns within Arizona.

©2004 Subia Worldwide. Targeted Real Estate Advertising
| Website Design by Subia Creative |

Webmaster