Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde galera, eu tenho o seguinte código:
<%
contratante = Request.Form("contratante")
email = Request.Form("email")
ddd_telefone = Request.Form("ddd_telefone")
telefone = Request.Form("telefone")
ddd_celular = Request.Form("ddd_celular")
celular = Request.Form("celular")
cpf = Request.Form("cpf")
rg = Request.Form("rg")
cidade = Request.Form("cidade")
uf = Request.Form("uf")
endereco = Request.Form("endereco")
complemento = Request.Form("complemento")
data = Request.Form("data")
local_cerimonia = Request.Form("local_cerimonia")
hora_cerimonia = Request.Form("hora_cerimonia")
end_cerimonia = Request.Form("end_cerimonia")
local_evento = Request.Form("local_evento")
hora_evento = Request.Form("hora_evento")
end_evento = Request.Form("end_evento")
vencimentos =request.Form("vencimentos")
Set objCDOSYSMail = Server.CreateObject("CDO.Message") ''linha nova inserida por mim
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")''linha nova inserida por mim
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ''linha nova inserida por mim
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25''linha nova inserida por mim
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ''linha nova inserida por mim
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30''linha nova inserida por mim
objCDOSYSCon.Fields.update ''linha nova inserida por mim
Set objCDOSYSMail.Configuration = objCDOSYSCon ''linha nova inserida por mim
objCDOSYSMail.From = "cadastro@arterz.com.br"
objCDOSYSMail.To = "cadastro@arterz.com.br"
''objCDO.From = "postmaster@arterz.com.br"
objCDOSYSMail.Subject = "Cadastro de " & contratante & " para o dia " &data
objCDOSYSMail.HtmlBody = "Nome: "&contratante&"<br> E-mail: "&email&"<br> Telefone: "&ddd_telefone&" - "&telefone&"<br> Celular: "&ddd_celular&" - "&celular&"<br><br>Local do Evento: "&local_evento&"<br>Cidade/UF: "&cidade&"/"&uf&"<br>Data: "&data&" <br>Hora: "&hora_evento&" hs <br><br>Forma de Pgto.: "&vencimentos
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
Gostaria que um campo que não está nesse código já viesse preenchido, tipo;
status = Request.Form("status")
Gostaria que fosse inserido no banco o valor 'F', sem que o cliente coloca-se que fosse inserido automaticamente algo do tipo 'If' status for =0 else inserir o valor 'F', como faço isso ?
Carregando comentários...