<% IF Session("adm") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then Response.Redirect("pedidos.asp") END IF IF Not IsEmpty(Request.Form) AND Request.Form("cadastrar") = "sim" AND IsEmail(Request.Form("emailCAD")) THEN Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 RS.CursorType = 0 RS.LockType = 3 strQ ="SELECT * FROM clientes" RS.Open strQ,strCon RS.Addnew() RS("nome") = Request.Form("nomeCAD") RS("cpf") = Request.Form("cpfCAD") RS("cnpj") = Request.Form("cnpjCAD") RS("inscmun") = Request.Form("inscrCAD") RS("empresa") = Request.Form("empresaCAD") RS("endereco") = Request.Form("endCAD") RS("bairro") = Request.Form("bairroCAD") RS("numero") = Request.Form("numCAD") RS("cep") = Request.Form("cepCAD") RS("cidade") = Request.Form("cidadeCAD") RS("uf") = Request.Form("ufCAD") RS("email") = Request.Form("emailCAD") RS("telefone") = Request.Form("telefoneCAD") RS("celular") = Request.Form("celularCAD") RS("senha") = Request.Form("senhaCAD") RS.Update RS.Close Set RS = Nothing msg = "

Cadastro efetuado com sucessso!

Para acessar sua conta faça seu login com email e senha no formulário ao lado.

" cadastro = "finalizado" ELSE msg = "

Cadastre - se

" END IF %>

Pedidos Online

<%=msg%> <%IF cadastro <> "finalizado" Then%>

<%End If%>