ADL

:) Boa tarde pessoal como fazer para dividir a tabela em quatro partes? É o seguinte imagimen minha pagina principal com um menu ao lado esquerdo, ao lado do menu tem uma texto ao lado desse texto quero colocar outro texto, do mesmo modo em cima quero em baixo. porem quando eu faço isso fica tudo embaixo do outro mesmo tirando a tag <tr> tem algum truque ai por favor me ajudem!!!!!

:D Ai valeu... Eu estáva testando sem separar como você disse estáva usando xxxxxxxxxxxxxxxaaaaaaaaaaaaazxxxxxxxxxxxxxxxxxxxxxxccccccccccccc ai quando eu ia ver na página como ficou rsrsrsrs agora eu fiz um teste direitinho e funcionou perfeitamente muito obrigado pela força!!!!!!!!ADL

:( Bom pessoal é o seguinte, tenho um formulário para as pessoas inserir duvidas, e no banco está como memorando, se ela inserir muito texto quando é clicado no link para mostrar a dúvida, ela não está quebrando linha, está indo direto mais ou memos assim: as informações são inserida numa textarea e quando ela quebra a linha eu penso que no banco também mas não fica tudo na mesma linha, quando eu recupero essa dúvida está esticando o site ao invés de quebrar linha o engraçado, e se eu inserir a informação direto na tabela, ela me retorna direitinho, tem um jeito de fazer, quando a informação for inserida pelo formulário ela não esticar o site. muito obrigado!!!!

Ok valeu as dicas!!!!

:D Boa tarde alguém pode me ajudar por favor ok? Peguei esse código na internet alguém pode da uma olhada segue o código: quero centralizar ela no centro da minha página!!! <script language="JavaScript"> function abrejanela() { nj=window.open("","miniwin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=200,height=240"); nj.document.open(); } function resultados(url) { var janela = null janela=window.open(url,'resultados','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,menubar=no,width=200,height=240') } </SCRIPT> Não entendi você pode me explicar onde tenho que colocar as coordenadas por favor?

eu tenho que colocar o method? :D Ok valeu agora funcionou muito obrigado!!!!!

:) Segue o código do formulario: <form action="acesso.asp"> <table border="0"> <tr> <td class="DadosGerais">Login:</td> <td><input type="text" name="login" size="20"> <td class="DadosGerais">Senha: <td><input type="password" name="senha" size="20"></td> <td> <input type="submit" value="Entrar"> </td> </tr> </form> </table>

:D Muito obrigado funcionou obrigado pela ajuda ok boa tarde!!!!

:) Boa tarde pessoal sera que alguém, pode dar uma olhada nesse código para mim? é o seguinte ele não esta recuperando os dados já teste, com response.write(rstabela) e fica tudo branco quando eu dou um response.write(vlogoin) fica em branco alguém pode olhar para mim ok por favor!!!! <%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Buffer = True %> <!--#Include file="conexao/dbConexao.inc"--> <% Dim conexaoDataBase,ConnString,estilo Dim strINS, rsTabela,sqlTabela,vlogin,vsenha response.buffer="true" 'Recupero o texto que foi escrito no formulário vlogin=trim(request.form("login")) vsenha=trim(request.form("senha")) Call abreConexao set rsTabela=conexaoDataBase.execute("select * from tabela1 where login='"&vlogin&"' and senha='"&vsenha&"'") 'response.write(vlogin) 'response.end estilo ="Perfil" %>

no href não tem mailto como fazer? por favor!!

:D Bom dia!!! Como fazer quando o usuário clicar no link fale conosco abrir o outlook, alguém pode me ajudar por favor, estou precisando muito ok muito obrigado ADL!!!!

:D oI Amigo não sei se vai te ajudar tem umlink de funções no forum se eu não me engano deve ter codigo de aspmail eu pegeui mas era de CDONTS tem varias explicações!!!!! vou olhar e pegar o link ok tenta esse: scriptbrasil.com.br/forum/index.php?showtopic=17305 ok dsa uma olhada!!!

