%@ 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 %>
![]() |
||||||
![]() |
Flamingo
Motel is located 2 blocks away from the border. From 805 Freeway (805 S) · Exit San Ysidro Blvd, make LEFT · RIGHT on Border Village Road From 5 Freeway (I-5 South) · Exit Camino de la Plaza, make LEFT · LEFT on San Ysidro Blvd. · LEFT on Border Village Road For complete driving directions, see MAPQUEST
|
|||||