Jim Bland Homes - Craftsmanship

<% strQuery = "SELECT * FROM Craftsmanship" 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

Craftsmanship

<% firstsw = "1" While not objrs.EOF %>
<% = objrs("Title") %>
<% = objrs("Description") %>

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

<%if objrs("Image_4") > "" then %> " target="_blank">" width="200" > <% End If %> <%if objrs("Image_5") > "" then %> " target="_blank">" width="200" > <% End If %>
<% objrs.movenext Wend %>

Website by: 4th Gear Productions

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