:) Oi pessoal boa tarde! Estou precisando fazer uma enquente em asp alguém sabe onde acho alguma coisa falando sobre isso? Alguma apostila tutorial não gostaria que já estivesse pronto gosto de fazer porque é assim que eu aprendo. Por favor me ajudem ok mais uma vez muito obrigado a todos que sempre cooperam!!!!! ADL

:D Oi obrigado pela ajuda eu achei alguns email no mailroot, mas como eu faço para eles chegarem ate mim?

:D Oi bom dia!! Eu tenho uma duvida estou desenvolvendo uma página fale conosco que sera enviada por email. acontece o seguinte quando eu clico no botão enviar aparece a resposta seu email foi enviado som sucesso, so quer acontece que ele demora 4 dias ou mais para chegar estou rodando no IIS sera que é configuração pode ser o código errado por favor quem puder me ajudar desde já agradeço!!!!! Segue o código? <%@LANGUAGE="VBSCRIPT"%> <% msgTexto = "Teste de envio de formulário" + vbCRLF msgTexto = msgTexto + "Nome: " + request.form("txtNome") + vbCRLF msgTexto = msgTexto + "Telefone: " + request.form("txtTelefone") + vbCRLF msgTexto = msgTexto + "Mensagem: " + request.form("txtMensagem") + vbCRLF Response.Expires = 0 if request("botao")="enviar" then Set email=CreateObject("CDONTS.NewMail") email.From = request.Form("txtEmail") email.to="meudominio@fdfsdfsdf.com" email.Subject=request.Form("txtassunto") email.Body=msgTexto e=email.Send Set email=nothing end if

:D Oi bom dia! De uma olhada em javaScript você pode usar um if em java colocamos uma função para habilitar eu não conheço muito bem as funções de java srcipt mas de uma olhada ok. Acabei de pesquisar no googlo e achei isso não sei se vai ajudar ok Código: document.form1.nome.disabled = 0; // para ativado document.form1.nome.disabled = 1; // para desativadoSe você for fazer algo como ativar/desativar você pode usar essa função: Código: function x() { document.form1.nome.disabled = (document.form1.nome.disabled) ? 0 : 1; }

:D OI obrigado por responder! me tire uma duvida eu fiz um teste de envio 2 dias atras e só hoje chegou o email é normal isso? posso dizer que está funciomando? Segue o código? <%@LANGUAGE="VBSCRIPT"%> <% msgTexto = "Teste de envio de formulário" + vbCRLF msgTexto = msgTexto + "Nome: " + request.form("txtNome") + vbCRLF msgTexto = msgTexto + "Telefone: " + request.form("txtTelefone") + vbCRLF msgTexto = msgTexto + "Mensagem: " + request.form("txtMensagem") + vbCRLF Response.Expires = 0 if request("botao")="enviar" then Set email=CreateObject("CDONTS.NewMail") email.From = request.Form("txtEmail") email.to="meudominio@fdfsdfsdf.com" email.Subject=request.Form("txtassunto") email.Body=msgTexto e=email.Send Set email=nothing end if

:D Oi bom dia estou rodando iis !!!! obrigado pela força!!!!

