ANDRE_GUSTAVO

Pessoal, estou tentando fazer com que alguns arquivos sejam excluidos do servidor utilizando FSO, porem quando o codigo é executado, os arquivos não são excluidos. A cada execução do codigo 3 arquivos de imagens devem ser deletados. abaixo meu codigo: <% DIM FOTO1, FOTO2, FOTO3, fso, caminho FOTO1 = REQUEST.QUERYSTRING("f1") FOTO2 = REQUEST.QUERYSTRING("f2") FOTO3 = REQUEST.QUERYSTRING("f3") FOTO1 = "\"&FOTO1 FOTO2 = "\"&FOTO2 FOTO3 = "\"&FOTO3 Set Fso = Server.CreateObject("Scripting.FileSystemObject") SET CAMINHO = fso.getfolder(Server.MapPath("imgs_quadros")) 'Verifica se o arquivo existe.. caso sim, deleta o mesmo for each FOTO1 in CAMINHO.files If Fso.FileExists(CAMINHO&FOTO1) Then Fso.DeleteFile CAMINHO&FOTO1 , true End If next for each FOTO2 in CAMINHO.files If Fso.FileExists(CAMINHO&FOTO2) Then Fso.DeleteFile CAMINHO&FOTO2 , true End If next for each FOTO3 in CAMINHO.files If Fso.FileExists(CAMINHO&FOTO3) Then Fso.DeleteFile CAMINHO&FOTO3 , true End If next 'destrói o objeto fso que foi criado... Set Fso = Nothing %> Já verifiquei as permissões, estão ok. O que pode estar errado? Desde já agradeço a atenção de todos. Até mais.

olá pessoal estou tentando criar um db atravez do cmd do windows, mas não estou conseguindo quando mando executar o comando CREATE DATABASE gtd_development; é exibido o seguinte erro: ERROR 1064 (42000): 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 '-u root -p alguém saberia me dizer o porque do erro e como fazer para que não seja mais exibido o mesmo???? desde já agradeço a todos pela atenção e ajuda. valeu!!!! t+

Cara... não deu certo, to pra pirar com esse negocio iuahiuaiauaiauhaih teria outra maneira de se fazer esse loop!!?!? obrigado pela ajuda T+ HELP!...... o mesmo resultado é para todas as a datas: <% varstatus = "Horario Indisponível" strSQL = "SELECT * FROM tbl_horariosagendados"' where status <> '"&varstatus&"' " set rsdisponiveis=conexaoDB.EXECUTE(strSQL) %> <% public horas_vagas data_vaga = strSQL horas_vagas=split(data_vaga) CONT_GERAL = ubound(horas_vagas) strSQLPAGINA = " SELECT * FROM tbl_agendamentos where data_agendada <> '"&dataagendamento&"' and data = '"&dataagendamento&"' " & horas_vagas(0) & "'" FOR CONT = 1 TO CONT_GERAL DISPONIVEIS = horas_vagas(CONT) do while not rsDisponiveis.EOF strSQLPAGINA=strSQLPAGINA & " and SELECT * FROM tbl_horariosagendados WHERE horas = '"& rsDisponiveis("horas")&"' " & DISPONIVEIS set rsAGENDADOS=conexaoDB.EXECUTE(strSQL) %> <tr> <td align="center" valign="middle" bgcolor="#F3F2F5"><span class="style2345"><%= response.Write(rsDisponiveis("horas"))%> </span></td> <td width="68%" align="center" valign="middle" bgcolor="#F3F2F5"><span class="style2345"><%= response.Write(rsDisponiveis("status"))%> </span></td> <td width="14%" align="center" valign="middle" bgcolor="#F3F2F5"><table width="88" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="20" align="center" valign="middle"><img src="imagens/icon_homologa.png" width="20" height="20" border="0" /></td> <td width="80" align="center" valign="middle"><a href="form_agendamento.asp?data=<%=dataagendamento%>&hora=<%=rsDisponiveis("horas")%>">Agendar</a></td> </tr> </table></td> </tr> <% rsDisponiveis.movenext loop next %>

Cara... não deu certo, to pra pirar com esse negocio iuahiuaiauaiauhaih teria outra maneira de se fazer esse loop!!?!? obrigado pela ajuda T+

