jow

Cara seguinte isso é erro de sintaxe no seu INSERT ...Cara imprime ai oretorno da sua sql strQuery = "INSERT INTO pedidos (solicitante,setor,pedido,quantidade,unidade,situacao) Values('"&vsolicitante&"','"&vsetor&"','"&vpedido&"',"&vquantidade&",'"&vunidade&"','"&vsituacao&"')" response.write strQuery

Cara só substitua a conexão por essa e testa ai ... <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_Conexao_STRING MM_Conexao_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\estoque\bd\estoque.mdb;Persist Security Info=False" Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open MM_Conexao_STRING %>

Cara esse erro é do seu objeto de conexão ... dá uma verificada se o objeto está correto ... isso deveria está na sua conexão. pedido = server.createObject("ADODB.Recordset") Caso não resolva poste a sua conexão

Só imprementar mais campos no form pedido.asp <form action="pedido_pos.asp" method="POST"> <table> <tr> <td>De:</td> <td><input type="text" name="email"></td> </tr> <tr> <td>Para:</td> <td><input type="text" name="email_dest"></td> </tr> </table> </form> pedido_pos.asp <% 'Insira sua conexão SQL = "INSERT INTO table (campos) values ('"&camposForm&"')" set rs = conn.execute(SQL) If request.querystring("op") = 1 then Set mail = CreateObject("CDONTS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("email_dest") ' e-mail de quem vai receber a mensagem mail.CC = "copia@dominio.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "Solicitação de Materiais" & request.form("setor") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "Setor: " & request.form("setor") & vbCrLf & "Pedido: " & request.form("pedido") & vbCrLf & "Quantidade: " & request.form("quantidade")& vbCrLf & "-" & request.form("unidade") mail.Send Set mail = Nothing else end if %>

put's

kkkkkkkkkkk supimpa, já conhecia essa

Tenho minhas dúvidas

Ué cara simples é só você usar o mesmo form para envio de email e gravar no bd !!! Qualque coisa posta ai o script de envio de email do seu server e o formulário

Essa realmente foi a melhos kkkkkkkkkkk

então é só você colocar o script de envio de email abaixo :: 'crio o objeto correio set mail = server.createObject("Persits.MailSender") 'configuro a mensagem 'assinalo o servidor de saída para enviar o correio mail.host = "mail.seudominio.com" 'indico o endereço de correio do remitente mail.from = "oqueseja@seudominio.com" 'indico o endereço do destinatário da mensagem mail.addAddress "oqueseja@seudominio.com" 'indico o corpo da mensagem mail.body = corpo 'o envio 'certifico-me que não se apresentem erros na página se se produzem On Erro Resume Next mail.send if Err ><0 then response.write "Erro, não pode completar a operação" else response.write "Obrigado por preencher o formulário. Foi enviado corretamente." end if obs: no server você terá q ter o componente AspEmail

Ok cara vamos lá primeiro você deve ter um formulário e eu um script de envio de email .... Bom se você dá uma simples pesquisada na net você irá encontrar certamente o q você precisa ... Apenas digitei no google Envio de email em asp e me retonou trocentos sites ... vou te postar um aki http://www.criarweb.com/artigos/421.php Depois ou antes disso é só você usar um insert no banco ...

Leão é encontrado morto depois de tomar substância liquida. Ibama afirma q a substância liquida era "Chá Mate Leão". Português é preso na Alfandega, acompanhe o diálogo com o fiscal : Fiscal: Eae Manuel tudo jóia. Manuel: Não dessa vez também consegui algumas pratas. Em minas Gerais mulher estava esperando o trem qd derepente ela teve q ir ao banheiro A mesma volta a estação e começa a chorar, um rapaz se aproxima e pergunta: ___ O que aconteceu uai. A mulher : ___ É q eu fui no banheiro e o trem partiu ___ Uai, minha senhora e o seu trem já não era partido. Moradores afirmam que a falta de aguá atribui a sua prisão, a aguá matou a sede por isso foi presa. Ronaldo diz que não jogará contra o São Paulo, pois ele só aguenta três travestis.