:( Oi pessoal descupe o incomodo não estou conseguindo enviar um email, eo seguinte estou desenvolvendo uma página fale conosco quando eu clico em enviar não da erro da a mensagem seu email foi enviado com sucesso já pesquisei no forum mas não solucionou meu problema ei instalei o CDONTS será que é configuração? alguém pode me ajudar por favor

:( Ola a todos estou tentando fazer um formulario para envio de email mas não está dando certo já instalei o cdont e da esse erro agara: Erro de tempo de execução do Microsoft VBScript erro '800a01b6' O objeto não dá suporte para a propriedade ou método: 'email.form' /robson/Enviar.asp, line 9 <%@LANGUAGE="VBSCRIPT"%> <% msgTexto = "Teste de envio de formulário" + vbCRLF msgTexto = msgTexto + "Nome: " + request.form("txtNome") + vbCRLF msgTexto = msgTexto + "Telefone: " + request.form("txtTelefone") + vbCRLF msgTexto = msgTexto + "Mensagem: " + request.form("txtMesagem") + vbCRLF Response.Expires = 0 Set email = CreateObject("CDONTS.NewMail") email.Form = request.Form("txtEmail") email.to="adilson_asp@hotmail.com" email.Subject=request.Form("txtassunto") email.Body=msgTexto email.Send Set email=nothing estilo ="FALE" %> por favor estou precisando muito sou iniciante em asp, quem pudere eu agradeço!!!!!

:D Bom dia pessoal sera que alguém pode me ajudar a instalar o CDONT e onde devo instala-lo? e como configura-lo é que eu sou novato, por favor, e um otimo dia a todos ADL.

:o to me quebrando mas mesmo assim não funciona, agora da esse erro: Tipo de erro: Objeto Server, ASP 0177 (0x800401F3) Seqüência de classe inválida /robson/Enviar.asp, line 8 <%@LANGUAGE="VBSCRIPT"%> <% msgTexto = "Teste de envio de formulário" + vbCRLF msgTexto = msgTexto + "Nome: " + request.form("txtNome") + vbCRLF msgTexto = msgTexto + "Telefone: " + request.form("txtTelefone") + vbCRLF msgTexto = msgTexto + "Mensagem: " + request.form("txtMesagem") + vbCRLF Response.Expires = 0 Set email = Server.CreateObject("CDONTS.NewMail") email.Form = request.Form("txtEmail") email.to="adilsonere@terra.com.br" email.Subject=request.Form("txtassunto") email.Body=msgTexto email.Send Set email=nothing estilo ="FALE" %>

:D Oi pessoal desculpe mais uma vez eu sei que estou enchendo e que sou novato e estão jogando um monte de coisas nas minhas mãos, mas é assim que se aprende ok... estou fazendo um formulario para enviar e-mail so que está dando erro: Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: 'sever' /robson/Enviar.asp, line 8 segue o codigo se alguém souber ok agradeço, preciso muito disso com urgencia: <%@LANGUAGE="VBSCRIPT"%> <% msgTexto = "Teste de envio de formulário" + vbCRLF msgTexto = msgTexto + "Nome: " + request.form("txtNome") + vbCRLF msgTexto = msgTexto + "Telefone: " + request.form("txtTelefone") + vbCRLF msgTexto = msgTexto + "Mensagem: " + request.form("txtMesagem") + vbCRLF Response.Expires = 0 Set email = sever.createObject("Persits.MailSender") email.Form = request.Form("txtEmail") email.to="adilsonere@terra.com.br" email.Subject=request.Form("txtassunto") email.Body=msgTexto email.Send Set email=nothing estilo ="FALE" %> <html> <head> <title>Campos do Jordão</title> <link href="estiloSite.asp" rel="stylesheet" type="text/css"> </head> <body> <table width="758" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <form name="form1" method="post" action="pesquisa.asp"> <tr> <td background="estilos/<% = estilo %>/ceu14.gif" class="LogoSuperior"></td> </tr> </form> <tr> <td background="estilos/<% = estilo %>/Data.gif " class="LogoSuperiorData"><% = formatDateTime(date,1) %></td> </tr> <tr> <td background="estilos/<% = estilo %>/BemVindo1.gif" class="LogoImagem"></td> </tr> <tr> <td valign="top" background="estilos/<% = estilo %>/PagCentral.gif " class="PaginaCentral"> <table width="758" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="213" valign="top"><!-- #Include file="menuSup.asp"--></td> <td width="545" valign="top"> <table width="100%" border="0" celspacing="0" cellpadding="0"> <tr> <td class="DadosGerais"><br>Seu e-mail foi enviado com sucesso</td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td background="estilos/<% = estilo %>/rodape.gif" class="Rodape">Rob Tour - 0xx11 9367-1268</td> </tr> </table> </body> </html>

:D Oi pessoal consegui resolver meu problema para verificar se um dado já existe em um banco de dados!!! Achei uma função no forum agradeço as pessoa(s) que colocaram as funções...... Vou colocar o codigo quem sabe pode ajudar alguém ok mais uma vez muito obrigado!!!!! <% @ LANGUAGE="VBSCRIPT"%> <% Option Explicit Dim varNome,varEndereco,varCidade,varEstado ,varCep,varEmail,varTelefone,varCel,comp,comp1,nom Dim conexaoDataBase Dim strINS, rsTabela,ConnString,sqlTabela set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\serieweb\nasp\database\dbcadastro.mdb;Persist Security Info=False" conexaoDataBase.Open ConnString comp1 = "não" comp=cstr(trim(request.form("txtNome"))) varNome = TRIM(request.form("txtNome")) varEndereco = TRIM ( request.form("txtEndereco")) varCidade =TRIM (request.form("txtCidade")) varEstado =TRIM(request.form("txtEstado")) varCep=TRIM(request.form("txtCep")) varEmail=TRIM(request.form("txtEmail")) varTelefone=TRIM(request.form("txtTelefone")) varCel=TRIM(request.form("txtCel")) strINS = " SELECT * From tabela WHERE nome = ' " & comp & " ' " set rsTabela=conexaoDataBase.execute(strINS) if rsTabela.eof = true then strINS = "INSERT INTO tabela(nome,endereco,cidade,estado,cep,email,telefone,cel)VALUES( ' "&varNome&" ' , ' "&varEndereco&" ' , ' "&varCidade&" ' , ' "&varEstado&" ' , ' "&varCep&" ' , ' "&varEmail&" ' , ' "&varTelefone&" ' , ' "&varCel&" ' )" set rsTabela=conexaoDataBase.execute(strINS) response.write("Os dados do senhor(a) ") response.write(VarNome) response.write(" foram cadastrado com sucesso!!!") else response.write("Dados já existente em nosso Banco de Dados!" ) end if %> <a href="listar.asp">Mostrar os Dados Cadastrados!!!</a> <% conexaoDataBase.Close Set conexaoDataBase = nothing %>

:D Ola ainda não consegui sera que alguém pode me ajudar preciso verificar se os dados já estão no banco de dados não está funcionando é como se o loop não funcionasse, parece que as intruções não entra no loop . <% @ LANGUAGE="VBSCRIPT"%> <% Option Explicit Dim varNome,varEndereco,varCidade,varEstado ,varCep,varEmail,varTelefone,varCel,comp,comp1 Dim conexaoDataBase Dim strINS, rsTabela,ConnString,sqlTabela set conexaoDataBase = Server.CreateObject("ADODB.Connection") ConnString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\serieweb\nasp\database\dbcadastro.mdb;Persist Security Info=False" conexaoDataBase.Open ConnString comp1 = "não" comp=cstr(trim(request.QueryString("txtNome"))) varNome = TRIM(request.form("txtNome")) varEndereco = TRIM ( request.form("txtEndereco")) varCidade =TRIM (request.form("txtCidade")) varEstado =TRIM(request.form("txtEstado")) varCep=TRIM(request.form("txtCep")) varEmail=TRIM(request.form("txtEmail")) varTelefone=TRIM(request.form("txtTelefone")) varCel=TRIM(request.form("txtCel")) strINS = " SELECT * From tabela WHERE nome = ' " & comp & " ' " set rsTabela=conexaoDataBase.execute(strINS) while not rsTabela.eof if(comp=rsTabela("nome"))then comp1="sim" response.write("Dados já existente em nosso Banco de Dados!" ) end if rsTabela.MoveNext wend if comp1="não" then strINS = "INSERT INTO tabela(nome,endereco,cidade,estado,cep,email,telefone,cel)VALUES( ' "&varNome&" ' , ' "&varEndereco&" ' , ' "&varCidade&" ' , ' "&varEstado&" ' , ' "&varCep&" ' , ' "&varEmail&" ' , ' "&varTelefone&" ' , ' "&varCel&" ' )" set rsTabela=conexaoDataBase.execute(strINS) response.write("Os dados do senhor(a)") response.write(VarNome) response.write(" foram cadastrado com sucesso!!!") end if %> <a href="listar.asp">Voltar</a> <% conexaoDataBase.Close Set conexaoDataBase = nothing %>