Leandro Rocha

O For Each pega os dados de um formulário e a intenção é que ele pegue os valores e campos na mesma orde em que aparecem no formulário, porém se eu tenho os campo CAMPO1, CAMPO e CAMPO3 respectivamente, quando faço o for each ele altera as posições. A inteção do script é pegar todos os campos e valores do formulário e mostra na tela na mesma ordem que aparece no formulário, ou seja, se eu tiver 03 formulários diferentes o arquivo para mostrar os dados será o mesmo. Obrigado.

Olá pessoal, tenho um formulário com aproximadamente 20 campos e através do foreach recupero seus valores. Porém os campos estão vindo de forma desordenada, diferente da ordem que aparecem no formulário. Exemplo: <form method="post" action="FrmSubmit.asp"> <table width="250" border="0" align="center" cellpadding="3" cellspacing="2"> <tr> <td width="23%">Nome:</td> <td width="77%"><input type="text" name="textfield" id="textfield" /></td> </tr> <tr> <td><input type="text" name="textfield2" id="textfield2" /></td> <td><input type="text" name="textfield3" id="textfield3" /></td> </tr> <tr> <td><input type="text" name="textfield4" id="textfield4" /></td> <td><input type="text" name="marca" id="textfield5" /></td> </tr> <tr> <td><input type="text" id="Nome" /></td> <td><input type="text" name="textfield7" id="textfield7" /></td> </tr> <tr> <td>&nbsp;</td> <td><input type="text" name="textfield9" id="textfield9" /></td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> <tr> <td><input type="text" name="textfield10" id="textfield10" /></td> <td><input type="text" name="textfield8" id="textfield8" /></td> </tr> <tr> <td>&nbsp;</td> <td><input type="submit" name="button" id="button" value="Submit" /></td> </tr> </table> </form> Para pegar os dados: <% For each i in Request.Form response.Write request.form(i)&"<br/>" Next %> Resultado: textfield textfield2 textfield3 textfield4 textfield7 textfield9 textfield10 textfield8 marca O campo marca não e o ultimo do FORM!! alguém sabe o que ocorre? Vlw

Fala galera.. alguém ae sabe como passar esse codigo de PHP para asp..só consegui uma pequen aparte..é um sistema de abas com ajax... <?php function stringForJavascript($in_string) { $str = ereg_replace("[\r\n]", " [url=http://file://\\n\\\n]\\n\\\n[/url]", $in_string); $str = ereg_replace('"', '\\"', $str); Return $str; } switch($_GET['id']) { case 'tab1': $content = 'This is content for tab 1.'; break; case 'tab2': $content = 'This is content for tab 2.'; break; case 'tab3': $content = 'This is content for tab 3.'; break; case 'tab4': $content = 'This is content for tab 4.'; break; default: $content = 'There was an error.'; break; } print stringForJavascript($content); usleep(400000); ?>

