Rafael Spilki

autenticação de aspemail: http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= []'s Rafael Spilki

não entendi... como assim decisões? isso não existe... como está seu código agora? posta como ele funcionou com o primeiro mes! []'s Rafael Spilki

você já verificou se a utilização desse componente está disponível no servidor? você terá que criar um sistema de envio de e-mail que utilize o prinípio de uma "PAGINAÇÃO" para proceder o envio de forma a não estourar a cota do servidor... Quanto ao nome é simples... no corpo da mensagem você fará algo como: 'resgata o nome do bd atraves de uma consulta imprimindo o recordset 'onde quiser que o nome apareça coloque nome = rs("nome") mensagem = "mensagem quase igual pra todos, só muda o nome" response.write nome & mensagem verifique as infs que sugeri antes de continuar... pode ser que tenha outro componente a disposição que não esse... seria perda de tempo! []'s Rafael Spilki

você está usando PHP e o código a que se refere é em asp... []'s

mas o que é isso: response.Write sql("janeiro") ??? isso não funciona! uma query com "filtro" tem essa sintaxe aqui: sql = "select * from sua_tabela where campo_bd = '"&vairiavel&"' " Quer filtrar pelo nome do campo do bd... faça assim: 'aqui você abre o bd: Set conexao= server.createObject("ADODB.Connection") conexao.CursorLocation = 3 conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("bd.mdb") 'query sql = "select * from sua_tabela " 'aqui você seta o objeto recordset Set rs= Server.CreateObject( "ADODB.RecordSet" ) rs.Open sql, conexao 'aqui você imprime os dados que tem no campo do bd response.write rs("campo_bd") agora a questão é: quais campos imprimir?!? esse é o grande x da questão... Acho que da forma que você está fazendo o trabalho será três vezes maior para conseguir condicionar os campos a serem impressos... sacou o porque?

Ihhh che... nem te estressa com isso! Olha só... você ta falando de clientes? Filtra... o importante pra eles é ver na tela como está as informações... em baixo disso... o sistema... aquilo que eles não veem faz do seu jeito! Praticamente tudo é possível... exceto quando da limitação de algum servidor ou coisa do tipo... mas na maioria das soluções faz-se necessária muita criatividade... toca ferro... tenta da forma como eu te sugeri... se bem entendi é por ali o caminho! []'s Rafael Spilki

