Shoals Car and Truck Club About Shoals Car and Truck Club Shows (Past/Present/Future) Please Visit Our Sponsors Please Visit Our Links Contact Us

MEMBERS
Contact Us
Shoals Car and Truck Club members list.
<% Dim con Dim objrs Dim selCID dim firstname dim children dim showcar1 dim showcar2 Set con = Server.CreateObject("ADODB.Connection") Con.ConnectionTimeout=60 con.connectionstring = "Data Source=//nawinfs03/home/users/web/b1132/rh.sctc/database/clubmembers.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" con.open Set objrs = Server.CreateObject("ADODB.recordset") selcid = "SELECT * from clubmembers ORDER BY last" objrs.open selcid, con %>

First Name Last Name Show Vehicle Show Vehicle (other if any)
<% Do until objrs.EOF if len( objrs("spouse") ) > 0 then firstname = objrs("first") & " and " & objrs("spouse") else firstname = objrs("first") end if children = "" if len( objrs("child1") ) > 0 then children = objrs("child1") end if if len( objrs("child1") ) > 0 and len( objrs("child2") ) > 0 then children = objrs("child1") & " and " & objrs("child2") end if if len( objrs("child1") ) > 0 and len( objrs("child2") ) > 0 and len( objrs("child3") ) > 0 then children = objrs("child1") & " and " & objrs("child2") & " and " & objrs("child3") end if showcar1 = "" showcar2 = "" if len( objrs("showyear1") ) > 0 or len( objrs("showmodel1") ) > 0 then showcar1 = objrs("showyear1") & " " & objrs("showmake1") & " " & objrs("showmodel1") end if if len( objrs("showyear2") ) > 0 or len( objrs("showmodel2") ) > 0 then showcar2 = objrs("showyear2") & " " & objrs("showmake2") & " " & objrs("showmodel2") end if %> <% objrs.movenext Loop objrs.close set objrs = nothing con.Close set con = nothing %>
<% response.write firstname %> <% response.write objrs("last") %> <% response.write showcar1 %> <% response.write showcar2 %> 
 
Members ONLY