<% Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/access_db/jimbland.mdb") & ";" objConn.Open strConnection strQuery = "SELECT * FROM Custom_Projects order by IDnum ASC" Set objRS = objConn.Execute(strQuery) session("idnum") = "" idnum = objrs("idnum") idnumproject = objrs("Project_Title") %>
 
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

Custom Projects

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

"><% = objrs("Project_Title") %>

<% objrs.movenext 'Loop 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 %>