Decoder... tem várias coisas muito estranhas na sua lógica... ou eu não entendi direito! 1) para filtrar dados de uma consulta no BD o melhor é você fazer direto na query, com cláusulas de where, conforme citei em posts acima! 2) para filtrar por datas você precisa ter alguma informação no bd que permita isso... um campo data por exemplo facilitaria e muito a sua consulta! pense em mudar a sua lógica... não tem porque reinventar a roda... pensa assim: -ao invés de ter um campo de janeiro outro fevereiro e etc... você cria um único compo de datas... -na hora de inserir os dados, faça uma rotina e insira a data atual (date) naquele campo! -depois na hora de consultar você verifica a data atual e filtra uma atraves de uma clausula where usando between (entre) duas datas... no caso seria date (data final) e (dateadd ("m",-3, date) a data inicial! Verás que dessa forma ficará muito mais fácil! []'s

antes de fazer o calculo você tem que criar uma condicional assim: if qtdeinforada > qtdEstoque then total=qtdinformada-qtdEstoque elseif qtdeinforada < qtdEstoque then response.write "A quantidade solicitada é maior do que o disponível em estoque! O estoque atual conta com " & qtdEstoque & "itens disponíveis" elseif qtdeinforada - qtdEstoque = "0" then response.write "O estoque ficou zerado! Avise o depto. de compras imediatamente!" end if dessa forma nunca terá números negativos... o máximo que terá é o número 0! []'s Rafael Spilki

Mas onde estão as querys? Poste as sql aqui! []'s Rafael Spilki

você deve colocar os meses dentro da clausula de where do seu select... ex: sql = "select * from sua_tab where campo_mes = '"&mes&"' " []'s

Bom... pelo que entendi você precisa descobrir dinamicamente que mes é hj e depois usar esse mes para pegar os dados no bd! Para descobrir que mes é hoje use datepart, assim: mesatual = datepart ("m", date) para descobrir os outros use dateadd mais1 = dateadd ("m", 1, mesatual) mais2 = dateadd ("m", 2, mesatual) e assim por diante... era isso?

Então Claudio, quando lá no tópico anterior você utilizou 0 - número qualquer você forçou o nº a ser negativo... ele sempre será negativo forçadamente! Acho que deves rever a lógica disso ou simplesmente retirar o sinal de - utilizado replace... []'s

Dcoder... tente explicar melhor sua dúvida... Eu por exemplo não consigo ver suas imagens... e muitos devem etr os mesmos "bloqueios" em seus firewalls... não entendi direito... explica ai um pouquinho melhor! de preferencia sem usar imagens... só texto mesmo! certamente teremos como lhe ajudar! abração

Mas não deu o que? qual mensagem de erro? o que aconteceu?

tente assim: <!--#include file="includes/verifica_secretaria.asp"--> <% 'conexao com o banco de dados Set conn = Server.CreateObject("ADODB.Connection") Conn.CursorLocation = 3 ' adUseClient conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\db\boletins\meu-caminho-boletins.mdb" Set conn2 = Server.CreateObject("ADODB.Connection") Conn2.CursorLocation = 3 ' adUseClient conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\db\boletins\meu-caminho-boletins.mdb" dim nome dim usuario dim senha dim materia dim serie dim rec0 dim sqlstmt dim sqlstmt2 dim codigo_professor dim recp 'recebe os campos do formulário nome = request.form("nome") usuario = request.form("usuario") senha = request.form("senha") materia = request.form("materia") serie = request.form("serie") 'cria os cookies response.Cookies("nome") = nome response.Cookies("usuario") = usuario response.Cookies("senha") = senha response.Cookies("materia") = materia response.Cookies("serie") = serie 'verifica se existe algum campo em branco if nome = "" or usuario = "" or senha = "" or materia = "-" or serie = "-" then response.redirect replace(replace(Request.ServerVariables("HTTP_REFERER"),"?Erro=Verifique%20se%20todos%20os%20campos%20foram%20preenchidos",""),"?Erro2=Este%20usuário%20para%20professor%20já%20existe,%20escolha%20outro!","")+"?Erro=Verifique%20se%20todos%20os%20campos%20foram%20preenchidos" else 'verifica se o usuário do aluno existe Set rec0 = Server.CreateObject ("ADODB.RecordSet") rec0.open "SELECT Alunos.Usuario FROM Alunos WHERE (Alunos.Usuario = '"&usuario&"')",conn,2,3 Set rec1 = Server.CreateObject ("ADODB.RecordSet") rec1.open "SELECT Administradores.Usuario FROM Administradores WHERE (Administradores.Usuario = '"&usuario&"')",conn,2,3 Set rec2 = Server.CreateObject ("ADODB.RecordSet") rec2.open "SELECT Pais.usuario_pai FROM Pais WHERE (Pais.usuario_pai = '"&usuario&"')",conn,2,3 Set rec3 = Server.CreateObject ("ADODB.RecordSet") rec3.open "SELECT Pais.usuario_mae FROM Pais WHERE (Pais.usuario_mae = '"&usuario&"')",conn,2,3 Set rec4 = Server.CreateObject ("ADODB.RecordSet") rec4.open "SELECT Pedagogia.Usuario FROM Pedagogia WHERE (Pedagogia.Usuario = '"&usuario&"')",conn,2,3 Set rec5 = Server.CreateObject ("ADODB.RecordSet") rec5.open "SELECT Professores.Usuario FROM Professores WHERE (Professores.Usuario = '"&usuario&"')",conn,2,3 Set rec6 = Server.CreateObject ("ADODB.RecordSet") rec6.open "SELECT Secretaria.Usuario FROM Secretaria WHERE (Secretaria.Usuario = '"&usuario&"')",conn,2,3 If Not rec0.EOF and Not rec0.BOF or Not rec1.EOF and Not rec1.BOF or Not rec2.EOF and Not rec2.BOF or Not rec3.EOF and Not rec3.BOF or Not rec4.EOF and Not rec4.BOF or Not rec5.EOF and Not rec5.BOF or Not rec6.EOF and Not rec6.BOF Then Set rec1 = nothing Set rec2 = nothing Set rec3 = nothing Set rec4 = nothing Set rec5 = nothing Set rec6 = nothing response.redirect replace(replace(Request.ServerVariables("HTTP_REFERER"),"?Erro=Verifique%20se%20todos%20os%20campos%20foram%20preenchidos",""),"?Erro2=Este%20usuário%20para%20professor%20já%20existe,%20escolha%20outro!","")+"?Erro2=Este%20usuário%20para%20professor%20já%20existe,%20escolha%20outro!" else 'fecha conexões Set rec1 = nothing Set rec2 = nothing Set rec3 = nothing Set rec4 = nothing Set rec5 = nothing Set rec6 = nothing 'insere os dados nas tabelas sqlstmt = "Insert into Professores (Nome, Usuario, Senha, Materia) values ('"&nome&"','"&usuario&"','"&senha&"',"&Materia&")" Set add = server.createobject("adodb.connection") 'abre a conexão com o banco de dados add.open conn 'avisa qual banco de dados será utilizado na consulta set rsquery = add.execute(sqlstmt) 'executa a instrução SQL contida na variavel sqlstmt 'set rsquery = nothing 'set add = nothing 'pesquisa o codigo do professor 'faça um debug aqui: 'response.write "usuario = " & usuario & "<BR>" 'response.end Set recp = Server.CreateObject("ADODB.RecordSet") recp.open "SELECT Id_Professor FROM Professores WHERE Usuario = '"&usuario&"')",conn2,3,3 If not recp.EOF Or not recp.BOF Then codigo_professor = rec("Id_professor").value sqlstmt2 = "Insert into Materia_serie (Serie, Professor, Materia) values ("&serie&","&codigo_professor&","&materia&")" Set add2 = server.createobject("adodb.connection") 'abre a conexão com o banco de dados add2.open conn 'avisa qual banco de dados será utilizado na consulta set rsquery2 = add2.execute(sqlstmt2) 'executa a instrução SQL contida na variavel sqlstmt 'limpa os cookiees response.Cookies("nome") = "" response.Cookies("usuario") = "" response.Cookies("senha") = "" response.Cookies("materia") = "" response.Cookies("serie") = "" response.redirect "secretaria_professores.asp" else response.redirect Request.ServerVariables("HTTP_REFERER")+"Erro=Não leu o codigo do professor" end if end if end if set rsquery2 = nothing set add2 = nothing set rec = nothing %> []'s Rafael Spilki

cheque se esse usuário foi de fato incluso no BD... teste com outros usuários e veja se também estão sendo inclusos! poste aqui os resultados!

tem várias formas para TENTAR resolver esse problema... uma delas e que acredito que resolverá é formatar a sua data usando cdate, desta forma: <% Dim Hoje 'força as datas para o formato americano session.lcid=1033 Hoje = Date() 'formata pelo cdate Hoje = Cdate(month (Hoje) &"/"& day (Hoje) &"/"& year (Hoje)) 'transforma para o brasileiro session.lcid = 1046 'imprime em tela response.write Hoje %> obs.: teste com E sem os sessions... alguma forma deve funcionar! testei aqui assim esses dias e funcionou legal... comecei a usar dessa forma... teste e poste aqui os resultados!

Me faça um favor... tem um debug aí no meio do código... portanto execute esse script e me e coloque aqui o resultado dele e se é compatível com o que está se querendo fazer! <!--#include file="includes/verifica_secretaria.asp"--> <% 'conexao com o banco de dados Set conn = Server.CreateObject("ADODB.Connection") Conn.CursorLocation = 3 ' adUseClient conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\db\boletins\meu-caminho-boletins.mdb" Set conn2 = Server.CreateObject("ADODB.Connection") Conn2.CursorLocation = 3 ' adUseClient conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\db\boletins\meu-caminho-boletins.mdb" dim nome dim usuario dim senha dim materia dim serie dim rec0 dim sqlstmt dim sqlstmt2 dim codigo_professor dim recp 'recebe os campos do formulário nome = request.form("nome") usuario = request.form("usuario") senha = request.form("senha") materia = request.form("materia") serie = request.form("serie") 'cria os cookies response.Cookies("nome") = nome response.Cookies("usuario") = usuario response.Cookies("senha") = senha response.Cookies("materia") = materia response.Cookies("serie") = serie 'verifica se existe algum campo em branco if nome = "" or usuario = "" or senha = "" or materia = "-" or serie = "-" then response.redirect replace(replace(Request.ServerVariables("HTTP_REFERER"),"?Erro=Verifique%20se%20todos%20os%20campos%20foram%20preenchidos",""),"?Erro2=Este%20usuário%20para%20professor%20já%20existe,%20escolha%20outro!","")+"?Erro=Verifique%20se%20todos%20os%20campos%20foram%20preenchidos" else 'verifica se o usuário do aluno existe Set rec0 = Server.CreateObject ("ADODB.RecordSet") rec0.open "SELECT Alunos.Usuario FROM Alunos WHERE (Alunos.Usuario = '"&usuario&"')",conn,2,3 Set rec1 = Server.CreateObject ("ADODB.RecordSet") rec1.open "SELECT Administradores.Usuario FROM Administradores WHERE (Administradores.Usuario = '"&usuario&"')",conn,2,3 Set rec2 = Server.CreateObject ("ADODB.RecordSet") rec2.open "SELECT Pais.usuario_pai FROM Pais WHERE (Pais.usuario_pai = '"&usuario&"')",conn,2,3 Set rec3 = Server.CreateObject ("ADODB.RecordSet") rec3.open "SELECT Pais.usuario_mae FROM Pais WHERE (Pais.usuario_mae = '"&usuario&"')",conn,2,3 Set rec4 = Server.CreateObject ("ADODB.RecordSet") rec4.open "SELECT Pedagogia.Usuario FROM Pedagogia WHERE (Pedagogia.Usuario = '"&usuario&"')",conn,2,3 Set rec5 = Server.CreateObject ("ADODB.RecordSet") rec5.open "SELECT Professores.Usuario FROM Professores WHERE (Professores.Usuario = '"&usuario&"')",conn,2,3 Set rec6 = Server.CreateObject ("ADODB.RecordSet") rec6.open "SELECT Secretaria.Usuario FROM Secretaria WHERE (Secretaria.Usuario = '"&usuario&"')",conn,2,3 If Not rec0.EOF and Not rec0.BOF or Not rec1.EOF and Not rec1.BOF or Not rec2.EOF and Not rec2.BOF or Not rec3.EOF and Not rec3.BOF or Not rec4.EOF and Not rec4.BOF or Not rec5.EOF and Not rec5.BOF or Not rec6.EOF and Not rec6.BOF Then Set rec1 = nothing Set rec2 = nothing Set rec3 = nothing Set rec4 = nothing Set rec5 = nothing Set rec6 = nothing response.redirect replace(replace(Request.ServerVariables("HTTP_REFERER"),"?Erro=Verifique%20se%20todos%20os%20campos%20foram%20preenchidos",""),"?Erro2=Este%20usuário%20para%20professor%20já%20existe,%20escolha%20outro!","")+"?Erro2=Este%20usuário%20para%20professor%20já%20existe,%20escolha%20outro!" else 'fecha conexões Set rec1 = nothing Set rec2 = nothing Set rec3 = nothing Set rec4 = nothing Set rec5 = nothing Set rec6 = nothing 'insere os dados nas tabelas sqlstmt = "Insert into Professores (Nome, Usuario, Senha, Materia) values ('"&nome&"','"&usuario&"','"&senha&"',"&Materia&")" Set add = server.createobject("adodb.connection") 'abre a conexão com o banco de dados add.open conn 'avisa qual banco de dados será utilizado na consulta set rsquery = add.execute(sqlstmt) 'executa a instrução SQL contida na variavel sqlstmt set rsquery = nothing set add = nothing 'pesquisa o codigo do professor 'faça um debug aqui: response.write "usuario = " & usuario & "<BR>" response.end Set recp = Server.CreateObject("ADODB.RecordSet") recp.open "SELECT Id_Professor FROM Professores WHERE Usuario = '"&usuario&"')",conn2,3,3 If not recp.EOF Or not recp.BOF Then codigo_professor = rec("Id_professor").value sqlstmt2 = "Insert into Materia_serie (Serie, Professor, Materia) values ("&serie&","&codigo_professor&","&materia&")" Set add2 = server.createobject("adodb.connection") 'abre a conexão com o banco de dados add2.open conn 'avisa qual banco de dados será utilizado na consulta set rsquery2 = add2.execute(sqlstmt2) 'executa a instrução SQL contida na variavel sqlstmt 'limpa os cookiees response.Cookies("nome") = "" response.Cookies("usuario") = "" response.Cookies("senha") = "" response.Cookies("materia") = "" response.Cookies("serie") = "" response.redirect "secretaria_professores.asp" else response.redirect Request.ServerVariables("HTTP_REFERER")+"Erro=Não leu o codigo do professor" end if end if end if set rsquery2 = nothing set add2 = nothing set rec = nothing %> []'s Rafael Spilki

Acho que não me fiz entender... mas vamos lá! Cláudio... pode sim comparar em suas condicionais valores negativos! No entanto... pelo que entendi da sua app, visto tópicos que tenho acompanhado... acredito que isso (somente isso) não será o suficiente! Todo caso... sim, pode sim! pode comparar valor negativo com positivo... se vai funcionar, digo, se serão tratados como verdadeiros ou falsos vão depender da sua condicional! Forte abraço a todos!

;) dá nada! che jow... acho que num rola! (só acho!)... se não servir a rotina do jow posto uma na sequencia... me faça saber por aqui... o dia hj tá fogo!

