<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim ScheduleData Dim ScheduleData_numRows Set ScheduleData = Server.CreateObject("ADODB.Recordset") ScheduleData.ActiveConnection = MM_WebData_STRING ScheduleData.Source = "SELECT * FROM ScheduleData ORDER BY WhenDate, WhatTime" ScheduleData.CursorType = 0 ScheduleData.CursorLocation = 2 ScheduleData.LockType = 1 ScheduleData.Open() ScheduleData_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 ScheduleData_numRows = ScheduleData_numRows + Repeat1__numRows %> The Complete Guide to Financing College and Admissions

The Complete Guide to Financing College and Admissions
Home  | Learn More |  Results |  Testimonials  |  Order  |  About Mr. Wilfong |  CD Updates  |  Partners in Education |  Contact Us


Upcoming Seminars and Speaking Engagements

For booking information please contact Terry Wilfong.

<% While ((Repeat1__numRows <> 0) AND (NOT ScheduleData.EOF)) %> <%If (Repeat1__index Mod 2) Then%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ScheduleData.MoveNext() Wend %>
Date Time Location
<%=(ScheduleData.Fields.Item("WhenDate").Value)%> <%=(ScheduleData.Fields.Item("WhatTime").Value)%>  <%=(ScheduleData.Fields.Item("Place").Value)%>
<%=(ScheduleData.Fields.Item("WhereAddress").Value)%>
<%=(ScheduleData.Fields.Item("WhereCity").Value)%> <%=(ScheduleData.Fields.Item("WhereState").Value)%>  <%=(ScheduleData.Fields.Item("WhereZip").Value)%>  
<%=(ScheduleData.Fields.Item("WhereContactNumber").Value)%>

 


www.collegeoptions.net | Copyright 2005 | All Rights Reserved
Website Created by 4g Software
<% ScheduleData.Close() Set ScheduleData = Nothing %>