Bridgeport Inn Reservations
This information will be sent via email. If the room or package that you request is available, we will notify you to set up your reservation at your convenience.
% ' change to address of your own SMTP server strHost = "localHost" DIM strfirstName, strlastName, strEmail, strAreaCode, strPrefix, strSuffix, strcheckIn, strcheckOut, strroomtype, strguests, strDiscount, strComment strfirstName = request.form("firstName") strlastName = request.form("lastName") strEmail = request.form("Email") strAreaCode = request.form("AreaCode") strPrefix = request.form("Prefix") strSuffix = request.form("Suffix") strcheckIn = request.form("CheckIn") strcheckOut = request.form("CheckOut") strroomtype = request.form("RoomType") strguests = request.form("Guests") strDiscount = request.form("Discount") strComment = request.form("Comment") If Request("Send") <> "" Then Set Mail = Server.CreateObject("SMTPsvg.Mailer") Mail.FromAddress = strEmail Mail.RemoteHost = strHost Mail.AddRecipient "RESERVATION REQUEST", "reservations@bridgeportinn.com" Mail.Subject = "RESERVATION REQUEST" Mail.BodyText = "First Name : " & Request.Form("firstName") & _ vbCrLf & "Last Name : " & Request.Form("lastName") & _ vbCrLf & "Email : " & Request.Form("Email") & _ vbCrLf & "Phone : " & Request.Form("AreaCode") & "-" & Request.Form("Prefix") & "-" & Request.Form("Suffix") & _ vbCrLf & "Check In : " & Request.Form("CheckIn") & _ vbCrLf & "Check Out : " & Request.Form("CheckOut") & _ vbCrLf & "Room Type : " & Request.Form("RoomType") & _ vbCrLf & "Guests : " & Request.Form("Guests") & _ vbCrLf & "Discount : " & Request.Form("Discount") & _ vbCrLf & "Comment : " & Request.Form("Comment") strErr = "" bSuccess = False On Error Resume Next If Mail.SendMail Then bSuccess = True else strErr = Mail.Response End If End If %>
This information will be sent via email. If the room or package that you request is available, we will notify you to set up your reservation at your convenience.