marcus Gemeos

Olá pessoal, Eu não estou conseguindo enviar todos os campos no corpo do e-mail com estes comandos abaixo, ou seja, só está enviando no corpo do e-mail, a última linha do body! Alguém poderia me ajudar a altera-lo para enviar quantos campos eu quiser no corpo do e-mail com este envio de email ASP? Abaixo segue o código completo: Obrigado! Marcus <% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.e-construir.com.br" Mail.Port = 25 ' Opcional. Porta 25 é a porta padrão Mail.FromName = Request.QueryString("nome") Mail.From = Request.QueryString("email") destinatario="estudio@e-construir.com.br" Mail.AddAddress destinatario 'Descomente a linha abaixo para enviar e-mail em formato HTML 'Mail.IsHTML = True Mail.Subject = Request.QueryString("assunto") Mail.Body = Request.QueryString("nome") & vbnewline Mail.Body = Request.QueryString("email") & vbnewline Mail.Body = Request.QueryString("ddd") & vbnewline Mail.Body = Request.QueryString("telefone") & vbnewline Mail.Body = Request.QueryString("mensagem") & vbnewline erro = "" sucesso = False On Error Resume Next 'Verifica erros Mail.Send 'Envia mensagem If Err <> 0 Then erro = Err.Description else sucesso = True End If Set Mail = nothing %> <% If erro <> "" Then%> Ocorreu um erro: <% = erro %><% End If %><% If sucesso Then Response.Redirect("http://www.e-construir.com.br/ok.asp")%><% End If %>

Valeu, obrigado!

Olá pessoal, Está dando o seguinte erro: Microsoft VBScript runtime error '800a003e' Input past end of file /chat.asp, line 56 Para este código: Set fileObject = Server.CreateObject("Scripting.FileSystemObject") 'Map appropriate topic file textFile = ("c:\domains\bahiamercado.com.br\wwwroot\files\" & Replace(Topic, "+", "_") & ".txt") If Not fileObject.FileExists(textfile) Then Set inStream = fileObject.OpenTextFile(textFile,8,True,FALSE) inStream.WriteLine " " End If Set inStream = fileObject.OpenTextFile(textFile,1,TRUE,FALSE) file = inStream.ReadAll Set inStream = Nothing Como resolver? Obrigado! Marcus

Olá, Resolvir o problema! Coloquei em extenção: c:\domains\... Acho que por outro modo não conseguia lê... Obrigado! Marcus

Olá pessoal, Já descobrir o que é: Ele trabalha dessa forma: sqlResp_Comentarios_positivos = "SELECT * FROM Comentarios_positivos WHERE Codigo = '"& varID &"' ORDER BY Codigo" E não dessa forma: sqlResp_Comentarios_positivos = "SELECT * FROM Comentarios_positivos ORDER BY Codigo =" & varID Valheu!!! Marcus

Olá pessoal, por que está dando o seguinte erro: Microsoft OLE DB Provider for SQL Server error '80040e14' Line 1: Incorrect syntax near '='. /responder_comentarios_positivas.asp, line 13 Referente há esse código: rsRespComentarios_positivos.Open sqlResp_Comentarios_positivos, Conn,3,3 Agora ela toda: varID = Request.QueryString("id") Session("ID") = varID sqlResp_Comentarios_positivos = "SELECT * FROM Comentarios_positivos ORDER BY Codigo =" & varID rsRespComentarios_positivos.Open sqlResp_Comentarios_positivos, Conn,3,3 E a variavel VarID não está vazia!!! Obrigado! Marcus

Olá pessoal, revolve assim... Tipo assim? Exemplo: <% set cx = server.CreateObject("ADODB.Connection") cx.CommandTimeout = 3000 cx.Open "Provider=sqloledb;Data Source=localhost,1433;Initial Catalog=pubs;User Id=teste;Password=teste;" Set rs = server.CreateObject("ADODB.RecordSet") rs.CursorLocation = 3 sql = "select * from authors" rs.Open sql, cx while not rs.eof response.write rs("au_fname") & "<br />" rs.movenext wend rs.close cx.close %>

Olá pessoal, resolvido... Tipo assim? Exemplo: <% set cx = server.CreateObject("ADODB.Connection") cx.CommandTimeout = 3000 cx.Open "Provider=sqloledb;Data Source=localhost,1433;Initial Catalog=pubs;User Id=teste;Password=teste;" Set rs = server.CreateObject("ADODB.RecordSet") rs.CursorLocation = 3 sql = "select * from authors" rs.Open sql, cx while not rs.eof response.write rs("au_fname") & "<br />" rs.movenext wend rs.close cx.close %>

Olá pessoal, resolvido: Tipo assim? Exemplo: <% set cx = server.CreateObject("ADODB.Connection") cx.CommandTimeout = 3000 cx.Open "Provider=sqloledb;Data Source=localhost,1433;Initial Catalog=pubs;User Id=teste;Password=teste;" Set rs = server.CreateObject("ADODB.RecordSet") rs.CursorLocation = 3 sql = "select * from authors" rs.Open sql, cx while not rs.eof response.write rs("au_fname") & "<br />" rs.movenext wend rs.close cx.close %>

Olá pessoal, Eu acho que foi do servidor mesmo... que derrepente voltou ao normal! Obrigadão! Marcus

