|
|
 |
 |
|
<%
If IsEmpty( Request.Form("submit") ) Then
%>
<%
Else
If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("RAZAO")) <> "" AND Trim(Request.Form("CNPJ")) <> "" AND Trim(Request.Form("CRECIFIS")) <> "" AND Trim(Request.Form("ENDERECO")) <> "" AND Trim(Request.Form("BAIRRO")) <> "" AND Trim(Request.Form("CEP")) <> "" AND Trim(Request.Form("CIDADE")) <> "" AND Trim(Request.Form("ESTADO")) <> "" AND Trim(Request.Form("FONEDDD")) <> "" AND Trim(Request.Form("FONE")) <> "" AND Trim(Request.Form("FAXDDD")) <> "" AND Trim(Request.Form("FAX")) <> "" AND Trim(Request.Form("CELDDD")) <> "" AND Trim(Request.Form("CEL")) <> "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=\domains\dcbseguros.com.br\db\bd1.mdb;Driver={Microsoft Access Driver (*.mdb)};"
ComandoSQL = "INSERT INTO CORRETOR (RAZAO, CNPJ, CRECIFIS, ENDERECO, BAIRRO, CEP, CIDADE, ESTADO, FONEDDD, FONE, FAXDDD, FAX, CELDDD, CEL, BANCONUM, BANCONOME, AGENCIANUM, AGENCIANOME, CONTA)"
ComandoSQL = ComandoSQL & " VALUES ("
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("RAZAO")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CNPJ")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CRECIFIS")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ENDERECO")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("BAIRRO")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CEP")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CIDADE")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("ESTADO")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("FONEDDD")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("FONE")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("FAXDDD")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("FAX")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CELDDD")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CEL")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("BANCONUM")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("BANCONOME")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("AGENCIANUM")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("AGENCIANOME")) & "',"
ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("CONTA")) & "')"
Set bd = Conexao.Execute(ComandoSQL)
Conexao.Close
Set bd = Nothing
Set Conexao = Nothing
%>
Os dados foram enviados com sucesso!
Clique aqui para continuar
<%
Else
%>
Atenção: Alguns dados necessário não foram preenchidos corretamente
Clique aqui para voltar
<%
End If
End If
%>
|
 |
|