Muito boa, eu não conhecia ....

<% Dim strPath Dim objFSO Dim objFolder Dim objItem Dim ObjFile Dim ObjStream Const forReading = 1 Const forWriting = 2 Const forAppending = 8 ' O diretório que vai ser listado: strPath = "arquivo/" ' Vamos criar aqui o FileSystemObject: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' ler o conteúdo do diretório Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) For Each objItem In objFolder.Files variavel = objItem.Name arquivo = server.mappath(".") & "\arquivo\" & variavel 'Instância o objeto FSO. Set Fso = CreateObject("Scripting.FileSystemObject") 'O método GetFile retorna o arquivo existente. Set ObjFile = Fso.GetFile(arquivo) 'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. Set objStream = ObjFile.OpenAsTextStream(forReading,false) 'Looping para varrer todas as linha do arquivo. While Not ObjStream.AtEndOfStream 'O método Readline lê uma linha de um arquivo Linha = ObjStream.Readline ' Tira o espaço da Linha dos arquivos Linha = replace(Linha," ","") ' Captura o id no arquivo id_user = (mid(Linha,1,5)) ' Captura a data no arquivo nome_user = trim(mid(Linha,6,8)) Wend Next 'Fecha o arquivo. objStream.Close 'Destruíndo objetos Set Fso = nothing Set objStream = nothing ' Feito !!! Agora é fechar as variáveis Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %> Cara esse script ele lê todos os arquivos do diretório, no meu caso eu tive que separar o conteudo em variáveis e tirar os espaços q existem no arquivo txt, para ter um padrão e assim podere pegar apenas o q eu quero, e trabalhar em variáveis, ou seja em variaveis eu tenho o conteúdo q eu quero ... No meu caso eu tenho exatamente o q eu preciso, assim eu armazeno em um banco de dados as variáveis q eu quero usar ... No script eu só coloquei o principal objetivo lê todos os arquivos do diretório ... Só postei o simples, com o código todo comentado ... Do jeito q está será útil para muita gente ...

Cara consegui resolver ..... Seguinte eu não poderia comparar com datediff pois o intervalo q eu queria era os registros do txt q estão dentro daquela data .... Cara velu ajuda ajuda, ajudou muito mesmo abraço

Bom galera o eu preciso é um seguinte, exibir todos os registros de um determinado intevalo ... Detalhe eu não estou usando banco de dados apenas alguns arquivos txt q estão no diretório ...

Cara adaptei o q você fez e consegui apenas lendo as posições ... dia=right(left(Linha,7),2) mes=right(left(Linha,9),2) ano=right(left(Linha,13),4) Valeu muito bom ... Aproveitando o tópico ... Seguinte eu tenho uma busca onde recebe a data de inicio e a data final, como eu faço para comparar as datas e obter o intervalo delas ... O q eu fiz até agora ... converti a data de inicio e a final para date, o mesmo processo eu fiz com a data do arquivo ... e depos fiz um replace da data de inicio e a final. Assim a todas as datas ficaram no mesmo formato :: 29012009 e comparei assim .. if data_inicio >= Data and data_fim <= Data then Response.write "<br>" & Linha & "<br>" end if ele até traz as datas mas não compara em formato de data ... Enfim como eu faço a comparação para obter o intervalo ???

Ok galera eu já consegui resolver ... Agora estou com outro problema ... Preciso ler a data desses aquivos como posso fazer isso ... Exemplo No arquivo eu tenho :::

Cara realmente são bem legais assim como todas q eu posto aki kkkkkkkkkkkkkkkkkkkkkkkkkkk

hehehehehe ... Cara qd eu vi esse titulo Sessão Piada!, pra alegrar o final de semana(todas novinhas) ... pensei q as piadas fossem sua .... Mas realmente não precisava postar q você tirou de algum site http://humortadela.uol.com.br/ Caraca falei igual ao Jonathan Queiroz ... hehehehe Até parece q temos q ser humoristas ... supimpa suas piadas, continua assim q você terá futuro

Galera estou precisando de uma ajuda ... tenho o seguinte cenário :: Preciso lê todos os arquivos de um diretório .... ok já consigo fazer isso ... Preciso lê o conteudo de cada arquivo ou seja, leu um passou para o próximo .... Está lendo só o primeiro várias vezes ..... A seguir o meu código <% Dim array(4) Dim strPath Dim objFSO Dim objFolder Dim objItem Dim ObjFile Dim ObjStream Const forReading = 1 Const forWriting = 2 Const forAppending = 8 ' O diretório que vai ser listado: strPath = "arquivo/" ' Vamos criar aqui o FileSystemObject: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' ler o conteúdo do diretório Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) %> Conteúdo do diretório: <strong><%= strPath %></strong><br> <% For Each objItem In objFolder.Files variavel = objItem.Name response.write variavel for i = LBound(array) to UBound(array) arquivo = server.mappath(".") & "\" & variavel 'response.write teste 'next 'Instância o objeto FSO. Set Fso = CreateObject("Scripting.FileSystemObject") 'O método GetFile retorna o arquivo existente. Set ObjFile = Fso.GetFile(arquivo) 'response.write arquivo & "<br>" 'O método OpenAsTextStream abre o arquivo como sendo um fluxo de texto. Set objStream = ObjFile.OpenAsTextStream(forReading,false) 'Looping para varrer todas as linha do arquivo. While Not ObjStream.AtEndOfStream 'O método Readline lê uma linha de um arquivo Linha = Linha & ObjStream.Readline & "<br>" Wend 'Mostra o conteúdo. Response.write Linha & "<br>" Next Next ' Feito !!! Agora é fechar as variáveis Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %> </TABLE>

____ Manuel os que estais a acontecer que não faz mais as suas refeiçôes em minha padaria ? ____ Joaquin é eu fui ao dentista e ele me disse para eu passar a comer do outro lado !!! O português sequestra um rapaz, e manda uma carta e uma orelha cortada aos familiares do sequestrado. Horrorizados, os familiares lêem a carta: "Essa orelha é minha... Mas a próxima será dele!" Todos estavam prestes a apedrejar Maria Madalena, quando Jesus falou: - "Quem nunca errou que jogue a primeira pedra!" Um português juntou rapidamente do chão o maior pedregulho que achou e jogou, acertando Maria Madalena. Jesus chegou até ele e perguntou: - "Você nunca errou?" O português respondeu: - "Dessa distância eu nunca errei senhor!"

Cara sinceramente não entendi legal a sua dúvida, então tirei uma conclusão em relação ao seu primeiro post ... Cole esse script ai e veja se é +/- isso <% if request("valor") <> "" then if CINT(request("valor")) < CINT(request("valor_1")) then response.write "O campo <strong>VALOR</strong> é menor" elseif CINT(request("valor")) > CINT(request("valor_1")) then response.write "O campo <strong>VALOR</strong> é maior" elseif CINT(request("valor")) = CINT(request("valor_1")) then response.write "<strong>OS valores são iguais</strong>" end if else %> <html> <head> </head> <body> <form method="POST"> <table> <tr> <td>Valor</td> <td><input type="text" name="valor"></td> </tr> <tr> <td>Valor 1</td> <td><input type="text" name="valor_1"></td> </tr> <tr> <td colspan="2"><input type="submit" value="Verificar"></td> </tr> </table> </form> </body> </html> <%end if%>

Sespeitei desde o principio, pois geralmente o q funciona em outros bancos no access não funciona Mas acho q é uma coisa válida

Cara vou bolar um exemplo aki q eu sei q funciona no sql server no access nunca tentei set rs = conn.execute ("SET NOCOUNT ON;INSERT INTO Professores (campoBD) VALUES (" & campoForm & ");SELECT @@IDENTITY AS Id_Professor;") set rs = conn.execute ("Insert into Materia_serie (Serie, Professor, Materia) values ("&serie&","&Id_Professor&","&materia&")"