Galera, vi num outro forum que pe possível executar uma query no global.asa em tempos determinados e com isso por exemplo manda um email para o administrador de 30 em 30 dia. Gostaria de fazer isso de 7 em 7 dias gerando uma newsletter. Abaixo segue o código da newslewtter fincionando. <!--#include file="../../inc/conn.asp"--> <!--#include file="../../inc/data_invertida.asp"--> <!--#include file="../../inc/data.asp"--> <!--#include file="../../inc/destratamento.asp"--> <link rel="stylesheet" href="../../css/style.css" type="text/css" media="screen" charset="utf-8" /> <% Set rstEmail = conn.execute("Select * from tbl_newsletter") if rstEmail.eof then response.write "" else while not rstEmail.eof email = Array(rstEmail("email")) nome = Array(rstEmail("nome")) For c = lbound(email) to ubound(email) email_ok = email_ok & rstEmail("email")&"," nome_ok = nome_ok & rstEmail("nome")&"," rstEmail.moveNext Next Wend email_ok = Mid(email_ok,1,Len(email_ok)-1) nome_ok = Mid(nome_ok,1,Len(nome_ok)-1) email1 = Split(email_ok,",",-1,1) nome1 = Split(nome_ok,",",-1,1) IF n = "" then n = 0 End if n = cInt(n)+cInt(1) For n = lbound(email1) to ubound(email1) Set SendMail = Server.CreateObject("CDONTS.Newmail") SendMail.From = "leandro@arquivoteen.com.br" SendMail.To = email1(n)'"leandro@arquivoteen.com.br" 'SendMail.Subject = "Olá você, confira as baladas do final de semana." SendMail.Subject = "Olá "&nome1(n)&", confira as baladas do final de semana." Set rstNewsletter = Server.CreateObject("adodb.recordset") Datai = datainvertida(date()) Dataf = datainvertida(Dateadd("d",6,Datai)) Sql = "Select * From tbl_agenda where data between '" & Datai & "' and '" & Dataf & "' and condicao=1 order by data, festa" rstNewsletter.Open Sql,conn If rstNewsletter.eof then response.write "<center><span class=texto>Não há festas para este final de semana!</span></center><br>" else corpo = corpo &"<html>" corpo = corpo & "<style type='text/css'>" corpo = corpo & ".style1 {font-size: 3em;color:#f5f5f5;font-weight:bold;}" corpo = corpo &"body {" corpo = corpo & "margin:1px;" corpo = corpo & "padding:0;" corpo = corpo & "border:0;" corpo = corpo & "background-color:#000000;" corpo = corpo & "}" corpo = corpo &".texto {" corpo = corpo & "font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo & "font-size:0.6em;" corpo = corpo & "color:#F5F5F5;" corpo = corpo &"}" corpo = corpo &"a {" corpo = corpo & "text-decoration:none;" corpo = corpo & "display:inline;" corpo = corpo & "color:#F5F5F5;" corpo = corpo & "font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo & "font-size:0.6em;" corpo = corpo &"}" corpo = corpo &"a:hover {" corpo = corpo & " /*text-decoration:underline;*/" corpo = corpo &"}" corpo = corpo & ".texto_negrito {" corpo = corpo & "font-family: Verdana, Arial, Helvetica, sans-serif;" corpo = corpo & "font-size:0.6em;" corpo = corpo & "font-weight:bold;" corpo = corpo & " color:#f5f5f5;" corpo = corpo & "}" corpo = corpo & "</style>" corpo = corpo &"<body>" corpo = corpo & "<table width='520' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#252525'>" corpo = corpo & "<tr>" corpo = corpo & "<td width='150' height='60' bgcolor='#252525'><a href='http://www.arquivoteen.com.br/'><img src='http://www.arquivoteen.com.br/baladateen/css/logo_newsletter.jpg' alt='ArquivoTeen.com.br' width='150' height='60' border='0' /></a></td>" corpo = corpo & "<td width='364' align='center' bgcolor='#252525' class='style1'>NewsLetter</td>" corpo = corpo & "</tr>" corpo = corpo & "<tr>" corpo = corpo & "<td height='60' colspan='2'><span class='texto'>Fique por dentro do que vai rolar neste pr&oacute;ximo final de semana! Para saber mais acesse </span><a href=http://www.arquivoteen.com.br/ target=_self><b>www.arquivoteen.com.br</b></a><span class='texto'>.<br> Caso não consiga vizualizar este email </span><a href=http://www.arquivoteen.com.br/baladateen/newsletter.asp target=_blank><b>clique aqui</b> </a> <span class='texto'>e confira o que rola no final de semana.</span</td>" corpo = corpo & "</tr>" corpo = corpo & "<tr>" corpo = corpo & " <td colspan='2' class='texto'>" corpo = corpo & "<br /> " corpo = corpo & "<table width='270' border='0' align='center' cellpadding='4' cellspacing='4'>" corpo = corpo & "<tr>" c = 2 ' numero de colunas DO WHILE NOT rstNewsletter.EOF And Count < rstNewsletter.PageSize i = i + 1 if p = "" then p = 1 else p = p end if corpo = corpo & "<td bgcolor='#252525' onmouseover='java script:this.style.backgroundColor='#333333'' onmouseout='java script:this.style.backgroundColor='''><table width='270' border='0' align='center' cellpadding='0' cellspacing='0'>" corpo = corpo & "<tr>" corpo = corpo & " <td width='56' height='67' align='center' valign='middle'><a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank><img src="&rstNewsletter("img")&" width='56' height='56' border='0'/></a></td>" corpo = corpo & "<td>&nbsp;</td>" corpo = corpo & "<td width='209' align='left' background='http://www.arquivoteen.com.br/baladateen/css/fundo_degrade.jpg'>&nbsp;<a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&datacerta(rstNewsletter("data"))&"</a><br />" corpo = corpo & "&nbsp;<a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&rstNewsletter("festa")&"</a><br />" corpo = corpo & "&nbsp;&nbsp;<a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank>"&rstNewsletter("Local1")&"</a></td>" corpo = corpo & "</tr>" corpo = corpo & " </table></td>" p = cint(p)+cint(1) if i = c then corpo = corpo & "</tr>" corpo = corpo & "<tr>" i = 0 end if 'Count = Count + 1 rstNewsletter.MoveNext LOOP corpo = corpo & "</tr>" corpo = corpo & "</table><br /> </td>" corpo = corpo & "</tr>" corpo = corpo & "<tr>" corpo = corpo & "<td height='30' colspan='2' bgcolor='#252525'><span class=texto> Este &eacute; um email autom&aacute;tico, enviado aos cadastrados na newsletter do site</span> <a href=http://www.arquivoteen.com.br target=_blank><b>www.arquivoteen.com.br</b></a><span class=texto>. Caso n&atilde;o queira mais receber emails deste site, por favor acesse</span> <a href=http://www.arquivoteen.com.br target=_blank><b>www.arquivoteen.com.br</b></a><span class=texto> e retire seu email do nosso banco de dados. Por favor n&atilde;o responda este email.</span></td>" corpo = corpo & "</tr>" corpo = corpo & "</table>" end if corpo = corpo &"</body>" corpo = corpo &"</html>" SendMail.Body = corpo SendMail.BodyFormat = 0 SendMail.MailFormat = 0 SendMail.Importance = 2 SendMail.Send Set SendMail = nothing Response.Write "<span class=texto>Email '"&nome1(n)&"' enviado para <b>' "&email1(n)&" '</span></b><br>" Next end if conn.close Set rstNewsletter = nothing Set conn = nothing Set SendMail = Nothing %> isso num arquivo ASP funciona normalmente..mais como faço pra usar esse código no global.asa e toda quarta feira ele executa o código mandando os email????? abaixo segue o código que vi na NET falando da possibilidade: <script LANGUAGE=VBScript RUNAT=Server> ' O aplicativo iniciou e foi definido a data de hoje à variável Application("Data" ) ' A data de envio do email foi definida para 30 dias depois da data de hoje Sub Application_OnStart Application.Lock Application("Data") = Date Application("DataDeEnvio") = DateAdd("d", 30, Date) Application.Unlock End Sub 'Agora a sessao do usuario vai inicializar ' Vamos agora fazer uma verificação para saber se hoje é o dia da data de envio do email Sub Session_OnStart ' Se a data de envio e a data de hoje conferir, o email será enviado ao webmaster ' Mas antes disso, a data de envio é modificada novamente para daqui a mais 30 dias. if Application("DataDeEnvio") = Date then Application.Lock Application("Data") = Date Application("DataDeEnvio") = DateAdd("d", 30, Date) Application.UnLock ' Código para enviar o email ao webmaster. Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.To = "webmaster@do.site.com.br" objMail.From = "script@automatico.com" objMail.Subject = "Email do mês!" objMail.Body = "Email enviado para o webmaster." objMail.Send End if End Sub </SCRIPT>

