<% strQuery = "SELECT * FROM Testimonials" Set objRS = objConn.Execute(strQuery) 'idnum = objrs("idnum") %>
 
<% Dim objConn, objRS, strQuery, objrsc Dim strConnection dim currdesc, firstsw %> <% Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/jimbland.mdb") & ";" objConn.Open strConnection %> home

 
  HOME
  HOMES/LOTS AVAILABLE
  CUSTOM PROJECTS
  CRAFTSMANSHIP
  TESTIMONIALS
  LINKS
  CONTACT US
   
   
   
   
  CONTACT INFO
123 D Topeka
Waco, Texas
254-772-6508
254-751-1253 Fax

Testimonials

<% firstsw = "1" While not objrs.EOF %>

<% = objrs("Title") %>

<% If objrs("Image_1") > "" Then %> " target="_blank">" width="200" > <% End If %>

<% = objrs("Description") %>

<% objrs.movenext Wend %>
 
 

  Copyright © 2006 Jim Bland Construction, LLC. All Rights Reserved.

  Website by: 4th Gear Productions
<% objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %>