cyberalexxx

Eu fiz uma em uma ocasião e mandei para o [guto], mais acho q não salvei, vou ver com ele c ele ainda tem para postar aki.

acabei de testar aki e funcionou, só estava faltando aspas simples no insert o q não tem nada a ver com o erro q voce postou. Seu servidor ter suporte a FSO. <% 'aki voce coloca a sua string se conexão com o banco Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\lcom") Set arquivos = principal.Files For each arq in arquivos Set arquivo = FSO.OpenTextFile(arq,1) for x = 1 to 3 linha3 = arquivo.Readline if x=3 then sql="Insert into tabela(campo) values ('" & linha3 & "')" 'aki voce executa a instrução de acordo com sua conexão com o banco end if next Set arquivo = nothing Next %>

Se não tem campo numérico entaum sua sintaxe esta correta, vamos aguardar entaum o resultado sobre a estrutura da tabela.

posta ai como ficou e o q esta acontecendo.

1 - Todos os campos são do tipo texto??? 2 - Os campos estão setados para permitir comprimento zero??? Acho q pode ser isso.

voce esta tentando gravar um dado incompativel com o tipo definido na estrutura da tabela, tipo gravando letras em campos numérios o colocando aspas simples em campos numéricos, ou deixando de colocar aspas em campos do tipo texto. para ficar mais facil achar o erro faça isso: depois post o resultado aki pra gente avaliar

da uma olhada no post abaixo, acho que é a mesma duvida: http://scriptbrasil.com.br/forum/index.php...ndpost&p=254978

não funciona!!!

fiz isso aki meio correndo é só uma lógica, agora voce adapta a sua necessidade: <% 'aki voce coloca a sua string se conexão com o banco Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set principal = FSO.GetFolder("c:\pasta") Set arquivos = principal.Files For each arq in arquivos Set arquivo = FSO.OpenTextFile(arq,1) for x = 1 to 3 linha3 = arquivo.Readline if x=3 then sql="Insert into tabela(campo) values (" & linha3 & ")" 'aki voce executa a instrução de acordo com sua conexão com o banco end if next Set arquivo = nothing Next %>

da pra colocar validação no form em javascript, mais pra ter mais segurança use no asp o Instr() para procurar tags e caso exista não permita gravação no banco.

upload sem componente, através de classe: baixe e funciona legal: http://www.freeaspupload.net/freeaspupload/download.asp

[/code]

É possivel sim. Olha aki um tutorial sobre arquivos TXT: http://scriptbrasil.com.br/forum/index.php...ndpost&p=180803 Explica melhor o q você quer q eu te passo a lógica.

Acho que não rola não A diferença do include file para o include virtual é que no file voce especifica o path fisico do arquivo e no virtual o path virtual, mas acredito que o arquivo tenha q estar no mesmo servidor.

Simples: <% for each variavel in request.querystring response.write variavel & " - " & request(variavel) & "<BR>" next %> Esse script lista as variaveis e seus valores passados via querystring

OK!! Tópico fechado!!

todos os campos são texto?? inclusive o campo codigo??? caso o campo código seja texto, ta faltando uma aspa, tenta assim: Caso o campo código seja numérico, ta sobrando uma aspa, tenta assim:

no caso do hotmail, voce verificou na pasta de lixo eletronico???

Determinando o tamanho maximo do arquivo no dundas: objUpload.MaxUploadSize = 1000000 Neste exemplo ele permitira arquivos de até 1 Mega (aproximado né, tem aquele lance de 1024 elevado a sei la o q)

No order by o bicho pega, mais tenta assim no primeiro sql: sql="SELECT max(data) as dt, central FROM contrdiariooperadoras WHERE mes = 'abril/05' GROUP by central order by QtdeCadastrosAprov desc " quanto ao 3,3 é o tipo de cursor e tipo de trava do recordset, maiores detalhes em: http://scriptbrasil.com.br/forum/index.php?showtopic=46452

# Standard Security: "Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;" # Trusted connection: "Driver={SQL Server};Server=Aron1;Database=pubs;Trusted_Connection=yes;" # Prompt for username and password: oConn.Properties("Prompt") = adPromptAlways oConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;" Fonte: http://www.connectionstrings.com/

junta dois selects: [/code]

Eita trocinho chato!! Não sei se é minha cabeça q ta devagar mais ainda não consegui colocar tudo em uma instrução SQL só. Da uma olhada se o resultado q você quer é esse: pois vai q eu to tentando uma coisa e é outra. <style type='text/css'> tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 } .titulo { color: blue; font-size:10; font-family:verdana; font-weight:bold } </style> <% response.write"<p class='titulo'>Melhores operadoras do dia<br><br>" set objconn = Server.CreateObject("ADODB.Connection") objconn.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=lcom; Uid=root; Pwd=senha;" SET RS = Server.CreateObject("ADODB.Recordset") SET RS2 = Server.CreateObject("ADODB.Recordset") sql="SELECT max(data) as dt, central FROM contrdiariooperadoras WHERE mes = 'abril/05' GROUP by central " RS.Open SQL,objconn,3,3 response.write "<br><table><tr><td>Data</td><td>Central</td><td>Operadora</td><td>Cad. aprov.</td></tr>" do while not rs.eof sql2="SELECT data, max(QtdeCadastrosAprov) as quant,central, operadora FROM contrdiariooperadoras WHERE mes = 'abril/05' and central='" & Rs("Central") & "' and data ='" & Rs("Dt") & "' group by central" RS2.Open SQL2,objconn,3,3 Do While Not RS2.EOF response.write "<tr><td>" & Rs2("data") & "</td><td>" & Rs2("central") & "</td><td>" & Rs2("operadora") & "</td><td>" & Rs2("quant") & "</td></tr>" RS2.MoveNext loop RS2.close Rs.Movenext Loop %> ai eu montei com duas sql só pra ver c é o resultado q você quer

já dei um dump no meu banco. Complicadinho hein!!! Vou dar uma brincada pra ver c descubro uma forma

não mudou nada!!!