o está errado? ....não to conseguindo fazer o loop funcionar, os resultados das consultas ainda são iguais para todas as datas. olha so <% strSQLPAGINA = " SELECT * FROM tbl_agendamentos"' where data_agendada = '"&dataagendamento&"' " set rsDisponiveis = conexaoDB.EXECUTE(strSQLPAGINA) strSQL = "SELECT * FROM tbl_horariosagendados where horas <> '"&rsDisponiveis("horas")&"' " set rsAGENDADOS=conexaoDB.EXECUTE(strSQL) DO while not rsDisponiveis.EOF DO while not rsAGENDADOS.EOF if ( rsAGENDADOS("horas") <> rsDisponiveis("horas") ) then %> <tr> <td align="center" valign="middle" bgcolor="#F3F2F5"><span class="style2345"><%= response.Write(rsAGENDADOS("horas"))%> </span></td> <td width="68%" align="center" valign="middle" bgcolor="#F3F2F5"><span class="style2345"><%= response.Write(rsAGENDADOS("status"))%> </span></td> <td width="14%" align="center" valign="middle" bgcolor="#F3F2F5"><table width="88" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="20" align="center" valign="middle"><img src="imagens/icon_homologa.png" width="20" height="20" border="0" /></td> <td width="80" align="center" valign="middle"><a href="form_agendamento.asp?data=<%=dataagendamento%>&hora=<%=rsAGENDADOS("horas")%>">Agendar</a></td> </tr> </table></td> </tr> <% END IF rsAGENDADOS.movenext LOOP rsDisponiveis.movenext LOOP %>

Cara da um olhada ERRO: ADODB.Recordset error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /site/listahorarios_agenda.asp, line 390 <% strSQLPAGINA = " SELECT * FROM tbl_horariosagendados WHERE horas <> '"&dataagendamento&"'" set rsDisponiveis = conexaoDB.EXECUTE(strSQLPAGINA) strSQL = "SELECT data_agendada , horas FROM tbl_agendamentos where data_agendada= '"& rsDisponiveis("horas")&"' " set rsAGENDADOS=conexaoDB.EXECUTE(strSQL) x = 0 %> <% while not rsDisponiveis.EOF while not rsAgendados.EOF if ( rsDisponiveis("horas") = rsAgendados("horas") ) then Response.Write(rsAGENDADOS("horas")) %> <% x = x + 1 %> <% if (x - int(x/2) * 2) = 0 then %> <tr> <td align="center" valign="middle" bgcolor="#F3F2F5"><span class="style2345"><%= response.Write(rsAGENDADOS("horas"))%> </span></td> <td width="68%" align="center" valign="middle" bgcolor="#F3F2F5"><span class="style2345"><%= response.Write(rsAGENDADOS("status"))%> </span></td> <td width="14%" align="center" valign="middle" bgcolor="#F3F2F5"><table width="88" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="20" align="center" valign="middle"><img src="imagens/icon_homologa.png" width="20" height="20" border="0" /></td> <td width="80" align="center" valign="middle"><a href="form_agendamento.asp?data=<%=dataagendamento%>&amp;hora=<%=rsAGENDADOS("horas")%>">Agendar</a></td> </tr> </table></td> </tr> <% end if %> <% if (x - int(x/2) * 2) = 1 then %> <tr> <td align="center" valign="middle" bgcolor="#E5E5E5"><span class="style2345"><%= response.Write(rsAGENDADOS("horas"))%> </span></td> <td align="center" valign="middle" bgcolor="#E5E5E5"><span class="style2345"><%= response.Write(rsAGENDADOS("status"))%> </span></td> <td align="center" valign="middle" bgcolor="#E5E5E5"><table width="88" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="20" align="center" valign="middle"><img src="imagens/icon_homologa.png" width="20" height="20" border="0" /></td> <td width="80" align="center" valign="middle"><a href="form_agendamento.asp?data=<%=dataagendamento%>&amp;hora=<%=rsAGENDADOS("horas")%>">Agendar</a></td> </tr> </table></td> </tr> <% end if %> <% end if wend rsAGENDADOS.movefirst wend %> LINHA 390 >>> rsAGENDADOS.movefirst

Estou tentando fazer com que seja exibido apenas os horarios vagos para um determinado dia e caso o dia não tenha nenhum horario agendado seja exibido todos horario, porém não estou conseguindo. Vejam como está meu codigo. onde está o erro? me ajudem . codigo strSQL = "SELECT * FROM tbl_agendamentos INNER JOIN tbl_horariosagendados ON tbl_horariosagendados.horas <> tbl_agendamentos.horas where data_agendada <> '#"&dataagendamento&"#' " set rsHORARIO=conexaoDB.EXECUTE(strSQL) em todas as datas selecionadas, são exibidos os mesmos resultados, e os horarios são duplicados. se eu altero a comparação where data_agendada <> '#"&dataagendamento&"#' para where data_agendada = '#"&dataagendamento&"#' o resultado é vazio. como eu poderia solucionar esse problema?

