insert

[bimpercursso 0]

Olá pessoal, queria saber o que que tem de errado com ess insert, esrtou mechendo nele desde as 14:00, nao agunto mai solhar pra ele... strSQL = "insert into CLIENTES(" strSQL1 = "Values(" LOCAL = Request.Form("LOCAL") if LOCAL <> "" then strSQL = strSQL & "LOCAL" strSQL1 = strSQL1 & "'" & LOCAL & "'" end if ENDERECO = Request.Form("ENDERECO") if ENDERECO <> "" then strSQL = strSQL & ", ENDERECO" strSQL1 = strSQL1 & ", '" & ENDERECO & "'" end if RAZ_SOC = Request.Form("RAZ_SOC") if RAZ_SOC <> "" then strSQL = strSQL & ", RAZ_SOC" strSQL1 = strSQL1 & ", '" & RAZ_SOC & "'" end if NUMERO = Request.Form("NUMERO") if NUMERO <> "" then strSQL = strSQL & ", NUMERO" strSQL1 = strSQL1 & ", '" & NUMERO & "'" end ifP1 = Request.Form("P1") if P1 <> "" then strSQL = strSQL & ", P1" strSQL1 = strSQL1 & ", '" & P1 & "'" end ifP2 = Request.Form("P2") if P2 <> "" then strSQL = strSQL & ", P2" strSQL1 = strSQL1 & ", '" & P2 & "'" end ifP3 = Request.Form("P3") if P3 <> "" then strSQL = strSQL & ", P3" strSQL1 = strSQL1 & ", '" & P3 & "'" end ifP4 = Request.Form("P4") if P4 <> "" then strSQL = strSQL & ", P4" strSQL1 = strSQL1 & ", '" & P4 & "'" end ifP5 = Request.Form("P5") if P5 <> "" then strSQL = strSQL & ", P5" strSQL1 = strSQL1 & ", '" & P5 & "'" end ifP6 = Request.Form("P6") if P6 <> "" then strSQL = strSQL & ", P6" strSQL1 = strSQL1 & ", '" & P6 & "'" end ifA1 = Request.Form("A1")B1 = Request.Form("B1")C1 = Request.Form("C1")D1 = Request.Form("D1")NBM_NCM_1= A1 & "." & B1 & "." & C1 & "." & D1 if NBM_NCM_1 <> "" then strSQL = strSQL & ", NBM_NCM_1" strSQL1 = strSQL1 & ", '" & NBM_NCM_1 & "'" end ifA2 = Request.Form("A2")B2 = Request.Form("B2")C2 = Request.Form("C2")D2 = Request.Form("D2")NBM_NCM_2= A2 & "." & B2 & "." & C2 & "." & D2 if NBM_NCM_2 <> "" then strSQL = strSQL & ", NBM_NCM_2" strSQL1 = strSQL1 & ", '" & NBM_NCM_2 & "'" end ifA3 = Request.Form("A3")B3 = Request.Form("B3")C3 = Request.Form("C3")D3 = Request.Form("D3")NBM_NCM_3= A3 & "." & B3 & "." & C3 & "." & D3 if NBM_NCM_3 <> "" then strSQL = strSQL & ", NBM_NCM_3" strSQL1 = strSQL1 & ", '" & NBM_NCM_3 & "'" end ifA4 = Request.Form("A4")B4 = Request.Form("B4")C4 = Request.Form("C4")D4 = Request.Form("D4")NBM_NCM_4= A4 & "." & B4 & "." & C4 & "." & D4 if NBM_NCM_4 <> "" then strSQL = strSQL & ", NBM_NCM_4" strSQL1 = strSQL1 & ", '" & NBM_NCM_4 & "'" end ifA5 = Request.Form("A5")B5 = Request.Form("B5")C5 = Request.Form("C5")D5 = Request.Form("D5")NBM_NCM_5= A5 & "." & B5 & "." & C5 & "." & D5 if NBM_NCM_5 <> "" then strSQL = strSQL & ", NBM_NCM_5" strSQL1 = strSQL1 & ", '" & NBM_NCM_5 & "'" end ifA6 = Request.Form("A6")B6 = Request.Form("B6")C6 = Request.Form("C6")D6 = Request.Form("D6")NBM_NCM_6= A6 & "." & B6 & "." & C6 & "." & D6 if NBM_NCM_6 <> "" then strSQL = strSQL & ", NBM_NCM_6" strSQL1 = strSQL1 & ", '" & NBM_NCM_6 & "'" end if COMPLEMENTO = Request.Form ("COMPLEMENTO") if COMPLEMENTO <> "" then strSQL = strSQL & ", COMPLEMENTO" strSQL1 = strSQL1 & ", '" & COMPLEMENTO & "'" end if BAIRRO = Request.Form ("BAIRRO") if BAIRRO <> "" then strSQL = strSQL & ", BAIRRO" strSQL1 = strSQL1 & ", '" & BAIRRO & "'" end if CIDADE = Request.Form ("CIDADE") if CIDADE <> "" then strSQL = strSQL & ", CIDADE" strSQL1 = strSQL1 & ", '" & CIDADE & "'" end if UF = Request.Form ("UF") if UF <> "" then strSQL = strSQL & ", UF" strSQL1 = strSQL1 & ", '" & UF & "'" end ifSITE = Request.Form ("SITE") if SITE <> "" then strSQL = strSQL & ", SITE" strSQL1 = strSQL1 & ", '" & SITE & "'" end if CEP = Request.Form ("CEP") if CEP <> "" then strSQL = strSQL & ", CEP" strSQL1 = strSQL1 & ", '" & CEP & "'" end if CGC = Request.Form("CGC") if CGC <> "" then strSQL = strSQL & ", CGC" strSQL1 = strSQL1 & ",'" & CGC & "'" end if DDD_TEL = Request.Form ("DDD_TEL") if DDD_TEL <> "" then strSQL = strSQL & ", DDD_TEL" strSQL1 = strSQL1 & ", '" & DDD_TEL & "'" end if TEL1 = Request.Form ("TEL1") if TEL1 <> "" then strSQL = strSQL & ", TEL1" strSQL1 = strSQL1 & ", '" & TEL1 & "'" end if DDD_FAX = Request.Form ("DDD_FAX") if DDD_FAX <> "" then strSQL = strSQL & ", DDD_FAX" strSQL1 = strSQL1 & ", '" & DDD_FAX & "'" end if FAX = Request.Form ("FAX") if FAX <> "" then strSQL = strSQL & ", FAX" strSQL1 = strSQL1 & ", '" & FAX & "'" end if EMAIL = Request.Form ("EMAIL") if EMAIL <> "" then strSQL = strSQL & ", EMAIL" strSQL1 = strSQL1 & ", '" & EMAIL & "'" end if DDD_TEL2 = Request.Form ("DDD_TEL2") if DDD_TEL2 <> "" then strSQL = strSQL & ", DDD_TEL2" strSQL1 = strSQL1 & ", '" & DDD_TEL2 & "'" end if TEL2 = Request.Form ("TEL2") if TEL2 <> "" then strSQL = strSQL & ", TEL2" strSQL1 = strSQL1 & ", '" & TEL2 & "'" end if NOMEAUTO = Request.Form ("NOMEAUTO") if NOMEAUTO <> "" then strSQL = strSQL & ", NOMEAUTO" strSQL1 = strSQL1 & ", '" & NOMEAUTO & "'" end if CARGOAUTO = Request.Form ("CARGOAUTO") if CARGOAUTO <> "" then strSQL = strSQL & ", CARGOAUTO" strSQL1 = strSQL1 & ", '" & CARGOAUTO & "'" end if PAISDESTINO = Request.Form ("PAISDESTINO") if PAISDESTINO <> "" then strSQL = strSQL & ", PAISDESTINO" strSQL1 = strSQL1 & ", '" & PAISDESTINO & "'" end if PAIS = Request.Form ("PAIS") if PAIS <> "" then strSQL = strSQL & ", PAIS" strSQL1 = strSQL1 & ", '" & PAIS & "'" end if A= Request.form("A")if A = "" then A = "0"if A <> "" then strSQL = strSQL & ", A" strSQL1 = strSQL1 & ", '" & A & "'" end ifB= Request.form("B")if B = "" then B = "0" if B <> "" then strSQL = strSQL & ", B" strSQL1 = strSQL1 & ", '" & B & "'" end ifC= Request.form("C")if C = "" then C = "0" if C <> "" then strSQL = strSQL & ", C" strSQL1 = strSQL1 & ", '" & C & "'" end ifD= Request.form("D")if D = "" then D = "0" if D <> "" then strSQL = strSQL & ", D" strSQL1 = strSQL1 & ", '" & D & "'" end ifE= Request.form("E")if E = "" theN E = "0" if E <> "" then strSQL = strSQL & ", E" strSQL1 = strSQL1 & ", '" & E & "'" end if DATA = (Month(Date) & "/" & Day(Date) & "/" & Year(Date))if DATA <> "" thenstrSQL = strSQL & ", DATA"strSQL1 = strSQL1 & ", #" & DATA & "#"end ifstrSQL = strSQL & ") "strSQL1 = strSQL1 & ")"strSQL = strSQL & strSQL1

