kuroi

hum... você não pode por uma sub dentro da outra. e acho que nem pode por funcoes feitas por você mesmo dentro do global.asa. você devia era por num arquivo separado e usar como include em tdas as paginas.

assim mesmo, esta dando algum erro?? talvez o erro esteja na query, qual o tipo de dado do campo?? outra coisa você tem uma variavel chamada usuario, ou usuario era pra ser o nome da sua tabela. se fosse pra ser nome, o certo seria assim: mail = "SELECT * FROM USUARIO WHERE B1 = '"& TIPO &"' AND B14 = "&DATA(i)&" ORDER BY B10 DESC" Set mails = CONEXAO.Execute(mail)[/code]

esse dois podem ser feitos com o FileSystemObject da biblioteca Microsoft Scripting Runtime. se não sabe como utilizar, da uma olhada aqui: http://www.macoratti.net/filesyst.htm http://www.macoratti.net/vb_bkfso.htm ou ainda faca uma busca no forum acho que seria isso Shell "seu comando aqui", vbHide não sei se esse é o melhor jeito, mas da pra fazer com a API ShellExecute você declara a funcao assim: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long e chama assim: ShellExecute Me.hwnd, "Open", "http://www.uol.com.br", vbNullString, vbNullString, 1 no lugar de uol você poe o endereco que quiser. veja se funciona aí, qualquer coisa poste!!

estranho, é nessa linha mesmo o erro?? mas acho que esta ao contrario. ele tem que redirecionar para a PRINCIPALXYZ quando ele encontrar o usuario certo?? então ficaria assim: If Not rs.eof Then Session("login") = True Session("nome") = vuser rs.Close Set rs = Nothing fechaconn Response.Redirect "PRINCIPALXYZ000.htm" Else rs.close Set rs = Nothing fechaconn Response.Redirect "index.asp?erro=1" End if[/code]

então, acho que ficaria assim: source="Server.MapPath("..\db\banco.mdb")"

mas não precisae de 8 variaveis D1, D2, etc. so uma já resolveria. depois que você fizer todas as consultas de um unico dia, assim que você chegar no proximo você não precisa mais saber qual o dia anterior, precisa?? ai você utilizaria a mesmo variavel e preencheria com o valor do novo dia, perdendo o valor do dia anterior que você não precisaria mais...

e essa pasta db esta dentro de wwwroot?? tem que estar pra esse codigo funcionar. senao você vai ter que alterar o codigo.

funcionou o ainda está testando?? o que você quer dizer com sequencia direta?

então posta ai: 1 - o caminho da sua pagina que tem esse codigo. 2 - o caminho do seu banco.

foi mal, não tinha visto. tenta o seguinte agora, altere o AbreConn, pondo uma linha a mais com o codigo Set rs = Server.CreateObject("ADODB.RecordSet"). ficaria assim: <% Sub AbreConn Dim bco, sql, rs Set bco = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.RecordSet") bco.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("usuarios.mdb") End Sub[/code]

tenta tirar barrinha da frente. deixa assim: source="Server.MapPath("db\banco.mdb")" mas você tem que ver que esse caminho varia de acordo com a pasta onde estiver o seu arquivo .asp que esta executando esse codigo

nada, sugeri isso: já tentou??

tem um jeito bem mais facil: For i = 0 To -7 Step -1 Response.Write UCase (WeekDayName (WeekDay (DateAdd ("d", i, Date)))) & " " Next[/code] assim nem precisa verificar mês anterior nem nd!! não testei aqui, mas deve ser isso. veja se funciona, qualquer coisa poste.

o problema não é que você declara as msms variaveis duas vezes?? tire a linha Dim sql, rs, bco do Valida.asp

acho que não está fazendo a conexao com o banco. posta a sub Abreconn toda pra gente dar uma olhada.

qual é a linha 13?

da erro porque faltou declarar o array: Dim D(4) D(1) = "OI" D(2) = " COMO" D(3) = " VAI" D(4) = " VOCÊ?" FOR i = 1 to 4 IF i < 5 THEN RESPONSE.WRITE D(i) ELSE EXIT FOR END IF NEXT[/code] hum... se não pode usar array, ai é impossivel, como eu disse. a não ser que você pussese os D1, D2, etc numa variavel da session, mas isso pra mim seria besteira. qual o problema de usar array??

desse jeito é impossivel. o que você pode fazer é assim: D(1) = "OI" D(2) = " COMO" D(3) = " VAI" D(4) = " VOCÊ?" FOR i = 1 to 4 IF i < 5 THEN RESPONSE.WRITE D(i) ELSE EXIT FOR END IF NEXT[/code] alias, da pra melhor bem o seu codigo, o melhor seria isso: [code]D = array("OI"," COMO"," VAI"," VOCÊ?") FOR i = 0 to 3 RESPONSE.WRITE D(i) NEXT

você não tem que baxar o banco de dados, você tem que fazer um. pode ser em access que é o mais facil mesmo pra você.

ate onde sei não é possivel... logico, que na hora de imprimir/exportar você pode escolher quais as paginas que você quer. mas pra que exatamente você quer limitar a qtde de paginas? dependendo do que for da pra dar um jeito...

sim, é do mesmo jeito. grave um campo formula com essa formula sua. ai aponte o grupo para esse campo (Formula Field).

como assim?? bagunca seu relatorio em que sentido?? pra alterar o grupo, clique com o botao direito no titulo da secao do grupo no painel esquerdo. pode ser no footer ou no header, em qualquer secao do grupo. clique com o botao direito e selecione Change Group ai troque e selecione o campo que você quer.

postou no lugar errado mesmo!!

não sei se é possivel, o que eu costumo fazer é ajustar com javascript depois de carregada a pagina, quando eu já sei o tamanho da div de fora.

valeu, resolvi já. era so por isso no webconfig: <system.web> <customErrors mode="Off"/> </system.web>[/code]