Olá pessoal, tenho 2 tabelas no DB tbl_agendamentos = onde são gravados informações de agendamentos ( data_agendada | horas | empresa | preposto | empregado) e outra na outra tabela tbl_horariosdisponiveis = onde já são predefinidos algumas informações ( horas ) no campo "horas" eu cadastrei como default os horarios entre 09:00 e 17:40 com intervalos de 20 minutos ex.: 09:00 , 09:20 , 09:40 , 10:00 , 10:20 , 10:40 ..... 17:00 , 17:20 , 17:40 gostaria de saber se antes de serem exibidos os horarios disponiveis que estão na tabela tbl_horariosdisponiveis fosse possivel fazer uma comparação com os horarios cadastrados na tabela tbl_agendamentos para que fossem exibidos somente os horarios que não estivessem cadastrados na tabela tbl_agendamentos ( data_agendada | horas | empresa | preposto | empregado) ou seja gostaria que fosse exibidos somente os horarios disponiveis para uma determinada data, a data para referencia é passada atraves de um <select></select>. Estou tentando fazer dessa forma, porem não da certo <% DIM strSQLPAGINA , strSQL , rsAGENDADOS, rsHORARIO , dataagendamento dataagendamento = request.Form("data") Call AbreConexao strSQL = "SELECT data_agendada , horas FROM tbl_agendamentos where data_agendada= '"&dataagendamento&"'" set rsAGENDADOS=conexaoDB.EXECUTE(strSQL) strSQLPAGINA = " SELECT * FROM tbl_horariosdisponiveis WHERE horas <> '"& rsAGENDADOS("horas")&"' " SET rsHORARIO = conexaoDB.Execute(strSQLPAGINA) %> ex.: o usuario seleciona uma data "10/04/2009" e seria exibido os horarios disponiveis para agendamento no dia 10/04/2009 e se caso a data selecionada estivesse com todos horarios disponiveis, seria exidos todos os horarios de 09:00 as 17:40 Desde já agradeço a todos pela ajuda e atenção Até mais valeu!!!

