<% set conn = server.CreateObject("ADODB.connection")
conn.Open "backoffice"
if request.form("enviar")="Enviar" then
empresa=request.form("empresa")
nome=request.form("nome")
mail=request.form("mail")
telefone=request.form("telefone")
telemovel=request.form("telemovel")
observacoes=request.form("observacoes")
telefonef=request.form("telefone")
telemovelf=request.form("telemovel")
if request.form("empresa")="" then
erro="Tem de preenher o campo 'Empresa'"
else if request.form("nome")="" then
erro="Tem de preenher o campo 'Nome'"
else if request.form("mail")="" then
erro="Tem de preenher o campo 'E-mail'"
else if len(request.form("mail")) < 6 then
erro = "O campo 'E-mail' está incorrecto."
else if isnumeric(request.form("mail")) then
erro = "O campo 'E-mail' não está correctamente preenchido."
else if request.form("telefone")<>"" and not isnumeric(request.form("telefone")) then
erro = "O campo 'Telefone' está incorrecto."
else if request.form("telefone")<>"" and len(request.form("telefone"))< 9 then
erro = "O campo 'Telefone' está incorrecto."
else if request.form("telemovel")<>"" and not isnumeric(request.form("telemovel")) then
erro = "O campo 'Telemóvel' está incorrecto."
else if request.form("telemovel")<>"" and len(request.form("telemovel"))< 9 then
erro = "O campo 'Telemóvel' está incorrecto."
else if request.form("observacoes")="" then
erro="Tem de preenher o campo 'Observações'"
else
set rs=server.createobject("ADODB.recordset")
linha="insert into contactos (empresa,nome,mail,telefone,telemovel,observacoes,data) values('"&request.Form("empresa")&"','"&request.form("nome")&"','"&request.form("mail")&"','"&request.form("telefone")&"','"&request.form("telemovel")&"','"&request.form("observacoes")&"','"&now()&"')"
rs.open linha,conn,1,2
set rs1=server.CreateObject("ADODB.recordset")
linha1="insert into historicocontactos (empresa,nome,mail,telefone,telemovel,observacoes,data) values('"&request.Form("empresa")&"','"&request.form("nome")&"','"&request.form("mail")&"','"&request.form("telefone")&"','"&request.form("telemovel")&"','"&request.form("observacoes")&"','"&now()&"')"
rs1.open linha1,conn,1,2
empresa=""
nome=""
mail=""
telefone=""
telemovel=""
observacoes=""
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
%>
FIX26 - Publicidade e Serviços
