Seminars

<%Option Explicit response.buffer = true Dim conn, i Dim strHost, rst dim Mail Dim EndT, StartT Sub connOpen() Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={mySQL};" & _ "Server=localhost;" & _ "Option=16834;" & _ "Database=fpcinvest;" &_ "UID=fpcinvest_Admin;" &_ "Pwd=jrs24tr$" End Sub connOpen %> Seminars

Financial Planning Consultants, Inc. FPC Invest

"Providing the Building Blocks For Your Financial Future"

<% strHost = "" If request("Action") = "send" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "fpcinvest.com" ' Specify your domain Mail.From = "info@fpcinvest.com" ' Specify sender's address Mail.FromName = "FPC" ' Specify sender's name Mail.AddAddress "info@fpcinvest.com" Mail.AddReplyTo request("Email") Mail.Subject = "Feedback from Website" Mail.Body = request("FirstName") & " " & request("LastName") & " has filled out the web site seminars form. " & Chr(10) &_ "Their address is:" & Chr(10) & request("Street") & Chr(10) & request("Apt") & Chr(10) &_ request("City") & ", " & request("State") & " " & request("Zip") &_ Chr(10) & Chr(10) & "Their phone number is:" & Chr(10) & "(" & request("AreaCode") & ") " & request("PhoneNumber") &_ Chr(10) & Chr(10) & "Email address:" & Chr(10) & request("Email") &_ Chr(10) & Chr(10) & "Comments:" & Chr(10) & request("Comments") On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If End If %>

<% Set rst = Server.CreateObject("ADODB.Recordset") rst.ActiveConnection = conn rst.CursorType = adOpenForwardOnly rst.LockType = adLockReadOnly rst.Source = "SELECT * FROM Seminars WHERE Date > CURDATE() and Status <> 'cancelled' " rst.Open do until rst.eof response.write "" response.write "" response.write "" response.write "" rst.MoveNext Loop rst.close Set rst = nothing conn.close Set conn = nothing %>

Upcoming Seminar Schedule

Location	Date and Time
" response.write rst("Location") & " " response.write rst("Address1") & " " If rst("Address2") <> "" Then response.write rst("Address2") & " " End If response.write rst("City") & ", " & rst("State") & " " & rst("Zip") response.write "	" response.write formatDateTime(rst("Date"),vbLongDate) & " " If rst("Meal") <> "" Then response.write rst("Meal") & ": " & rst("StartTime") & " " End If response.write "Seminar: " & rst("StartTime") & " - " & rst("EndTime") response.write "

If you are interested in any or the above seminars or have any questions please complete the below form or Call Mrs. Maxwell 314-878-7700 or 1-800-878-7717.