Partial Class reserve
    Inherits baseclass

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Calendar1.SelectedDate = "06/12/2006"
        TextBox1.Text = Request.Form("text1")


        
        If Page.IsPostBack Then
        Else
            'prefill
            
            If Request.QueryString("option") Is Nothing 
            End If

            If InStr(Now.ToShortTimeString, "am", CompareMethod.Text) Then
                DropDownList2.SelectedValue = "am"
                TextBox2.Text = Replace(Now.ToShortTimeString, " am", "", , , CompareMethod.Text)

            Else
                DropDownList2.SelectedValue = "pm"
                TextBox2.Text = Replace(Now.ToShortTimeString, " pm", "", , , CompareMethod.Text)

            End If

           
            Dim scriptstr As String = "<script type='text/javascript' language='javascript' src='js/calendar.js'></script>"
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "c1", scriptstr)

            scriptstr = "<script type='text/javascript' language='javascript' src='js/calendar-en.js'></script>"
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "c2", scriptstr)

            scriptstr = "<script type='text/javascript' language='javascript' src='js/calendar-setup.js'></script>"
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "c3", scriptstr)

        End If
            



    End Sub

    
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

       
        sendEmail("Casanova - Reserve a Table", TextBox1.Text & " " & TextBox2.Text & " " & DropDownList2.SelectedValue, DropDownList1.SelectedValue, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox21.Text, "casanovamaui@yahoo.com")


        Response.Redirect("thankyou.aspx")
    End Sub


    Sub sendEmail(ByVal resfor As String, ByVal fdate As String, ByVal persons As String, ByVal cfirst As String, ByVal clast As String, ByVal cemail As String, ByVal cphone As String, ByVal notes As String, ByVal resort As String, ByVal email As String)

        Dim EmailBody As String = ""
        EmailBody = EmailBody & "<b>Reservation for : </b>" & resfor & "<br>"
        EmailBody = EmailBody & "<b>For : </b>" & persons & " person(s)<br>"
        EmailBody = EmailBody & "<b>Date/Time : </b>" & fdate & "<br>"
        EmailBody = EmailBody & "<b>Contact Name : </b>" & cfirst & " " & clast & "<br>"
        EmailBody = EmailBody & "<b>Email : </b>" & cemail & "<br>"
        EmailBody = EmailBody & "<b>Phone : </b>" & cphone & "<br>"
        EmailBody = EmailBody & "<b>Resort or Local Contact Phone Number : </b>" & resort & "<br>"
        EmailBody = EmailBody & "<b>Additional information : </b>" & notes & "<br>"
        'mailing section

        Dim strHost
        strHost = "mail.honstudios.com"

        'Dim objMail As New ASPEMAILLib.MailSender()
        Dim objMail = Server.CreateObject("Persits.MailSender")

        ''''' greatlifetours notification section 
        objMail.Host = strHost
        objMail.IsHTML = True
        objMail.From = cemail
        objMail.FromName = cfirst & " " & clast
        objMail.username = "mailer@honstudios.com"
        objMail.password = "alamakota"

        ' message subject
        objMail.Subject = "Reservation request for:  " & resfor
        ' message body
        ' append body from file
        objMail.Body = "There is new reservation request from your site<br>You can view the info below :<br><br>" _
 & EmailBody

        objMail.AddAddress(email)
        objMail.AddAddress("sans@honstudios.com")
        objMail.AddAddress("suan2chris@hotmail.com")
        objMail.Send()    ' send message
        objMail.ResetAll()

    End Sub
    
End Class