<%@ 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 %>
Hotel Information:  
  · Swimming Pool
· Free Parking
· Express Checkout


          
            
   
Facilities & Services:
  · Incoming Fax Services
· Children 12 and under stay free
   
Guest Room Amenities:
 

· Satellite TV - HBO, ESPN, 
   Showtime, Cinemax
· Outdoor swimming pool
         
Area Restaurants:
 

· Denny's (1 mile)
· IHOP (1 mile)
· KFC, McDonalds, Burger King, Jack
  in the Box (American Fast Foods)
   
Points of Interest:
  · Border Crossing (2 minutes)
· Duty Free Shops (Across the street)
· Seaport Village (15 minutes)
· Downtown San Diego (15 minutes)
· Beaches (5 miles)
· Las Americas Mall (5 minutes)
   
Area Companies:
 

· Sharp Hospital (5 miles)
· San Ysidro Health Center (5 minutes)
· Money Exchange (Across the street)
   
 | | | | | | | | |          O N    T H E    B O R D E R    I N    S A N    Y S I D R O,    C A          | | | | | | | | |