Galera, eu hospedo mais de um site em uma mesma hospedagem, ou seja, também uso o mesmo DNS para todos os domínios e por isso queria identificar qual site o usuario deseja acessar e redirecionar para o endereço correto..uso este codigo abaixo mais não ta funcionando..algume pode me ajudar? vlw <script language="javascript"> var endereco = window.location.href; if(endereco=="[url="http://www.arquivoteen.com.br/"]http://www.arquivoteen.com.br/[/url]" || endereco=="[url="http://www.arquivoteen.com.br"]http://www.arquivoteen.com.br[/url]" || endereco=="[url="http://www.arquivoteen.com.br/"]www.arquivoteen.com.br/[/url]" || endereco=="[url="http://www.arquivoteen.com.br"]www.arquivoteen.com.br[/url]"); window.location.replace("[url="http://www.arquivoteen.com.br/arquivoteen/"]http://www.arquivoteen.com.br/arquivoteen/[/url]"); else if(endereco=="[url="http://www.anunciosregionais.com.br/"]http://www.anunciosregionais.com.br/[/url]" || endereco=="[url="http://www.anunciosregionais.com.br"]http://www.anunciosregionais.com.br[/url]" || endereco=="[url="http://www.anunciosregionais.com.br/"]www.anunciosregionais.com.br/[/url]" || endereco=="[url="http://www.anunciosregionais.com.br"]www.anunciosregionais.com.br[/url]"); window.location.replace("[url="http://www.arquivoteen.com.br/anunciosregionais/"]http://www.arquivoteen.com.br/anunciosregionais/[/url]"); </script>

Pessoal é o seguinte! Tenho um banco de dados com 2 usuários. Os usuários tem a opção de postar recados um para o outro e na tela inicial de cada um deles é exibido os recados q ainda não foram lidos. Abaixo segue a estrutura do banco: TBL_USUARIOS ... TBL_POST ... TBL_POSTLIDO sempre que um usuário posta alguma coisa, logo após a inclusão do recado no banco eu também incluo na tabela TBL_POTSTLIDO o id do usuario q posto e o id do post q ele leu..no caso eu considero um post q eu mesmo escrevi como lido por exemplo..para q ele não apareça em minha pagina inicial. Minha dúvida é a seguinte..como a tela principal dos usuários são a mesma, diferenciando apenas o login como eu faço para que os post q de acordo com a tabela TBL_POSTLIDO sejam exibidos para cada um deles.. minha idéia era usar a seguinte SQL..a lógica no caso Set rstConsulta = conn.execute("SELECT * from post where (SELECT id FROM usuarios) NOT IN(SELECT idusuario FROM postlido) ORDER BY data_inc DESC") algume pode me ajudar? vlw

A pergunta inicial é: Que tipo de dado você utilizou para o seu campo hora em sua tabela tbl_Blog? String? Time? Outra pergunta. Por que você não utiliza a hora do próprio servidor para fazer o que deseja? Pois pelo que estou vendo você está utilizando a hora da máquina cliente. É isto? Se for, pense bem. pois a hora do servidor padroniza e controla melhor o histórico que você está querendo montar. Se você estiver usando a hora do servidor com o campo hora no formato date/time faça assim: Set rstINC = conn.execute("Insert Into tbl_Blog (hora) VALUES (Time())") att Denis Courcy vlw..resolvido

vlw marcio..descobri o erro..

tentei dessa forma q você me passo e também deu erro.. esse é o erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [MySQL][ODBC 3.51 Driver][mysqld-5.0.41-community-nt]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'from tbl_Posts WHERE codusuario=19 and bloqueio=0' at line 1 /testes/fotolog/miolo.asp, line 80

estou usando o ASPUpload pra enviar imagens pro servidor..no ACCESS eu faço td certinho e gravo no banco...mais agora to passando tudo pra MySql..o campo com caminho da imagem no MYSQL é um campo TEXTO mais da erro na hora de gravar..alguém sabe como?

E ae galera beleza? alguém sabe alguma forma de contar registros uma tabela em banco MySql 5 ?? usando ACCESS eu faço assim: <% Set rstCP = conn.execute("Select count (*) as total from tbl_Posts WHERE codusuario="&session("id")&" and bloqueio=0") response.write rstCP.fields(0) %> mais com MySql num da certo não. vlw

Como faço pra inserir a hora atual no MySql to usando assim: Set rstINC = conn.execute("Insert Into tbl_Blog (hora) VALUES ('"&Time()&"')") mais já tentei NOW() e também num dei.. vlw

não entendi. como assim codigo fora de tags?? os codigos asp vao dentro de <% %> e você pode por onde quiser (ou onde for conveniente pra você). os javascripts vao normalmente no head porque normalmente são funcoes q gente dexa la pra chamar depois. no asp você tb pode ate criar subs pra dexar la em cima, mas se você quiser executar qualquer coisa no meio da pagina (enquanto ta sendo carregada) você vai ter q abrir <% %> no meio de qualquer jeito, nem q seja so pra chamar as subs. e no mysql algumas coisas vao mudar sim. o principal de tudo é a conexao com o banco. mas a sintaxe das queries varia um poco de banco pra banco, e, apesar de ser na maioria a mesma coisa, o mysql tem algumas diferencas pro access. por exemplo, essas duas queres q eu te passei acho q já não vao funcionar em mysql. e pra falar a verdade, acho q da pra fazer ate mais simples no mysql, usando o comando Limit (q não existe em access). vlw kuroi..problema resolvido..vlw mesmo fui

verdade..q mancada..muito obrigado cara.vlw mesmo..resolveu meu problema.. agora deu certo..só q a tabela de posts do fotolog é uma só certo..então desta forma ele ta paginando todos os post..para eu paginar apenas os posts de um determinado fotolog eu filtro usando o CODUSUARIO ..dai eu coloquei nesta SQL q você me deu assim Set rstBotaoA = conn.execute("Select * From tbl_Posts Where idpost = (Select Max(idpost) [b]and codusuario=15 [/b]From tbl_Posts Where idpost < "&idpost&")") if rstBotaoA.eof then response.write "Anterior" else response.write "<input type='button' value='Anterior' onclick=header:location='corpo.asp?idpost="&rstBotaoA("idpost")&"' class='botao'>" end if ele da erro..se eu colcar isto apos o ID da query também da erro..onde posso colocar isto pra filtrar apenas os posts com esse codusuario? mais me responde uma ultima coisa..eu num manjo muito de asp..vamos dizer q sou razoavel..e bem relaxado quanto a organização de codigos nas tags..o que influencia isso?..codigos fora de tags?..é muito grave?..porque eu ate sei q tem q por entre as tags certas..tipo scrips java normalmente na head e ...mais num sei porque num pode por fora..já q pra mim não muda em nd..e outra coisa..este fotolog está em access por enquanto..mais também pretendo desenvolve-lo em MySql..será q vou ter q mudar mta coisa? ..tipo...sabe por onde devo começar? abs e vlw

deu algo errado.. esta é minhas Sql Set rstBotao = conn.execute("Select * From tbl_Posts Where idpost = (Select Max(idpost) From tbl_Posts Where idpost < "&request.querystring("id")&") ") Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe. na expressão de consulta 'idpost = (Select Max(idpost) From tbl_Posts Where idpost < )'. /testes/fotolog/nando/corpo.asp, line 260 será q erre na SQL?