Rafael Spilki

Bom... acho que isso é bem tranquilo... Uma condicional simplesinha resolve... basta colocar o valor "1" nos checkbox, ou seja, quando os mesmos estiverem marcados o valor será 1... caso contrário será 0, ou seja: if chcbox = "" then chcbox = "0" end if 'update ...set campoquesequeratualizar = '"&chcbox&"'... Obs.: Parabéns pelo layout do painel... tá bem bacana! []'s Rafael Spilki

Bom, como bem observado pelo Alex, as consultas de datas em BD Access devem ter suas variaveis abraçadas por #, se e somente se o campo estiver dentro do formato data. Então assim: 1) verificar se o formato do campo está no formato data; 2) corrigir a sintaxe, ou seja: #"&de&"# seria a forma correta; 3) lembrar que como você não está usando betwwen na sua query você deve repetir a variavel a ser comparada na condicional, ficando algo do tipo: extensaoproj >= #"&de&"# AND extensaoproj <= #"&ate&"# ; 4) poste aqui a mensagem de erro completa para termos certeza do que está acontecendo... []'s Rafael Spilki

Isso... pode ser na pagina de autenticação sim... é bem fácil criar uma, segue o exemplo de uma que crio com base em uma consulta ao bd: sql = "SELECT * FROM tblUsers WHERE userid ='" & usuario & "'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql,ConnDB,3,3 if not RS.EOF then Session("id") = Rs("nid") end if depois basta imprimir a session onde bem se entender, exemplo: response.write session("id") []'s Rafael Spilki

Cara... acho que a resposta está na sua propria pergunta... Basta você ralacionar tudo com pelo menos uma informação em comun, (preferencialmente) o id... Desta forma, em todas as tabelas que você for incluir, excluir, alterar ou consultar você pode referenciar esse id... Para fazer tudo isso de forma fácil, quando o cara se logar lança o id dele numa session... O resto é "mel na chupeta"... ;) Abração

é que o ideal seria colocar o end if depois do next... além disso... uma sugestão: você pode melhorar suas condicionais... por exemplo, ao invés de fazer: if sMes = "01" then pMes = "02" end if if sMes = "02" then pMes = "03" end if if sMes = "03" then pMes = "04" end if if sMes = "04" then pMes = "05" end if if sMes = "05" then pMes = "06" end if if sMes = "06" then pMes = "07" end if if sMes = "07" then pMes = "08" end if if sMes = "08" then pMes = "09" end if if sMes = "09" then pMes = "10" end if if sMes = "10" then pMes = "11" end if if sMes = "11" then pMes = "12" end if if sMes = "12" then pMes = "01" end if você poderia fazer assim: if sMes = "01" then pMes = "02" elseif sMes = "02" then pMes = "03" elseif sMes = "03" then pMes = "04" elseif sMes = "04" then pMes = "05" elseif sMes = "05" then pMes = "06" elseif sMes = "06" then pMes = "07" elseif sMes = "07" then pMes = "08" elseif sMes = "08" then pMes = "09" elseif sMes = "09" then pMes = "10" elseif sMes = "10" then pMes = "11" elseif sMes = "11" then pMes = "12" elseif sMes = "12" then pMes = "01" end if Dessa forma fica mais elegante, não? Abração

1) Essa variavel nDiaSemana está mandando os valores com acentos? E está mandando eles exatamente igual como você escreveu, ou seja, com a primeira em maiúscula? 2) porque esses pontos de exclamação na frente das variáveis? o que eles representam? Acho que você está confundindo sintaxes de asp e JS... Em asp, o sinal de diferente é <> ou seja, maior ou menor que x, significa dizerque só pode ser diferente de x, sacou? Bom... tentaí e qualquer coisa posta aqui...

Uhm... acho que o melor seria postar isso no forum do DW... Aguarde que provavelmente algum moderador irá mover seu tópico... Todo caso... se quiser ajuda para descobrir o que tem de errado no script poste ele aqui... []'s Rafael Spilki

Simplesmente um loop... 'coloquei step 1 abaixo apenas para frizar... mas já é padrão o 1, então não é obrigatório o step 1... para contagens regressivas por exemplos poderia se fazer a lógica inversa se colocando o step -1... i = 1 For i = 1 to ultimodiadomes step 1 response.write i Next []'s Rafael Spilki

Esses codigos feitos pelo DW são umas M... procure construir seus próprios codigos... porque o DW é bem ruim nesse sentido! Esse campo "produto" existe mesmo no seu bd? você fez as sugestões do Jonathan?

