<%@ Language=VBScript %>
<%'On Error Resume Next%>
Untitled Document
<%
Data = dataf(now())
VisitaNumero = application("sessao")
visita = application("visitando")
if visita = 1 then
VisitandoAgora = "Só você está nos visitando agora!!"
else
VisitandoAgora = visita & " Internautas estão nos visitando agora!!"
end if
Function dataf(vardata)
select case weekday(vardata)
case 1 : dias = "Domingo, " : case 2 : dias = "Segunda-feira, " : case 3 : dias = "Terça-feira, "
case 4 : dias = "Quarta-feira, " : case 5 : dias = "Quinta-feira, " : case 6 : dias = "Sexta-feira, " : case 7 : dias = "Sábado, "
end select
dia = day(vardata)
Select Case month(vardata)
case 1 : mes = "Janeiro" : case 2 : mes = "Fevereiro" : case 3 : mes = "Março"
case 4 : mes = "Abril" : case 5 : mes = "Maio" : case 6 : mes = "Junho"
case 7 : mes = "Julho" : case 8 : mes = "Agosto" : case 9 : mes = "Setembro"
case 10 : mes = "Outubro" : case 11 : mes = "Novembro" : case 12 : mes = "Dezembro"
End Select
ano = year(vardata)
dataf = dias & dia & " de " & mes & " de " & ano
end Function %>
<%
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
opc=request.form("opc")
dim status, consulta
entrar
Sub entrar
If opc = "inserir" then
call check_dados
if len(status)=0 then
opc = ""
call inserir
else
opc = "formulario"
formulario
end if
else
opc = "formulario"
formulario
End if
end sub
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
sub check_dados
status = ""
cgc = request.form("cnpj") : cgc_tm = len(cgc)
for cgc_ct=1 TO cgc_tm
cgc_fgt = mid(cgc,cgc_ct,1)
select case cgc_fgt
case "0" : cgc_fg = cgc_fg & cgc_fgt : case "1" : cgc_fg = cgc_fg & cgc_fgt : case "2" : cgc_fg = cgc_fg & cgc_fgt : case "3" : cgc_fg = cgc_fg & cgc_fgt
case "4" : cgc_fg = cgc_fg & cgc_fgt : case "5" : cgc_fg = cgc_fg & cgc_fgt : case "6" : cgc_fg = cgc_fg & cgc_fgt : case "7" : cgc_fg = cgc_fg & cgc_fgt
case "8" : cgc_fg = cgc_fg & cgc_fgt : case "9" : cgc_fg = cgc_fg & cgc_fgt
end select
next
if VarType(cgc_fgt)=8 then cgc_fgt=0 end if
cgc_fgt = Clng(cgc_fgt) : cgc = cgc_fg
if request.form("cnpj")="" AND request.form("classificacao")<>"Prestador de Serviços" then
status = status & "CNPJ: não informado "
elseif request.form("cnpj")="" AND request.form("classificacao")="Prestador de Serviços" then
status = status & ""
elseif len(cgc_fg) < 14 OR len(cgc_fg) > 14 then
status = status & "CNPJ: Incoerência no número de dígiotos "
elseif cgc_fg = 00000000000000 OR cgc_fg = 11111111111111 OR cgc_fg = 22222222222222 OR cgc_fg = 33333333333333 OR cgc_fg = 44444444444444 OR cgc_fg = 55555555555555 OR cgc_fg = 66666666666666 OR cgc_fg = 77777777777777 Or cgc_fg = 88888888888888 OR cgc_fg = 99999999999999 then
status = status & "CNPJ: Sequência de números iválida " : cgc = "xx"
else
ConnString = Application("ConnString")
Set CX = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
CX.Open ConnString
sql = "SELECT * FROM cadastro"
RS.Open sql,CX,1,2
RS.filter = "cnpj=" & cgc_fg
if (RS.EOF AND RS.BOF)=false then
status = status & "CNPJ: já consta em nosso banco de dados " : cgc = "xx"
end if
RS.close
Set RS = Nothing
CX.close
Set CX = Nothing
end if
'----------------------------------
if len(request.form("razao_social")) < 3 then : status = status & "Razão Social: nome inválido " end if
if len(request.form("contato")) < 3 then : status = status & "Contato: nome inválido " end if
if len(request.form("fone")) < 9 then : status = status & "Fone: fone inválido " end if
email = trim(request.form("email")) : emtm = len(trim(email)) : emar = InStr(1,trim(email),"@") : empt = InStr(1,trim(email),".")
if request.form("email")<>"" then : if emtm<9 OR empt=0 then : status = status & "Email: email inválido " : end if : end if
if len(request.form("endereco")) < 6 then : status = status & "Endereço: endereço inválido " end if
if request.form("cep")<>"" then : if len(request.form("cep")) < 8 then : status = status & "CEP: cep inválido " end if : end if
if len(request.form("cidade")) < 3 then : status = status & "Cidade: nome inválido " end if
if request.form("uf") = "xx" then : status = status & "UF: não informado " end if
end sub
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
sub inserir
ConnString = Application("ConnString")
Set CX = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
CX.Open ConnString
sql = "SELECT * FROM cadastro"
RS.Open sql,CX,1,2
if len(status)=0 then
RS.addnew
for each campo IN RS.Fields 'percorre os registros do recordset
for each form_campo IN Request.Form
if campo.name = form_campo AND Request.Form(form_campo) <> "" AND Request.Form(form_campo) <> "xx" AND (Request.Form(form_campo)<>RS.Fields(campo.name) OR campo.ActualSize=0) then
'Response.Write campo.name & " -- " & form_campo & " "
RS.fields(form_campo)=Request.Form(form_campo)
exit for
end if
next
next
RS.fields("st")="s"
RS.fields("stp")="n"
RS.Update
Response.write "
Os dados abaixo foram enviados com sucesso!!!
"
else
response.write "
" & status & "
"
end if
RS.close
Set RS = Nothing
CX.close
Set CX = Nothing
mensagem = "Razão Social: " & Request.Form("razao_social") & chr(13) &_
"Nome Fantasia: " & request.form("nome_fantasia") & chr(13) &_
"CNPJ.: " & request.form("cnpj") & " Insc. Estadual: " & request.form("inscricao_estadual") & chr(13) &_
"Contato: " & request.form("contato") & chr(13) &_
"Fone: " & request.form("fone") & " Fax: " & request.form("fax") & chr(13) &_
"E-mail: " & request.form("email") & chr(13) &_
"Site: " & request.form("site") & chr(13) &_
"Endereço: " & request.form("endereco") & chr(13) &_
"Bairro: " & request.form("bairro") & " Cidade: " & request.form("cidade") & " UF: & " & request.form("uf") & chr(13) &_
"Tipo de mercadoria: " & request.form("mercadoria") & " Peso: " & request.form("peso") & chr(13) &_
"Como conheceu nossa empresa?: " & request.form("como") & chr(13) &_
"OBS.: " & request.form("obs") & chr(13)
call envia_email("leomartransportes.com.br:25","leomar@leomartransportes.com.br","Dados para cadastro","leomar@leomartransportes.com.br","adao@gessope.com.br","gearles@ieg.com.br",mensagem,1,0)
end sub
Function envia_email(servidorporta,email,assunto,para1,para2,para3,mensagem,prioridade,retorno)
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = servidorporta
JMail.Sender = email
JMail.Subject = assunto
JMail.AddRecipient para1
JMail.AddRecipient para2
JMail.AddRecipient para3
JMail.Body = mensagem
JMail.Priority = prioridade
'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
'JMail.AppendBodyFromFile "c:\mail\standard_footer.txt"
'JMail.AddAttachment "c:\products\MyProduct.exe"
JMail.LazySend = True '(ONLY add this line if you're having problems)
JMail.Execute
'JMail.Close
'Set JMail = nothing
if retorno <> 0 then Response.Write retorno
'# Fim da rotina que envia a mensagem -----------------
End Function
'////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////%>
<%sub formulario%>
<%end sub%>