webdeveloper

Que bom!!! :D

Dá uma olhada aqui.

Que bom!!! :D

Tente assim: SQL = "SELECT * FROM subcategoria WHERE ativosubcategoria = True and categoria = " & idcategoria & " " Ou assim: SQL = "SELECT * FROM subcategoria WHERE ativosubcategoria = -1 and categoria = " & idcategoria & " "

Sim, mas para acessar os diretórios você não precisa saber o nome deles.

Se o campo código da tabela secao for do tipo numérico, retire as aspas simples da query.

De onde vem isso? While Not exeSQL.EOF Já que você instancia como RecordSet: Set RS= Server.CreateObject("ADODB.Recordset") Outra coisa, não estou vendo as propriedades do Recordset (PageSize, CacheSize e AbsolutePage).

Acredito que com Loops e Ifs dê pra fazer.

Tópico resolvido em outro fórum.

Tente bloquear quando estiver montando o ListView.

Tente assim: Dim Conex As New ADODB.Connection Conex.Open StringDeConexao With cmd_relatorio .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "SELECT Con_Venc, Con_NumDoc, Con_ContParc, Con_ValorCP, Con_ValorCR, Con_DataEmissao, Con_Boleto, Con_NomeFantasia, Con_Tipo, Con_DataPgto, Con_ValorPgtoCR, Con_ValorPgtoCP, (Select Sum(Con_ValorPgtoCR) as totalCR From FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCR, (select sum(Con_ValorPgtoCP) as totalCP from FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCP FROM FinanWin_Contas WHERE (Not isNull(Con_ValorPgtoCP) OR Not isNull(Con_ValorPgtoCR)) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "# ORDER BY Con_Tipo, Con_DataPgto, Con_Venc" Set rs_relatorio = .Execute

Tente alterar este trecho: do while Not RS.eof Response.Write("[""../imagens_noticias/"&(rs("img").Value)&""","""&(rs("tipo"))&""","""&Mid(rs("titulo"),1,45)&"..."",""/lernoticia.asp?mat="&(rs("codnoticia"))&""""&"],") rs.movenext loop

Dá uma olhada aqui.

Altere este trecho: Dim Conex As New ADODB.Connection Conex.Open StringDeConexao With cmd_relatorio .ActiveConnection = Conex .CommandType = adCmdText .CommandText = "SELECT Con_Venc, Con_NumDoc, Con_ContParc, Con_ValorCP, Con_ValorCR, Con_DataEmissao, Con_Boleto, Con_NomeFantasia, Con_Tipo, Con_DataPgto, FinanWin_Contas.Con_ValorPgtoCR, FinanWin_Contas.Con_ValorPgtoCP, (Select Sum(Con_ValorPgtoCR) as totalCR From FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCR, (select sum(Con_ValorPgtoCP) as totalCP from FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "#) as totalCP FROM FinanWin_Contas WHERE Not isNull(Con_ValorPgtoCP) OR Not isNull(Con_ValorPgtoCR) AND Con_DataPgto BETWEEN #" & Format(txtDataInicial, "yyyy/mm/dd") & "# AND #" & Format(txtDataFinal, "yyyy/mm/dd") & "# ORDER BY Con_Tipo, Con_DataPgto, Con_Venc" Debug.Print .CommandText 'Veja se não dá erro 'Set rs_relatorio = .Execute Depois você habilita a janela Immediate Window no menu View, execute o código, invoque este evento, volte ao VB note que na janela Immediate Window estará sua Query, copie ela, abra o Access, vá em Consultas, crie uma nova consulta, altere a visualização de Design para SQL, cole a Query que copiou do VB e tente executar.

Dá uma olhada no usuário e senha que você está usando no sistema em ASP .NET.

Eu usava este (http://www.mysql.com/products/tools/administrator/) e este (http://www.mysql.com/products/tools/query-browser/).

Exatamente, na web tem que ter esse usuário também.

O usuário admloja está criado no banco da web?

Criar BD MySql http://dev.mysql.com/doc/refman/4.1/pt/database-use.html. Conectar ao MySql http://www.connectionstrings.com/?carrier=mysql.

Com certeza, use o Debug.Print para 'printar' a Query, e cole ela no Banco de Dados, execute e veja o resultado.

Que bom! :D

Não funcionou o script que te indiquei?

Clique na Section que estarão os dados do aluno e tente alterar a propriedade ForcePageBreak.

Bom, aqui ele está requisitando o campo '_recipients': Request.Form("_recipients") E pelo que eu vi no seu código, o campo que contém o destinatário do e-mail é o 'LD DESIGNERS': <input type="hidden" name="LD DESIGNERS" value="andre@lddesigners.com"> Ou você altera seu formulário ou altera o arquivo ASP, o fato é que Request.Form tem que requisitar campos existentes

Obrigado a todos!!!