Jim Bland Homes - Testimonials

<% 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
	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 %>

Website by: 4th Gear Productions

<% objRS.Close objConn.Close Set objRS = Nothing Set objConn = Nothing %>