LOJAS DE BRINQUEDOS - RIO CLARO (SP)
|
Sua loja não está aqui? Então cadastre-a e aumente seus rendimentos! Brinquedos Castelo Ra Tim Bum Rua 8 2339 Centro - Rio Claro - SP Telefone: +55 (19) 3524-7450 Distribuidora de Brinquedos Hobby Avenida 48 A 353 Vila Alema - Rio Claro - SP Telefone: +55 (19) 3534-8602 Kid's Mania Avenida 11 726 Saude - Rio Claro - SP Telefone: +55 (19) 3523-1449 Loja Bibi Rua 10 A 1363 Vila Nova - Rio Claro - SP Telefone: +55 (19) 3527-3012 Ri Happy Brinquedos Avenida Conde Francisco Matarazzo Junior 205 Lj 1 Vila Paulista - Rio Claro - SP Telefone: +55 (19) 3534-8451 |
|
" & 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 %>