<% ' #### This script Copyright (c) 2001 ASPjar.com, All Rights Reserved. NO WARRANTEE. ' #### You need CDONTS installed to be able to send mail ' #### Your sites information starts here #### ' Your Email Address - must be a valid domain or the mail will not send sYouEmail="danianny@uol.com.br" ' Email Subject EmailSubject="Formulário de Quiosques" ' Heading font color FontColor="#5e007f" ' Heading Background Color HeadColor="" ' Form Font Color FormFontColor="#000000" ' Form Background Color FormBackColor="#ffffff" 'Error Message Color ErrorColor="red" ' That's it! - you may now wish to customize the header and footer files to suit your site. ' #################################################################################### Function ValidateField(sFieldvalue, sFieldtype) ValidField = true Select Case LCase(sFieldtype) Case "name" If Len(sFieldvalue) = 0 Then ValidField = False Case "email" If Len(sFieldvalue) < 5 Then ValidField = False Else If InStr(1, sFieldvalue, "@", 1) < 2 Then ValidField = False Else If InStr(1, sFieldvalue, ".", 1) < 4 Then ValidField = False End If End If End If Case "message" If Len(sFieldvalue) = 0 Then ValidField = False Case "else" ValidField = False End Select ValidateField = ValidField End Function Sub ShowForm %> Formulário Proprietário

Formulário de Quiosques

Caso haja interesse em obter informações a respeito de aquisição de um quiosque na Lagoa Rodrigo de Freitas, favor preencher formulário abaixo para que possamos enviar uma resposta em breve.

" method="post">
Nome:
" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
 
Endereço:
" size="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
 
Profissão:
" SIZE="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
 
Telefone:
" size="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
 
E-mail:
" size="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>"> <% If dictFields(LCase("message")) Then Response.Write " Digite corretamente o seu email: nome@empresa.com" Else Response.Write " " End If %>
 

Já teve alguma experiência no ramo de gastronomia?
SIM NÃO

Qual(is)?
" size="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">

 
Que especialidade deseja explorar?
" size="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">
 

Já teve negócio próprio?
SIM NÃO
EM QUE RAMO?
" size="45" style="FONT-SIZE: 11px; COLOR: <%=FormFontcolor%>; FONT-FAMILY: verdana, helvetica, arial; BACKGROUND-COLOR: <%=FormBackColor%>">

Este espaço é seu, deixe seu recado: 
 
<% If dictFields(LCase("message")) Then Response.Write " Deixe aqui sua mensagem" Else Response.Write " " End If %>


<% End Sub Sub Send sPunter = Request.Form("Name") endereco = Request.Form("endereco") telefone = Request.Form("telefone") cidade = Request.Form("cidade") uf = Request.Form("uf") sPunterEmail = Request.Form("Email") Message = Request.Form("message") sMessage = "Este é o cadastro de " & sPunter & vbcrlf _ & vbcrlf _ & "E-mail do usuario: " & sPunterEmail & vbcrlf _ & "Endereço: " & endereco & vbcrlf _ & "UF: " & uf & vbcrlf _ & "Telefone: " & telefone & vbcrlf _ & "Detalhes: " & message & vbcrlf _ & Mailout & vbcrlf _ & vbcrlf Set objNewMail = CreateObject("CDONTS.NewMail") objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage Set objNewMail = Nothing End Sub Set dictFields = Server.CreateObject("Scripting.Dictionary") For Each Field in Request.Form If ValidateField(Request.Form(Field), Field) = False Then dictFields.Add LCase(Field), true End If Next If Request.Form.Count <> 0 And dictFields.Count = 0 Then %>




Seu formulário foi enviado com sucesso!
Aguarde nosso retorno!

<% Call Send Else ShowForm End If %>