Cadastro de Cliente

<% @ LANGUAGE="VBSCRIPT" %> Cadastro de Cliente

<% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" '//------------------------------------------------------------------------------------------------------// Set objRS_duplic = Server.CreateObject("ADODB.Recordset") objRS_duplic.CursorLocation = 3 objRS_duplic.CursorType = 0 objRS_duplic.LockType = 3 strQ_duplic = "SELECT cli_cpf FROM clientes WHERE cli_cpf LIKE '" & Trim(Request.Form("cli_cpf")) & "'" objRS_duplic.Open strQ_duplic, objCon, , , &H0001 If Not objRS_duplic.EOF Then If Trim(campo_msg) = "" Then campo_msg = "CPF/CNPJ" valor_msg = Trim(Request.Form("cli_cpf")) End If campo_duplicado = true End If objRS_duplic.Close Set objRS_duplic = Nothing Set strQ_duplic = Nothing '//------------------------------------------------------------------------------------------------------// If campo_duplicado = false Then strQ = "INSERT INTO clientes (cli_nom, cli_cpf, cli_tip, cli_end, cli_num, cli_bai, cli_cep, cli_cid, " strQ = strQ & "cli__uf, cli_ddd, cli_tel, cli_ema, cli_sen)" strQ = strQ & " VALUES (" strQ = strQ & "'" & Trim(Request.Form("cli_nom")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_cpf")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_tip")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_end")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_num")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_bai")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_cep")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_cid")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli__uf")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_ddd")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_tel")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_ema")) & "'," strQ = strQ & "'" & Trim(Request.Form("cli_sen")) & "')" objCon.BeginTrans ' On Error Resume Next objCon.Execute strQ, RecordsAffected If RecordsAffected=1 Then cli_cod = objCon.execute("SELECT @@IDENTITY")(0).Value End If If err<>0 Then objCon.RollbackTrans objCon.Close Set objCon = Nothing Response.Write "
Erro ao Incluir o Cliente
" Response.Write "Clique aqui para voltar a página de Inclusão

" Response.End End if remetente = "dandara@dandara.com.br" destinatario = Trim(Request.Form("cli_ema")) assunto = "Cadastro de Cliente - Dandara" texto = "" texto = texto & "Dandara" texto = texto & "

" texto = texto & "Segue abaixo, os dados informados no cadastro de clientes em nosso site:" texto = texto & "

" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "" texto = texto & "

Nome:	" & Trim(Request.Form("cli_nom")) & "
CPF/CNPJ:	" & Trim(Request.Form("cli_cpf")) & "
Endereço:	" & Trim(Request.Form("cli_end")) & "
Número:	" & Trim(Request.Form("cli_num")) & "
Bairro:	" & Trim(Request.Form("cli_bai")) & "
CEP:	" & Trim(Request.Form("cli_cep")) & "
Cidade:	" & Trim(Request.Form("cli_cid")) & "
Estado:	" & Trim(Request.Form("cli__uf")) & "
DDD:	" & Trim(Request.Form("cli_ddd")) & "
Telefone:	" & Trim(Request.Form("cli_tel")) & "
E-Mail:	" & Trim(Request.Form("cli_ema")) & "
Senha:	" & Trim(Request.Form("cli_sen")) & "

" texto = texto & "

" texto = texto & "Em breve você estará recebendo um e-mail informando a situação do seu cadastro (Liberado ou Bloqueado)." texto = texto & "

" texto = texto & "

" texto = texto & "Obrigado por se cadastrar.

" texto = texto & "

" texto = texto & "Dandara - www.dandara.com.br" texto = texto & "

" texto = texto & "" remetente2 = "dandara@dandara.com.br" destinatario2 = "dandara@dandara.com.br" assunto2 = "Liberação de Cadastro de Cliente" texto2 = "" texto2 = texto2 & "Dandara" texto2 = texto2 & "

" texto2 = texto2 & "O Cliente " & Trim(Request.Form("cli_nom")) & " se cadastrou no site e aguarda a liberação ou não de seu cadastro.

" texto2 = texto2 & "

Clique aqui para ver os dados deste cliente.

" texto2 = texto2 & "" 'cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br" 'porta do SMTP ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout ' objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = remetente 'e-mail do destinatário objCDOSYSMail.To = destinatario 'assunto da mensagem objCDOSYSMail.Subject = assunto 'conteúdo da mensagem 'objCDOSYSMail.TextBody = Request.Form("ema_mensagem") 'para envio da mensagem no formato html altere o TextBody para HtmlBody objCDOSYSMail.HtmlBody = texto ' para anexar arquivos If Request.Form("ema_anexo") <> "" Then objCDOSYSMail.AddAttachment Request.Form("ema_anexo") End If 'server.MapPath("../imagens") & "\" & "martelo.gif" 'objCDOSYSMail.fields.update 'envia o e-mail objCDOSYSMail.Send objCDOSYSMail.From = remetente2 objCDOSYSMail.To = destinatario2 objCDOSYSMail.Subject = assunto2 objCDOSYSMail.HtmlBody = texto2 objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing If err<>0 Then objCon.RollbackTrans objCon.Close Set objCon = Nothing Response.Write "
Erro ao Incluir o Cliente
" Response.Write "Clique aqui para voltar a página de Inclusão

" Response.End End if objCon.CommitTrans Response.Write "
Seus dados foram enviados com sucesso!
Em breve você receberá um e-mail informando a situação de seu cadastro (Liberado ou Bloqueado).

" Else %> Atenção!

O campo <%=campo_msg%> "<%=valor_msg%>" não pode ser salvo, pois já está cadastrado no site.
Clique aqui para voltar ao cadastro

<% End If objCon.Close Set objCon = Nothing Else %> Cadastro de Cliente
<% End If %>