[Prog 183]

Realmente... Faz o seguinte.

ASP

• response.write strSQL

 

E diz pra gente oq aparece. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[bimpercursso 0]

APARECE ISSO AI, aparentemente esta certo, mas nao sei mais o que fazerinsert into CLIENTES(LOCAL, ENDERECO, RAZ_SOC, NUMERO, P1, P2, P3, P4, P5, P6, NBM_NCM_1, NBM_NCM_2, NBM_NCM_3, NBM_NCM_4, NBM_NCM_5, NBM_NCM_6, COMPLEMENTO, BAIRRO, CIDADE, UF, SITE, CEP, CGC, TEL1, DDD_FAX, FAX, EMAIL, DDD_TEL2, TEL2, NOMEAUTO, CARGOAUTO, PAISDESTINO, PAIS, A, B, C, D, E, DATA) Values('local e data:', 'Endereço:', 'Razão Social:', 'N.º', 'descrição', 'descrição', 'descrição', 'descrição', 'descrição', 'descrição', 'de.de.de.de', 'de.de.de.de', 'de.de.de.de', 'de.de.de.de', 'de.de.de.de', 'de.de.de.de', 'Complemento:', 'Bairro:', 'Cidade:', 'AC ', 'Site: ', 'CEP:','CNPJ:', 'tel', '(0', 'tel', 'E-mail:', '(0', 'tel', 'Nome ', 'Cargo do Autorizante:', 'Países de Destino:', 'ARGENTINA', '0', '0', '0', '0', '1', #7/12/2002#)