Olá pessal, estou desenvolvendo um sistema de agendamentos ASP/MySQL 5 onde tenho 2 tabelas tbl_horariosdisponiveis e tbl_agendamentos a tbl_horariosdisponiveis verifica em tbl_agendamentos os horarios agendados para uma determinada data e exibe os horarios disponiveis referente a data especificada. os campos em comum entre as 2 tabelas é o campo "horas" Sou iniciante, porém talvez a forma que estou tentando desenvolver esse sistema nem seja a correta.Por isso peço-lhes ajuda e orientações. Me ajudem por favor! tbl_horariosdisponiveis CREATE TABLE `tbl_horariosdisponiveis ` ( `Id` int(11) NOT NULL auto_increment, `data_agenda` varchar(255) default NULL, `horas` varchar(255) default NULL, `status` varchar(255) default NULL, PRIMARY KEY (`Id`) ) ENGINE=InnoDB AUTO_INCREMENT=22 DEFAULT CHARSET=utf8; INSERT INTO `tbl_horariosdisponiveis ` VALUES (1,NULL,'09:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (2,NULL,'09:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (3,NULL,'09:40','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (4,NULL,'10:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (5,NULL,'10:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (6,NULL,'10:40','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (7,NULL,'11:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (8,NULL,'11:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (9,NULL,'11:40','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (10,NULL,'14:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (11,NULL,'14:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (12,NULL,'14:40','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (13,NULL,'15:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (14,NULL,'15:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (15,NULL,'15:40','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (16,NULL,'16:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (17,NULL,'16:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (18,NULL,'16:40','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (19,NULL,'17:00','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (20,NULL,'17:20','Horário Disponível'); INSERT INTO `tbl_horariosdisponiveis ` VALUES (21,NULL,'17:40','Horário Disponível'); /*!40000 ALTER TABLE `tbl_horariosdisponiveis ` ENABLE KEYS */; UNLOCK TABLES; tbl_agendamentos CREATE TABLE `tbl_agendamentos` ( `Id` int(11) NOT NULL auto_increment, `data_agendada` varchar(255) default NULL, `horas` varchar(255) default NULL, `empresa` varchar(255) default NULL, `preposto` varchar(255) default NULL, `empregado` varchar(255) default NULL, `data` varchar(255) default NULL, PRIMARY KEY (`Id`) ) ENGINE=InnoDB DEFAULT CHARSET=utf8; /*!40000 ALTER TABLE `tbl_agendamentos` ENABLE KEYS */; UNLOCK TABLES; Como estou tentando fazer o relacionamento no mysql front: seleciono a tabela tbl_horariosdisponiveis; clico em foreign Key seleciono a tabela tbl_agendamentos em seguida seleciono os 2 campos "horas" comum nas 2 tabelas e clico em OK. em seguida o seguinte erro é exibido: SQL execution error #1005 - Response from the database: can't create table'. \sts\#sql-8b4_1.frm(errno:150) já procurei por todo lado na net, mas não encontrei nada de util, que realmente esclareça minhas duvidas. estou tentando fazer esse relacionamento utilizando o mysql front 5 e o mysql 5. Tudo que encontrei na net ate o momento é muito vago! Desde já agradeço a todos pela ajuda e atenção até mais.

olá bareta, beleza?!?! cara, essa parte do codigo que você citou, já tem ela no codigo abaixo de TotalPages = RS_prod.PageCount RS_prod.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros RS_prod.MoveFirst 'Move o RecorSet para o início RS_prod.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = RS_prod.PageCount RS_prod.AbsolutePage = PagAtual 'Configura a página atual Count = 0 'Zera o contador

Galera eu já utilizo essa paginação a um tempao, peguei o exemplo aqui mesmo no forum, fui utiliza-la novamente em outro projeto, mas não quer funcionar. Tipo quando clico em proximo ou em algum link para o numero da pagina ou pag anterior, é listado na página os mesmos registros. parte do codigo <% PagAtual = Request.QueryString("PagAtual") 'página atual dim strSQL , RS_prod call fncOpenConnection SQL = "SELECT * FROM CATALOGO" SET RS_prod = fncOpenConnection.Execute(SQL) dim rsTotal , TOTALREGISTROS Set rsTotal = Server.CreateObject("ADODB.Recordset") rsTotal.ActiveConnection = fncOpenConnection rsTotal.CursorType = 3 rsTotal.CursorLocation = 2 rsTotal.LockType = 1 rsTotal.Open "SELECT * FROM CATALOGO" TOTALREGISTROS = 0 TOTALREGISTROS = rsTotal.RecordCount If (TOTALREGISTROS = -1) Then ' *** Conta o total de registros por iteração realizada no recorset TOTALREGISTROS = 0 While (Not rsTotal.EOF) TOTALREGISTROS = TOTALREGISTROS + 1 rsTotal.MoveNext Wend End If SELECT CASE np CASE "1" NumPorPage = "1" CASE "15" NumPorPage = "15" CASE ELSE NumPorPage = "10" END SELECT 'Const NumPorPage = 20 'Verifica qual a página solicitada Dim PagAtual IF Request.QueryString("PagAtual") = "" Then PagAtual = 1 'Primeira página Else PagAtual = Request.QueryString("PagAtual") End If RS_prod.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros RS_prod.MoveFirst 'Move o RecorSet para o início RS_prod.PageSize = NumPorPage 'Coloca a quantidade de páginas Dim TotalPages 'Pega o número total de páginas TotalPages = RS_prod.PageCount RS_prod.AbsolutePage = PagAtual 'Configura a página atual Count = 0 'Zera o contador %> obs: o resultado PAGECOUNT ESTA SENDO -1 ( a tabela tem quase 1000 registros) Dim TotalPages 'Pega o número total de páginas TotalPages = RS_prod.PageCount Desde já obrigado pela ajuda e atenção de todos até mais

Fala ai Rafael.... bao!?!?!? Cara consegui fazer o select, heueheueheuh graças a sua ajuda é claro... ta funcionando beleza Obrigado pela ajuda. Ate+

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... Bom dia Rafael, olha so o erro que ta dando: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /STS/site/teste.asp, line 98 end if linha 98 -----> end if %> <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim nDia, nMes, nAno, nDiaSemana Dim sDiaSemana, sMes nDia = day(Date) nMes = month(Date) nAno = year(Date) nDiaSemana = weekday(Date) select case nDiaSemana case 1 sDiaSemana = "Domingo" case 2 sDiaSemana = "Segunda-Feira" case 3 sDiaSemana = "Terça-Feira" case 4 sDiaSemana = "Quarta-Feira" case 5 sDiaSemana = "Quinta-Feira" case 6 sDiaSemana = "Sexta-Feira" case 7 sDiaSemana = "Sábado" end select select case nMes case 1 sMes = "01" case 2 sMes = "02" case 3 sMes = "03" case 4 sMes = "04" case 5 sMes = "04" case 6 sMes = "06" case 7 sMes = "07" case 8 sMes = "08" case 9 sMes = "09" case 10 sMes = "10" case 11 sMes = "11" case 12 sMes = "12" end select %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <form id="form1" name="form1" method="post" action=""> <select name="select"> <option value="-1">Selecione o dia</option> <% 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 if sDiaSemana <> "Domingo" or sDiaSemana <> "Sábado" then ResultDiffDate = DateDiff("d", "01/"&sMes&"", "01/"&pMes&"") i = 1 For i = nDia to ResultDiffDate step 1 MostraData = i&"/"&sMes&"/"& nAno& "<br>" end if %> <option value="<% = MostraData %>"><% = MostraData %></option> <% Next %>

Rafael, beleza pura, ta saindo como planejado, valeu mesmo. So mais 2 coisas, essa questão do step, ficou vago pra mim, não entendi muito bem o porque, se você puder me dar uma esclaressida melhor sobre ele, outra coisa, como eu iria referenciar "i" de modo que não fosse exibdo a data se o dia semana fosse (sabado ou domigo) ? veja como está meu loop ResultDiffDate = DateDiff("d", "01/"&sMes&"", "01/"&pMes&"") i = 1 For i = 1 to ResultDiffDate step 1 MostraData = i&"/"&sMes&"/"& nAno& "<br>" response.write (MostraData) Next Valeu mesmo pela ajuda!!! muito sucesso pra você cara. Estou tentando fazer com que os dias de sabado e domingo não sejam exidos mas não ta dando certo. O que está errado? <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim nDia, nMes, nAno, nDiaSemana Dim sDiaSemana, sMes nDia = day(Date) nMes = month(Date) nAno = year(Date) nDiaSemana = weekday(Date) select case nDiaSemana case 1 sDiaSemana = "Domingo" case 2 sDiaSemana = "Segunda-Feira" case 3 sDiaSemana = "Terça-Feira" case 4 sDiaSemana = "Quarta-Feira" case 5 sDiaSemana = "Quinta-Feira" case 6 sDiaSemana = "Sexta-Feira" case 7 sDiaSemana = "Sábado" end select select case nMes case 1 sMes = "01" case 2 sMes = "02" case 3 sMes = "03" case 4 sMes = "04" case 5 sMes = "04" case 6 sMes = "06" case 7 sMes = "07" case 8 sMes = "08" case 9 sMes = "09" case 10 sMes = "10" case 11 sMes = "11" case 12 sMes = "12" end select %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Untitled Document</title> </head> <body> <form id="form1" name="form1" method="post" action=""> <select name="select"> <option value="-1">Selecione o dia</option> <% 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 if nDiaSemana !="Domingo" and nDiaSemana != "Sábado" then ResultDiffDate = DateDiff("d", "01/"&sMes&"", "01/"&pMes&"") i = 1 For i = nDia to ResultDiffDate step 1 MostraData = i&"/"&sMes&"/"& nAno& "<br>" end if %> <option value="<% = MostraData %>"><% = MostraData %></option> <% Next %> erro: Erro de compilação do Microsoft VBScript (0x800A03F9) 'Then' esperado /STS/site/teste.asp, line 91, column 14 if nDiaSemana !="Domingo" and nDiaSemana != "Sábado" then -------------^ linha 91 >>>>> if nDiaSemana !="Domingo" and nDiaSemana != "Sábado" then

Rafael, beleza pura, ta saindo como planejado, valeu mesmo. So mais 2 coisas, essa questão do step, ficou vago pra mim, não entendi muito bem o porque, se você puder me dar uma esclaressida melhor sobre ele, outra coisa, como eu iria referenciar "i" de modo que não fosse exibdo a data se o dia semana fosse (sabado ou domigo) ? veja como está meu loop ResultDiffDate = DateDiff("d", "01/"&sMes&"", "01/"&pMes&"") i = 1 For i = 1 to ResultDiffDate step 1 MostraData = i&"/"&sMes&"/"& nAno& "<br>" response.write (MostraData) Next Valeu mesmo pela ajuda!!! muito sucesso pra você cara.

Olá Rafael, tudo bem com você? Desde já obrigado por mais uma ajuda sua. O DateDiff consegui fazer da forma que você me indicou da uma olhada ai, não sei se foi da forma correta, mas a pricinpio funcionaou: <% Dim nDia, nMes, nAno, nDiaSemana Dim sDiaSemana, sMes nDia = day(Date) nMes = month(Date) nAno = year(Date) nDiaSemana = weekday(Date) select case nDiaSemana case 1 sDiaSemana = "Domingo" case 2 sDiaSemana = "Segunda-Feira" case 3 sDiaSemana = "Terça-Feira" case 4 sDiaSemana = "Quarta-Feira" case 5 sDiaSemana = "Quinta-Feira" case 6 sDiaSemana = "Sexta-Feira" case 7 sDiaSemana = "Sábado" end select select case nMes case 1 sMes = "01" case 2 sMes = "02" case 3 sMes = "03" case 4 sMes = "04" case 5 sMes = "04" case 6 sMes = "06" case 7 sMes = "07" case 8 sMes = "08" case 9 sMes = "09" case 10 sMes = "10" case 11 sMes = "11" case 12 sMes = "12" end select %> <% 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 ResultDiffDate = "mes: " & DateDiff("d", "01/"&sMes&"", "01/"&pMes&"") %> Agora, como eu faria o loop para retornar os dias do mes ex.: 01/04/2009 - 02/04/2009 - 03/04/2009 .... 30/04/2009. seria com alguma função especifica ? Obrigado pela sua atenção. T+

Pessoal, como eu faço com que os dias do mês corrente sejam exibidos em <select></select> de um form dinamicamente nesse formato dd/mm/aaaa. exemplo: mês de abril que sejam exibidos somente os dias referentes ao mes de abril e assim por diante (de segunda-feira a sexta-feira) os dias referentes aos sabados e domingos não serao exibidos . como fazer isso com asp? desde já agradeço a atenção e ajuda de todos.

Muito obrigado Raphael Machado, pela ajuda. Mas sem querer abusar, já abusando heheheheheh depois de de instalado o componente, onde vou para acessa-lo? Mais uma vez, obrigado.

Pessoal, preciso desenvolver um catalogo em flash, porém, necessito da ajuda de vocês qualquer informação, tutorial, textos, arquivos de exemplos, sobre como fazer um catalogo igual a esse será bem-vindo Link para modelo de catalogo: http://www.intelbras.com.br/catalogo_virtual/catalogo.html Conto com a ajuda de vocês. Desde já agradeço a todos. Até mais

Valeu Rafael, vou la conferir..... muito obrigado cara T+

Olá pessoal, desenvolvi um sisteminha para envio de emails informativos de um determinado site, já esta tudo funcionando perfeitamente, porem o cliente deseja que eu insira aquela barra de ferramentas onde se pode inserir imagens editar texto em html , inserir links , etc... alguém sabe onde posso encontar essa barra de ferramentas!??!? desde já agradeço a ajuda de todos Obrigado!

Ola pessoal, estou começando aprender como interagir flash com asp, estou tendo problemas na exibição. Não esta apresentando nenhum erro na sintax do AS, porem quando vou testar no browser, o resultado apresentado não é o esperado. acessem o link abaixo para ver o que acontece: http://www.trusttarget.com.br/flash/flash_asp.swf Quando digito qualquer palavra ou letra no campo e dou OK, é apresentado NENHUM PRODUTO ENCONTRADO. abaixo meu AS var endereco :URLRequest= new URLRequest("http://localhost/FLASHCS3/produtos.asp"); endereco.method=URLRequestMethod.GET; var carregar :URLLoader = new URLLoader(); botao.addEventListener(MouseEvent.CLICK,chama); function chama(evento:MouseEvent) :void { var variavel:URLVariables = new URLVariables("nome="+ busca.text); endereco.data=variavel; carregar.load(endereco); } carregar.addEventListener(Event.COMPLETE,carregou); var texto :String=""; function carregou(evento:Event) :void { var variaveis :URLVariables = new URLVariables(carregar.data); var quantos :int=Number(variaveis.quantidade); texto=""; if (quantos==0) { texto="Nenhum Produto Encontrado!"; } else { for (var i :int=1; i<=quantos; i++) { texto+=variaveis["produtos"+i] + "\n"; } } resultado.text=texto; } Quando executo o arquivo ASP que faz a busca no DB, ele funciona perfeitamente, exibindo as informações existentes no DB. Mas quando tento atravez do Flash, não da certo. Desde já agradeço a ajuda de todos.

galera pode fechar ou excluir o tópico, consegui arrumar, valeu

Olá, pessoal, tenho o menu de um album de fotos, que exibe em 2 colunas as imagens em miniaturas, antes de eu adaptar para se exibido em 2 colunas a paginação funcionava beleza, mas depois que passei para ser exibido em colunas a paginação parou de funcionar, gostaria que me ajudassem com esse problema a baixo o codigo que estou utilizando. <% Dim objRs, x, intpage, strquantidade intpage = request.QueryString("txtpage") Set objRS = Server.CreateObject("Adodb.recordset") call Abreconexao strquantidade = request.querystring("quantia") session("quantia") = "9" if session("quantia") = "" then objrs.pagesize = 10 else objrs.pagesize = session("quantia") end if objRs.open "Select * From fotos order by id" , Objconn, 3, 3 if intpage = "" then intpage = 1 end if objrs.absolutepage = cint(intpage) x = 1 %> <% intrec=0 col = 2 response.write "<table>" do while NOT objRs.EOF and x <= objrs.pagesize conta = intrec mod col if conta = 0 Then response.write "<tr><td>" else response.write "<td>" end if response.write "<img width='75' height='56' border='2' class='bord' src=fotos2/"& ObjRs("foto") & ">" if conta = (col - 1) then response.Write "</td></tr>" else response.write "</td></table>" end if ObjRs.MoveNext intrec=intrec+1 Loop %> <br> <div align="center"> <div align="center" class="style2"> <%if cint(intpage) > 1 then 'se for maior que a pagina 1 ira aparecer %> <a href="menu1.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>">Voltar </a> | <%end if%> <%if cint(intpage) < objrs.pagecount then 'quantidade de paginas %> <a href="menu1.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>">Avan&ccedil;ar</a> <%end if%> <% objrs.close set ObjRs= Nothing call fechaconexao %> Gostaria que fossem exibido 2 colunas e 9 linhas Desde já agradeço a ajuda de todos.

No menu "agenda" coloquei o link de forma que seja enviado o mes atual para a pagina agenda. essa parte ta funcionando ta sendo envia o mes corrente e exibindo os eventos do mes de dezembro(mes corrente). Porem quando vou para o proximo mes ou mes anterior não da certo. os eventos do mes de janeiro é exibido com o calendario do mes de fevereiro. acesse o link e entendera melhor o que estou dizendo http://www.visteondfs.com/agenda.asp?varmes=dezembro codigo calendario <% PagAtual = Request.QueryString("PagAtual") 'pgina atual res=Request.QueryString("Show") varrmes= Request.QueryString("varmes") whichmonth=Request.QueryString("CurMonth") whichyear=Request.QueryString("CurYear") whataction=Request.QueryString("Action") call AbreConexao conexaodb.CursorLocation = 3 Set rsGaleria = Server.CreateObject("Adodb.RecordSet") rsGaleria.Open "Select * From agenda Where MesFesta = '"&varrmes&"' Order By Id_agenda desc" , conexaodb . . . . .. . Dim nextmonth Dim acalandardays(42) Dim dbcurrentdate nextmonth = 0 dbcurrentdate = date() if res="Yes" then whichdate="01" & "/" & whichmonth & "/" & whichyear if whataction="Next" then dbcurrentdate=dateadd("m",1,cdate(whichdate)) elseif whataction="Prev" then dbcurrentdate=dateadd("m",-1,cdate(whichdate)) else dbcurrentdate = whichdate end if end if dim ifirstweekday ifirstweekday = datepart("W",dateserial(year(dbcurrentdate),month(dbcurrentdate),1)) dim idaysinmonth idaysinmonth = datepart("d",dateserial(year(dbcurrentdate),month(dbcurrentdate)+1,1-1)) dim iloop for iloop = 1 to idaysinmonth acalandardays(iloop+ifirstweekday-1)=iloop next dim icolumns,irows icolumns = 7 irows = 6-int((42-(ifirstweekday+idaysinmonth))/7) %> <table width=45% height=45% border=1 align =center cellpadding="0" cellspacing = "0" bordercolor="#FFCC00" bgcolor="#FFFF99"> <tr></tr> <% curmonth=monthname(month(dbcurrentdate)) curyear=year(dbcurrentdate) %> <th colspan=7 align="center" valign="middle" bgcolor=#FFCC00><a href="agenda.asp?Show=Yes&amp;CurMonth=<%= left(curmonth,3)%>&amp;CurYear=<%= curyear%>&amp;Action=Prev&amp;varmes=<%=CurMonth%>" class="style38">Anterior</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; <span class="style36"> <% Response.Write curmonth Response.Write " " & curyear %> </span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span class="style35">&nbsp; <a href="agenda.asp?Show=Yes&amp;CurMonth=<%=left(curmonth,3)%>&amp;CurYear=<%=curyear%>&amp;Action=Next&amp;varmes=<%=CurMonth%>" class="style38">Próximo</a> <% Response.Write "<tr>" Response.Write "<td align=center>" Response.Write "<font color=#cc0000 >" Response.Write "Domingo" Response.Write "</font>" Response.Write "</td>" Response.Write "<td color=#FFAF1C align=center>" Response.Write "Segunda" Response.Write "</td>" Response.Write "<td color=#FFAF1C align=center>" Response.Write "Terça" Response.Write "</td>" Response.Write "<td color=#FFAF1C align=center>" Response.Write "Quarta" Response.Write "</td>" Response.Write "<td color=#FFAF1C align=center>" Response.Write "Quinta" Response.Write "</td>" Response.Write "<td color=#FFAF1C align=center>" Response.Write "Sexta" Response.Write "</td>" Response.Write "<td color=#FFAF1C align=center>" Response.Write "Sábado" Response.Write "</td>" Response.Write "</tr>" %> </font> <% dim irowsloop ,icolumnsloop startday=weekday("01" & "/" & monthname(month(dbcurrentdate)) & "/" & year(dbcurrentdate)) ctr=1 for irowsloop = 1 to irows Response.Write "<tr>" if ctr=1 then colm = startday else colm=1 end if if startday>1 then diff=colm - 1 end if for icolumnsloop=colm to icolumns if acalandardays((irowsloop-1)*7 +icolumnsloop) >= 0 then if diff>0 then for p=1 to diff Response.Write "<td valign= top align=right width=""14%"">" Response.Write "</td>" next diff=0 end if Response.Write "<td valign= top align=right width=""14%"">" if icolumnsloop=1 then Response.Write "<font color=#cc0000>" end if if month(dbcurrentdate)<month(Date()) then if acalandardays((irowsloop-1)*7 + icolumnsloop)=day(Date()) and month(dbcurrentdate)=month(Date()) and year(dbcurrentdate)=year(Date()) then Response.Write "<font>" end if Response.Write acalandardays((irowsloop-1)*7 + icolumnsloop) elseif month(dbcurrentdate)=month(Date()) and acalandardays((irowsloop-1)*7 + icolumnsloop) < day(Date()) then Response.Write acalandardays((irowsloop-1)*7 + icolumnsloop) elseif month(dbcurrentdate)=month(Date()) and acalandardays((irowsloop-1)*7 + icolumnsloop) >= day(Date())then Response.Write acalandardays((irowsloop-1)*7 + icolumnsloop) elseif month(dbcurrentdate)>month(Date()) then Response.Write acalandardays((irowsloop-1)*7 + icolumnsloop) end if Response.Write "</td>" else Response.Write "<td>&nbsp;</td>" end if ctr=2 next Response.Write "<tr>" colm=2 next Response.Write "<br>" %> </table> a parte que verifica o mes para que seja exibido os eventos PagAtual = Request.QueryString("PagAtual") 'pgina atual res=Request.QueryString("Show") varrmes= Request.QueryString("varmes") whichmonth=Request.QueryString("CurMonth") whichyear=Request.QueryString("CurYear") whataction=Request.QueryString("Action") call AbreConexao conexaodb.CursorLocation = 3 Set rsGaleria = Server.CreateObject("Adodb.RecordSet") rsGaleria.Open "Select * From agenda Where MesFesta = '"&varrmes&"' Order By Id_agenda desc" , conexaodb nos links "PROXIMo" E "ANTERIOR" estou colocando assim: link proximo <a href="agenda.asp?Show=Yes&amp;CurMonth=<%=left(curmonth,3)%>&amp;CurYear=<%=curyear%>&amp;Action=Next&amp;varmes=<%=CurMonth%>" class="style38">Próximo</a> link anterior a href="agenda.asp?Show=Yes&amp;CurMonth=<%= left(curmonth,3)%>&amp;CurYear=<%= curyear%>&amp;Action=Prev&amp;varmes=<%=CurMonth%>" class="style38">Anterior</a>