Ok, mas essa lista que você quer apresentar após o delete provem daonde? Ela tem mesmo referencia com esse registro que você apagou?

mas veja seu script... na terceira linha você manda deletar e depois no decorrer do script você faz uma consulta que basicamente seleciona as mesmas informações... O erro não é ao deletar... a mensagem de erro é clara... e é na consulta... a(s) consulta(s) seginte(s) esta retornando vazia porque os registros já foram anteriormente deletados... sacou? Da uma revisadinha nas consultas... Abração

Dúvidas sobre JS devem ser postadas no forum de JavaScript e não de ASP... Pesquise por "window.close();" deverá posicionar esse comando ao final do script. []'s Rafael Spilki

A ideia é a seguinte, você identifica qual é o último dia do mês, ou seja: 28, 29, 30 ou 31... Depois faz um loop de 1 até o último dia e pronto! Para descobrir o último dia do mês é simples... você escolhe o mes que deseja, por exemplo abril... então como seu mês é abril o seu mês de referência será maio... que você sabe que começa em 01/05 então usando datediff você tira 1 dia de 01/05/2009 e você terá o último dia de abril... sacou? 01/05/2009 - 1dia = 30/04/2009 Pronto... agora você sabe que abril tem 30 dias, ou seja, que começa com 1 e vai até 30! agora é so fazer o loop! sacou a lógica? bom... então agora é mão à obra! qualquer dúvida poste aqui! []'s Rafael Spilki

'para deletar sql = "delete * from tabela where id = "&id&"" 'para mensagem se consulta for vazia if rsdesuaquerystring.eof then response.write "não existe registro" end if

Cara... que diferença faz um ou outro script... paginação e repetição em loop são sempre iguais cara! Pega esse script que tem de paginação ali no repositório de script QUE JÁ TA PRONTO e bota a sua repetição em cima dele! não tem porque reinventar (já no portugês correto) a roda!

não entendi onde está o asp nesse código! Isso aí não javascript não?!?!

Que linha é essa? Esse erro acontece quando a consulta não retorna nada... o ideal é usar condicionais de loop do tipo while not rs.eof... []'s Rafael Spilki

Acho que seria: if session("credito") < rs("saldo") then ou seja, aspas duplas na variavel do RS... []'s Rafael Spilki

sim... certamente deve ser por conta do separador! tem que ser um e-mail (endereço de e-mail padrão) por vez! Para tirar o ";" use split! []'s Rafael Spilki

é que tem que colocar um e-mail de cada vez: Mail.AddAddress Destino1 Mail.AddAddress Destino2 Mail.AddAddress Destino3 saca só a fonte: http://forum.wmonline.com.br/lofiversion/i...hp/t121726.html []'s Rafael Spilki

Parabéns cara... muito sucesso!

primeiro o ideal seria tirar qualquer tipo de acento de seus scripts... mas seu script não disse muito pra mim... acho que tirar o acento por si só não resolverá... o que você pretende com esse script?

porque você está setando duas vezes a mesma conexão... veja: <% set objConexao = Server.CreateObject("ADODB.Connection") objConexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("ckless.mdb")&";" objConexao.open %> <% 'aqui você setou a mesma conexão de cima... sacou? 'Set objConexao= Server.CreateObject("ADODB.Recordset") redim vmatriz(0) SQL = "Select * from Noticias_admin" objConexao.execute(SQL),objConexao,3,2 i = 0 while not objConexao.eof i = i + 1 redim preserve vmatriz(i) vmatriz(i) = objVicente("NoticiaID") objVicente.movenext wend objVicente.close while você = "" or você = 0 randomize você = Cint(Rnd * i) wend Set objrs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM Noticias WHERE NoticiaID="& Vmatriz(você) objRS.open strSQL, Conexao IF not objRS.EOF THEN %> Teste aí e posta aqui os resultados... []'s

cara, mas você não ta abrindo as conexões com o bd! Procure usar sempre da forma que eu lhe mostrei anteriormente... set objConexao = Server.CreateObject("ADODB.Connection") objConexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("meubanco.mdb")&";" objConexao.open agora veja como você fez e veja o que está faltando: Set objVicente = Server.CreateObject("ADODB.Recordset") sacou? []'s Rafael Spilki

troque essa parte: set conexao = Server.CreateObject("ADODB.Connection") conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("meubanco.mdb")&";" conexao.open por: set objConexao = Server.CreateObject("ADODB.Connection") objConexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("meubanco.mdb")&";" objConexao.open []'s