Pois então... eu acho que esse erro é por outro motivo! faça um teste mais simples... não tenho agora como olhar isso... mas aconselho testar com um script reduzido... apenas com essa rotina tipo: insere consulta response.write consulta if condicional x response.write "deu certo" elseif condicional y response.write "deu errado" end if não sei se me fiz entender... se não me diga que assim que der um tempinho faço a rotina com mais calma! []'s

Sem problemas... posta ali no fórum sua dúvida em um novo tópico e com mais riquezas de detalhes! []'s

Cara... tenho ainda minhas dúvidas... esta meio corrido aqui não consegui fazer as devidas pesquisas... Fique no aguardo... certamente alguém terá uma idéia! Mas certamente deve passar por html / css a solução desse problema! Enquanto isso tb fico pensando por aqui! não esqueci desse tópico não! to de olho nele! ;) []'s

10 < -10 ?!?! Olha... pra mim 10 > -10 assim como -10 < 10! Agora 10 < -10 ?!? Cláudio, favor postar os resultados após os testes... fiquei muito curioso!

você não tem como tirar essas conclusões dessa forma! Não com as informações que foram postas na pergunta inicial! A dúvida é simples: ele quer inserir isso (coisa que já esta funcionando) sqlstmt = "Insert into Professores (Nome, Usuario, Senha, Materia) values ('"&nome&"','"&usuario&"','"&senha&"',"&Materia&")" e com base nessa inserção, consultar nessa tabela o codigo (provavlemente autonumerico) para inserir em outra tabela com o mesmo id... portanto, faz-se possível sim uma query simples com base nos campos advindos do FORM e não do BD, como segue Set recp = Server.CreateObject("ADODB.RecordSet") recp.open "SELECT Id_Professor FROM Professores WHERE Usuario = '"&usuario&"')",conn2,3,3 If not recp.EOF Or not recp.BOF Then codigo_professor = rec("Id_professor").value sqlstmt2 = "Insert into Materia_serie (Serie, Professor, Materia) values ("&serie&","&codigo_professor&","&materia&")" isso tudo é perfeitamente possível de ser realizado sim! Trabalho com isso a anos e já fiz milhões de rotinas nesse formato! Podem ainda estar ocorrendo erros? Podem! Não examino o código de todos minuciosamente... o objetivo aqui nem é esse! Acrdito que você não tenha entendido a dúvida do membro! Será que a leu com atenção? Outra coisa que você não viu... o banco de dados do membro é access, e as sintaxes para se utilizar INNER JOIN no access são bastante diferentes... Não testei a que você propôs mas acredito que não deva funcionar! []'s Rafael Spilki