Olá pessoal, Por que está dando este erro: Microsoft OLE DB Provider for ODBC Drivers error '8007000e' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x3850 Thread 0x3884 DBC 0xdd81024 Jet'. /banner/conexao_banner.asp, line 18 Se mais cedo estava tudo ok e eu não mexir em nada! Guando fui visualizar a página normalmente, me apareceu essa surpresa! Há... isso é no servidor... aqui na minha máquina está rodando legal! Obrigado! Marcus

Olá DataSet, Qual a conexão que você tem para SQL Server? Pois aquele modo de rs.open, sql, conn, 3,3 não é todo tipo de string que funciona! Obrigado! Marcus

VarNome = request.form("usuario") if VarNome = "adm" then Response.Redirect "pagina_de_administracao.asp" end if Se for busca no banco de dados, coloque assim: Select * from login where usuario = '"& VarNome if VarNome = rs("usuario") then Response.Redirect rs("pagina") end if []´s Marcus

Olá pessoal, Eu possuo a seguinte string de conexão SQL Server: sub abre_conexao set conn = Server.createobject("adodb.connection") conn.Open "DRIVER={SQLServer};SERVER=MARCUS;DATABASE=dados;Uid=marcus;PWD=123" end sub Referente a esse tipo de comando: Set rsLista=conn.Execute(SQLLista2) Eu queria saber, se não tem como trabalhar com uma string SQL Server para esse tipo de comando: RS.Open SQL,Conn,3,3 por exemplo? Obrigadão! Marcus

Oi! Mas o mesmo problema do MySQL em relação a paginação, acontece com SQL Server? Obrigado! Marcus

Olá DataSet, A minha conexão de dados éstá assim: Set rsLista=conn.Execute(SQLLista) E não daquele jeito com ..3,3 entendes? Só tem que ser desse jeito? como posso fazer com a string de conexão do SQL Server? dim conn sub abre_conexao set conn = Server.createobject("adodb.connection") conn.Open "DRIVER={SQL Server};SERVER=70.87.132.122,7654;DATABASE=dadosba;Uid=cellta;PWD=cel2006lta" end sub sub fecha_conexao conn.close set conn = nothing end sub Será que funcionaria? Como é sua string de conexão para SQL Server para esse modo de ...3,3? Obrigado! Há valheu "Fantasma" pelo link... já tenho esse sistema! Bem legal! Marcus

Olá Cyberalexxx, Você tem aquele sistema de paginação de "LIMIT" pois pelo record está dando o seguinte erro: ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /lista.asp, line 234 para seguinte linha de código: rsLista.AbsolutePage=intpagina Eu já não sei mas o que fazer... e só falta esse detalhe para eu concluir o sistema! :( Obrigadão mesmo!!! Marcus

Olá pessoal, Está dando erro no meu sistema de paginação com o banco de dados SQL Server! ADODB.Recordset error '800a0cb3' Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. /adm19812006/dados_de_clientes.asp, line 120 Referente essa linha: RS.AbsolutePage=intpagina Como faço para resolver esse probleminha? Obrigado! Marcus

Olá amiga, Eu tenho uns #include file nesta página chamando outros arquivos conectados ao mesmo arquivo de conexao, aí deu conflito... mas já resolvir o problema! Obrigadão! Marcus

Olá amiga, Está dando o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC SQL Server Driver][sql Server]Cannot insert the value NULL into column 'codigo', table 'dadosba.dbo.usuarios'; column does not allow nulls. INSERT fails. /cadastro_enviado.asp, line 31 Por que esse campo código era auto numeração, como faz em SQL? Sabe por que? :( Obrigado! marcus

Olá pessoal, Na minha programação simples está dando o seguinte erro: Microsoft VBScript runtime error '800a01a8' Object required: 'Conexao' /clipping/conexao_dados_clipping.asp, line 8 mas não vejo nada de mais... está tudo declarado normal: <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=" & server.mappath("../dados/dados.mdb;Uid=admin;pwd=123;") & ";Driver={Microsoft Access Driver (*.mdb)}" end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> Obrigado! Marcus

Olá amiga, Você sabe onde posso achar uma lista de palavras reservadas do SQL Server? Obrigado! Marcus

Olá pessoal, Está dando o seguinte erro na hora da inserção de dados no banco! Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC SQL Server Driver] [SQL Server]Incorrect syntax near the keyword 'end'. /cadastro_enviado.asp, line 31 Para o seguinte código: sqlSelectUsu = "SELECT * FROM usuarios WHERE Nome = '" & VarNome & "'" sqlInsertUsu = "INSERT INTO usuarios (Nome, dia, mês, ano, cpf, ddd, telefone, email, end, bairro, cidade, estado, nacionalidade, cep, usuario, senha, data, Ativo) values ('" & VarNome & "', '" & VarDiaNasc & "', '" & VarMesNasc & "', '" & VarAnoNasc & "', '" & VarCPF & "', '" & VarDDD & "', '" & VarTelefone & "', '" & VarEmail & "', '" & VarEndereco & "', '" & VarBairro & "', '" & VarCidade & "', '" & VarUF & "', '" & VarNacionalidade & "', '" & VarCEP & "', '" & VarUsuario & "', '" & VarSenha & "', '" & VarDataCadastro & "', '" & VarAtivo & "')" Precisso! Obrigadão! Marcus

Olá pessoal, Alguém sabe converter esta mesma conexão abaixo para SQL Server! Obrigadão! Marcus 'Efetuando a conexão com a base de dados criada ----------------------- Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("dados/dados.mdb") Conn.open

Olá amigo, Funcionou... mas como? só mudar o POST para GET? Não eentendi a lógica! Mais funcionou perfeitamente! Obrigadão! Marcus