FLORICULTURAS - RIO CLARO (SP)
|
Sua floricultura não está aqui? Então cadastre-a e aumente seus rendimentos! Cestas e Flores Copo de Leite Avenida 5 63 Centro - Rio Claro - SP Telefone: +55 (19) 3533-9641 Flor Cia Floricultura Rua 8 2351 Centro - Rio Claro - SP Telefone: +55 (19) 3523-3766 Flores Jardim Rua 3 1561 Centro - Rio Claro - SP Telefone: +55 (19) 3532-5805 Floricultura Amazônia Avenida 2, 2551 Rio Claro - SP - CEP: 13502-000 Telefone: +55 (19) 3534-8157 Floricultura Bem Querer Estr 4, 367 Rio Claro - SP - CEP: 13500-000 Telefone: +55 (19) 3534-5568 Floricultura Casa Jardim Avenida 36 A 337 Vila Alema - Rio Claro - SP Telefone: +55 (19) 3524-3513 Floricultura Gardênia Avenida 1, 2381 Rio Claro - SP - CEP: 13504-000 Telefone: +55 (19) 3524-3282 Floricultura e Jardinagem Passiflora Rua 8 2794 Santana - Rio Claro - SP Telefone: +55 (19) 3534-8565 Floricultura Oriente Rua 8 2199 Centro - Rio Claro - SP Telefone: +55 (19) 3523-7166 Floricultura e Paisagismo e Cestas de Cafe da Manha Lirio da Avenida 29 333 Vila Santo Antonio - Rio Claro - SP Telefone: +55 (19) 3524-3332 Floricultura Primavera Plantas Ornamentais Frutiferas Rua 6 A Particular 1051 Vila Alema - Rio Claro - SP Telefone: +55 (19) 3524-0492 Floricultura Ramathis Rua 9 663 Centro - Rio Claro - SP Telefone: +55 (19) 3524-5912 Floricultura Raquel Flores Avenida 52 A 36 Jardim America - Rio Claro - SP Telefone: +55 (19) 3527-1399 Floricultura Rivaben Rua 19, 479 Rio Claro - SP - CEP: 13503-000 Telefone: +55 (19) 3524-9373 Floricultura Rosas de Saron Rua 2 1362 Cj Hab Araucaria - Rio Claro - SP Telefone: +55 (19) 3524-3672 mais floriculturas em Rio Claro |
|
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "Páginas Amarelas de Rio Claro" strBody = Trim(Request.Form("txtMessage")) If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.webbusca.com.br", 1) = 0 Then strBody = "" strBody = strBody & " " & strFromName & " visitou o nosso site e gostaria que você visse a seguinte página:" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & " " & strReferringPage & vbCrLf Else strBody = "" strBody = strBody & " " & strFromName & " visitou o nosso site e gostaria que você visse a seguinte página:" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & " " & strReferringPage & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Ocorreu um erro. Por favor, tente novamente:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If %> <% 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 Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso. Obrigado por usar o Web Busca.
<% End Sub %>