<% section="" title="Reserve a Party or Class" meta_d="" meta_k="" img="" subnav="" %> <% Const MAIL_LICENSE_KEY = "Ipop.com (Single Developer)/00E05209109717009910" Const MAIL_SERVER = "127.0.0.1" %> <% Dim yy yy = DatePart("yyyy", Now()) if request.querystring("print") = "1" then mm_strheaderPrint = true else mm_strheaderPrint = false end if dim intRndNumber Randomize intRndNumber = (int(rnd() * 10)) + 1 dim section dim title dim meta_d dim meta_k dim img dim subnav %> KaZoing! <%if title="" then%><%else%>| <%=title%><%end if%> <%else%><%=meta_d%><%end if%>"> <%else%><%=meta_k%><%end if%>"> <% if mm_strheaderPrint = true then %><%else%><%end if%> <% if mm_strheaderPrint = true then %>

Print Page Close Window

phone: 502-412-1500 . 3600 Chamberlain Lane, Suite 218 . Louisville, KY 40241

<% else %> <% if section="home" then%><% else %> <% end if%> <% if section="home" then%> <% end if%>

phone: 502-412-1500 . 3600 Chamberlain Lane, Suite 218 . Louisville, KY 40241

home<% else %><% end if %>.gif" class="kazoing-logo" alt="Kazoing! Party & Play" title="Kazoing! Party & Play"><% if section="home" then %><% else %>{Home}<% end if %>

<% if img = "" then %>

<%else%>

<%end if %>

phone: 502-412-1500 . 3600 Chamberlain Lane, Suite 218 . Louisville, KY 40241

content<% else %><%=section%><% end if %>">

<% end if %> <% Class CRecipient 'Declarations Private m_strRecName Private m_strRecEmail Private m_intRecType 'Private Methods Private Sub Class_Initialize() m_strRecName = "" m_strRecEmail = "" m_intRecType = 1 End Sub 'Properties Public Property Get RecName() RecName = m_strRecName End Property Public Property Let RecName(ByVal Value) m_strRecName = Value End Property Public Property Get RecEmail() RecEmail = m_strRecEmail End Property Public Property Let RecEmail(ByVal Value) m_strRecEmail = Value End Property Public Property Get RecType() RecType = m_intRecType End Property Public Property Let RecType(ByVal Value) m_intRecType = Value End Property End Class %> <% Class CMail 'Declarations Private m_strSubject Private m_strFromName Private m_strFromAddr Private m_strBody Private m_colRecipients 'Private Methods Private Sub Class_Initialize() Set m_colRecipients = Server.CreateObject("Scripting.Dictionary") m_strSubject = "" m_strFromName = "" m_strFromAddr = "" m_strBody = "" End Sub Private Sub Class_Terminate() Set m_colRecipients = Nothing End Sub 'Public Methods Public Sub AddRecipient(ByVal strRecName, ByVal strRecEmail, ByVal intRecType) Dim objRecipient Set objRecipient = New CRecipient objRecipient.RecName = strRecName objRecipient.RecEmail = strRecEmail objRecipient.RecType = intRecType m_colRecipients.Add m_colRecipients.Count, objRecipient Set objRecipient = Nothing End Sub Public Sub Send() Dim objMailer Dim i Set objMailer = Server.CreateObject("EasyMail.SMTP.5") With objMailer .LicenseKey = MAIL_LICENSE_KEY .MailServer = MAIL_SERVER .Subject = m_strSubject .From = m_strFromName .FromAddr = m_strFromAddr .BodyText = m_strBody For i = 0 To m_colRecipients.Count - 1 .AddRecipient m_colRecipients(i).RecName, m_colRecipients(i).RecEmail, m_colRecipients(i).RecType Next .Send End With Set objMailer = Nothing End Sub 'Properties Public Property Get Subject() Subject = m_strSubject End Property Public Property Let Subject(ByVal Value) m_strSubject = Value End Property Public Property Get FromName() FromName = m_strFromName End Property Public Property Let FromName(ByVal Value) m_strFromName = Value End Property Public Property Get FromAddr() FromAddr = m_strFromAddr End Property Public Property Let FromAddr(ByVal Value) m_strFromAddr = Value End Property Public Property Get Body() Body = m_strBody End Property Public Property Let Body(ByVal Value) m_strBody = Value End Property End Class %>

Reserve a Party or Class Today!

Name:
Address:
City:
State:
Zip:
Phone:
Email:
Child's Name
Child's Birthday (mm/dd/yy)
Preferred Party Date/Time:
What type of party would you like?:
Which class would you like to join?
Comments or Questions:

<% if mm_strheaderPrint = true then %>

<% else %>

<% end if %>