<% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = request("mailhost") ' Specify a valid domain on our server Mail.From = request("fromEmail") ' Specify a VALID sender's address Mail.FromName = request("fromName") ' Specify sender's name Mail.AddAddress request("toEmail"), request("toName") Mail.Subject = request("subject") Mail.Body = "First Name" & ":" & " " & request("firstName") & vbcrlf&_ "Last Name" & ":" & " " & request("lastName") & vbcrlf&_ "E-mail Address" & ":" & " " & request("fromEmail") & vbcrlf&_ "Address" & ":" & " " & request("street") & vbcrlf&_ "City" & ":" & " " & request("city") & vbcrlf&_ "State" & ":" & " " & request("state") & vbcrlf&_ "Country" & ":" & " " & request("country") & vbcrlf&_ "ZIP" & ":" & " " & request("zip") & vbcrlf&_ "Phone" & ":" & " " & request("phone") & vbcrlf&_ "Country Code" & ":" & " " & request("phonecc") & vbcrlf&_ "Party" & ":" & " " & request("party") & vbcrlf&_ "Date of Arrival" & ":" & " " & request("arrival") & vbcrlf&_ "Date of Departure" & ":" & " " & request("departure") & vbcrlf&_ "Credit Card" & ":" & " " & request("card") & vbcrlf&_ "Credit Card Number" & ":" & " " & request("creditcardnumber") & vbcrlf&_ "Expiration Date" & ":" & " " & request("expirationdate") & vbcrlf&_ "Number of Rooms" & ":" & " " & request("roomsroom") & vbcrlf&_ "Special Requests or Comments" & ":" & " " & request("message") Mail.SendToQueue If Err <> 0 Then Response.Write "Error encountered: " & Err.Description else End If %>

   “A little piece of Heaven in
             Downtown Fredericksburg”
 

Thank You.

Your request has been sent.

Angels Lodge Above the Creek
 415 E. Austin St
Fredericksburg TX 78624
Phone :  830-997-1615 |   Fax :  830-997-5308