Leandro Rocha
-
Total de itens
18 -
Registro em
-
Última visita
Posts postados por Leandro Rocha
-
-
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> </td>
<td><input type="text" name="textfield9" id="textfield9" /></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td><input type="text" name="textfield10" id="textfield10" /></td>
<td><input type="text" name="textfield8" id="textfield8" /></td>
</tr>
<tr>
<td> </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ó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> </td>" corpo = corpo & "<td width='209' align='left' background='http://www.arquivoteen.com.br/baladateen/css/fundo_degrade.jpg'> <a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&datacerta(rstNewsletter("data"))&"</a><br />" corpo = corpo & " <a href=http://www.arquivoteen.com.br/baladateen/agenda/festa_detalhes.asp?idEvento="&rstNewsletter("idEvento")&" target=_blank> "&rstNewsletter("festa")&"</a><br />" corpo = corpo & " <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 é um email automá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ã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ã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
-
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
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
-
Ola Leandro.
Faça o post do erro.
vlw marcio..descobri o erro..
-
tentei dessa forma q você me passo e também deu erro.. esse é o erro:I Must be crazy<% Set rstCP = conn.execute("Select count * from tbl_Posts WHERE codusuario="&session("id")&" and bloqueio=0") response.write [color="#FF0000"][b]rstCP.RecordCount[/b][/color] %>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
-
tenta assim ó:
Set rstBotaoA = conn.execute("Select * From tbl_Posts Where idpost = (Select Max(idpost) From tbl_Posts Where idpost < " & idpost & " and codusuario = 15) and codusuario = 15")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?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
-
o problema é q você não passou a querystring id.
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 ifele 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
-
é verdade, pra pegar o anterior então veja se funciona assim ó:
Select * From Tabela Where Id = (Select Max(Id) From Tabela Where Id < Id_QueryString)
e pra pegar o proximo, tenta assim:Select * From Tabela Where Id = (Select Min(Id) From Tabela Where Id > Id_QueryString)
acho q essas duas queryes devem fucionar tanto em access quanto em sql. agora se você tiver usando mysql, não sei ai você teria q testar.
usando essas duas você não vai ter problema se tiver excluido qualquer foto, mas se der qualquer outro problema ou erro, posta ae.
e não necessariamente vai dar erro quando você abrir a primeria ou a ultima não. nota q se você tiver mostrando a primeira foto, o select do anterior vai voltar EOF, então você tem q testar antes. assim como o select do proximo tb vai voltar EOF quando tiver na ultima foto.
ou seja é so fazer um if pra ver se é EOF. se for, você não mostra a paginacao (do proximo ou do anterior dependendo do caso).
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?
-
então pra pegar a anterior faca um select do id - 1 e pra pegar a proxima faca um select do id + 1.
vocÊ fala pra eu fazer um select para cada botã?
falo pra voce fazer um select para cada botão. não são só dois botoes?? qual seria o problema de fazer dois selects??
mas se quiser fazer um só select, pode fazer where id >= id_querystring - 1 and id <= id_querystring + 1, mas nesse caso você vai ter trablaho no caso de ele abrir a primera ou a ultima foto.
então..eu pensei nisso também..fazendo um ou dois select se abrir a primeira ou a ultima página vai da erro..e outra..supondo q a ID da fot é 100 ..a próxima foto seria a 101 correto?..mais seu apaguei ela a próxima foto seria a 102..pergunta..se eu fizer o select como você falo.id + 1 no caso da foto de id 100..ele vai selecionar a foto 102 ou vai mostrar erro?
vlw
-
ele exibe o resultado mais e a paginação????????????
como assim??
por exemplo..eu faço um select pela id da tofo..passada na url..
"SELECT * FROM TABELA WHERE ID_DA_FOTO="&REQUEST.QUERYSTRING("ID_DA_FOTO")
beleza..como existe apenas uma foto com a ID enviada não vai haver paginação certo..i eu queria fazer o seguinte..mostrar na tela a foto q eu quero pela ID mais que houvess ainda sim a paginação..pra mostrar a próxima foto e a anterior..e assim por diante..entendeu.?
vlw mesmo
-
E ae galera beleza?
Seguinte..eu gostaria de paginar os resultados do meu bd
Ex:
resultado 1 , resultado 02, resultado03
Se eu tiver no resultado 02, quando eu clicar em próximo ele vai para o resultao 03 ou se clicar em voltar ele passa para o resultado 01..ok?..isso eu fiz...mais ae tem um problema..isso esta sendo usado numa galeria de fotos onde eu listo thumbs e ao clicar aparece a foto maior..ao clicar no thumb ele passa a id da foto no link e dai eu faço:
"Select * from tbl_tabela WHERE id="&request.querystring("id")
ele exibe o resultado mais e a paginação????????????
entenderam o q eu quero fazer??..para ser mais claro gostaria que tudo fosse como no http://fotolog.terra.com.br
Vlw
For Each Formulario
em ASP
Postado
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.