<%@ Language=VBScript %> <% on error resume next dim objMail 'These two lines are for the aspemail component Set objMail = Server.CreateObject("Persits.MailSender") objMail.Host = "smtp.readyhosting.com" ' Specify a valid SMTP server 'This is the line to use for the CDONTS component 'Set objMail = Server.CreateObject("CDO.message") dim strSubject dim strBody dim strFrom dim strName dim strEmail dim strPhone dim strComments strName = Request.Form("txtName") strFrom = Request.Form("txtEmail") strEmail = Request.Form("txtEmail") strPhone = Request.Form("txtPhone") strComments = Request.Form("txtComments") strSubject = "Web Submission" if IsValidEmail(strFrom) then strBody = strBody & "Name: " & strName & vbCrLf strBody = strBody & "Email: " & strEmail & vbCrLf strBody = strBody & "Phone: " & strPhone & vbCrLf strBody = strBody & "Comments: " & strComments & vbCrLf objMail.From = strFrom 'This is the line to use for CDONTS 'objMail.To = "info@roomsontheborder.com" 'This is the line to use for ASP Email objMail.AddAddress "info@roomsontheborder.com", "Hiren Patel" objMail.Subject = strSubject objMail.TextBody = strBody objMail.send Set objMail = Nothing end if ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>
For the ideal combination of location, quality, and value for all your needs . . . . imagine yourself at the Flamingo Motel.

To check current availability or make reservations, please reserve online or call:



Telephone
619.428.2218


Cancellation Policy
24-hour cancellation notice required


Check In
 2 PM

Check Out
 11 AM

Credit Cards Accepted:
                                       Master Card - Visa - American Express - Discover


   
 | | | | | | | | |          O N    T H E    B O R D E R    I N    S A N    Y S I D R O,    C A          | | | | | | | | |