mariofdf

Eu já fiz isso algumas vezes e eu faço assim... Na pagina restrita antes de testar se ele esta logado gravo o endereço numa sessão, porque não passo pela query, pelo fato de que se ele digitar uma vez o login errado o endereço some... <% session("ondeestava") = request.ServerVariables("HTTP_REFERER") if session("logado") = "" then response.redirect("logar.asp") end if %> dai no meu login faço assim.... depois de comparar senhas e estar tudo certo... vondestava = session("ondeestava") response.redirect(""& vondestava &"")

Voce tem o aspmail instalado no seu iis, e porque voce esta setando o rost do terra.

onde voce hospedou este codigo, qual servidor?

Sou eu ai em cima, eu estava logado, não entendo porque apareceu como Guest... cara voce faz o if com o variavel chamando "nome" mas antes voce declara a variavel chamando "categoria" dai da problema mesmo, pois a variavel nome estava vazia, ou melhor nem existia, ia dar problema em seu sql...

Não, era o parametro que estava errado, mas não foi erro seu nem meu, quando eu pensei naquela ganbiarra nem prestei atenção que não tinha na tabela um campo padrão para comparação, então criei um campo autonumeraçõ na tabela dele e peguei seu codigo e troquei o parametro de comparação, só fiz isso, e aquele primeiro codigo que eu tinha feito tinha ficado muito confuso mesmo.

ai dark0 não é o codigo que esta ai, eu peguei o codigo meu que voce alterou e mudei o parametro de pesquisa e a conexão. acho que foi isto...

Voce pode vazer um loop, deixando o nome da tabela como uma variavel que muda no loop... Assim voce usa apenas um comando sql. É so uma idéia pois o resultado e o tempo de execusão vai ficar o mesmo da dica do dark, so fica um pouco mais chato de montar...

Cara ta muito confuso este teu código, porque voce não tenta sintetiza ele, ele serve pra que na verdade.

Se o código que te mandei deu certo mesmo, só não esqueça de postar aqui, para outros usarem tambem, Bem que eu ate agora não sei como eu fui ter uma ideia tão esquisita que pelo jeito deu certo....

não esquecendo de diser ao componente que o e-mail tem que ser remetido em formato HTML... Mail.IsHTML = True

Eu particularmente acho meio fora de foco, pois estaria sanando a duvida de apenas uma pergunta, já um forun não todos podem ver perguntas e respostas então acho melhor, sem contar a encheção. Pelo menos pra mim que trabalho o dia inteiro e a noite as vezes ficaria inviavel...

Mas o terra da suporte a aspmail?

Que tipo de arquivo voce pretende criar?

ai colega poste todo seu codigo ai para vermos onde esta o erro... e diga quais os campos de seu bd com suas tabelas e o nome do bd tambem...

É os parametros para o loop. começa no 1º registro do array LBound(arrayFotos) e termina no ultimo registro UBound(arrayFotos)

Eu tenho umas sugestões... 1º se cadastre no forum, 2º medite olhando para o codigo, que as ideias vão surgir, 3º comece a montar, tente pelo menos, e poste os erros que forem ocorrendo que nos o ajudaremos....

Esta linha é a que instancia o objeto de e-mail de sua escolha, poste seu codigo todo para poder melhor te ajudar, e já confira se seu server da suporte a ASPMAIL , que é o objeto que voce instanciou para o envio do e-mail...

no windows midia 9 ou superior em vez de tocar a musica ele abre para downlad... O seu acontece a mesma coisa...

Post editado pois o codigo que eu postei aqui ficou ridículo, chegava a ser uma piada...

eu sei porque. Ai Dark0 ficou legal a ganbiarra que voce feis com minha ganbiarra, Bolomaster pense no seguinte, quando voce da o loop para exibir os registros, e depois submete os mesmos o seu formulario esta com todos os campos com o mesmo nome, então o request so pega o 1º, estou pensando em uma função aqui que corrija isto, pois tambem vou precisar para a loja que estou montando... Mais a tarde te mando...

Uma duvida , montei a radio e funciona certinho o unico problema é que no midia player 9 em vez de tocar a musica , abre download... a de nosso amigo Nerdao ocorre a mesma coisa

so não esqueça de ajudar na organização do forum, se sua duvida estver sanada peça para que o moderador feixe o tópico

Gente o desafio é pura interpretação, a uns dias atraz o nosso colega urso deu uma dica sobre como resolver usando stored procedures, eu achei um otimo tutorial sobre o assunto. vale a pena ler... Link do tutorial

nunca montei uma ganbiarra tão grande mas tenta ai... <% dim db, rs set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") Dim aluno, turma, disc, prova1b, prova2b, examespecial aluno = Request.form("aluno") turma = Session("turma") disc = Session("disc") prova1b = request.form("prova1b") prova2b = request.form("prova2b") examespecial = request.form("examespecial") a=split(disc,",") b=split(aluno,",") c=split(turma,",") d=split(prova1b,",") e=split(prova2b,",") f=split(examespecial,",") dim iLoop for iLoop=LBound(a) to UBound(a) intDelSno=Trim(a(iLoop)) intDelSno=Trim(b(iLoop)) intDelSno=Trim(c(iLoop)) intDelSno=Trim(d(iLoop)) intDelSno=Trim(e(iLoop)) intDelSno=Trim(f(iLoop)) sql = "UPDATE notasfaltas SET NomeAluno = '"&b&"', Prova1bim = "&d&", Prova2bim = "&e&", Examespecial = "&f&"" SQL = SQL & "WHERE Turma = "&c&" AND AbrevDisc = '"&a&"'" Set RS = db.execute(sql) next response.write "As notas estão sendo enviadas aguarde um momento por favor..." response.redirect "testeraro.asp" rs.close db.close set rs = nothing set db = nothing %>

Estes dias comeram bolo aqui no ani do GUTO, eu fiquei sabendo viu... tenta ai... <% 'Sistema Desenvolvido por Rafael Marciano dim db, rs set db = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb") aluno = Request.form("aluno") turma = Session("turma") disc = Session("disc") prova1b = request.form("prova1b") prova2b = request.form("prova2b") examespecial = request.form("examespecial") sql = "UPDATE connotas SET NomeAluno = '"&aluno&"', Prova1bim = "&prova1b&", Prova2bim = "&prova2b&", Examespecial = "&examespecial&"" SQL = SQL & "WHERE Turma = "&turma&" AND AbrevDisc = '"&disc&"'" Set RS = db.execute(sql) response.write "As notas estão sendo enviadas aguarde um momento por favor..." response.redirect "testeraro.asp" rs.close db.close set rs = nothing set db = nothing %>