robertopizza

Trabalho com macintosh e gostaria de saber se alguém sabe como emular o virtual server nele.. porque trabalho com programacao ASP/ACCESS/Mysql e não esta dando não..tenho que utilizar o PC pra programar minhas paginas e emular pra visualizar as paginas alguém sabe como posso ficar trabalhando apenas com meu MAC? Obrigado!

Fiz um codigo assim, mas ele me da apenas a quantidade de itens e só consigo listar um campo a categoria.. será que tem algo a ver com o que eu estou precisando? <%sql = "SELECT categoria,COUNT(categoria) as total FROM tabela group by categoria" set rs=Conn.execute(SQL)%> <%Do while not rs.eof response.write rs("categoria") & " - "& rs("total") & "<br>" rsgz.movenext Loop%> Chefias = 5 alunos = 3 professores =1 Esta me mando quantidades de linhas e não a soma de um campo como preciso quero assim Tabela nome categoria ponto mes jose chefia 1 janeiro maria chefia 4 janeiro antonio aluno 1 janeiro jose chefia 1 abril maria chefia 4 abril antonio aluno 1 abril ana professores 1 abril Queria o resultado assim: Solicitado de Janeiro a Abril janeiro Chefia = 5 pontos aluno = 1 ponto abril Chefia = 5 pontos aluno = 1 ponto professores = 1 ponto e depois faria a somatoria total deste perido solicitado geral Chefia = 10 pontos aluno = 2 ponto professores = 1 ponto Obrigado! Desculpe se não fui claro!

Valeu Guto, mas o problema pode se tornar complexo.. também tenho que gerar relatorios de outra tabela que deve ter mais de 100 categorias e nem eu sei o nome das novas categorias cadastradas pelo outro departamento.. Isso que esta me gerando dor de cabeça.. Enquanto a esta tabela com 3,4,5 categorias OK está perfeito.. eu mesmo que administro esta, mas a outra com mais de 100 não há como saber se adicionaram novas pessoas e com uma nova categoria. TEm como de outro modo? Valeu! Pizza

Deu certo! Obrigado! If IsNull(rs("campo")) Then vc5x = "vazio" else vc5x = rs("campo") end if Mais uma duvida ! Pra eu fazer meu select fiz um loop com as 3 catecorias que tenho..(como esta no meu codigo) Mas se eu cadastrar no meu banco de dados uma noca pessoa com uma nova categoria, exemplo "chefias" ele não vai aparecer na minha listagem Dai toda vez que eu criar uma nova categoria vou ter que abrir e mudar meu CASE.. Tem como ele procurar as categorias existentes no banco de dados e depois gerar este relatorio com todas categorias? Tks!!!

Muito estranho hem! não vai não.. Continua ficando em branco e o filtro não pega de jeito nenhum! (testei o LEn(var) funcionou apenas com os q tem valor, mas quando não tem valor não imprime "0" imprime vazio também olhem só o misterio! <% x = 1 Do Until x=3%> <%Select Case x case 1 vc2="coordenacao" case 2 vc2="gerencia" case 3 vc2="alunos" case else vc2="0" End Select %> <%sql3 = "select sum(campo5) as vc5 from tabela where campo2='"&vc2&"'" set rs=Conn.execute(SQL3)%> <%teste=rs("vc5")%> <%if Len(teste) = "" or Len(teste) = 0 then (não pega este filtro) c5=0 end if rs.close rs = nothing%> <%x = x + 1 Loop %> Funciona corretamente, mas ele me da resultados assim.. e não me da o valor ZERO e sim em branco.. sempre coordenacao----1 unidade gerencia-------- unidade(campo vazio e não "0" porque não existe nenhuma!) alunos---------- 3 unidade Obrigado!!!

Fiz o codigo abaixo e tentei de tudo mas não consegui que ele me rs o valor "0". quando não há valores no banco de dados para este item simplismente ele mostra em branco.. podem ajudar? Valeu! <%sql3 = "select sum(campo5) as vc5 from tabela where campo2='"&vc2&"'" set rs=Conn.execute(SQL3)%> <%if rs("vc5")="" then vc5x=0 else vc5x=rs("vc5") end if%> <%rs.close set rs = nothing%>

Obrigado, deu certo!

Opa, funciona sim mas não esta levando nenhum campo do formulario.. Preciso recuperar os dados no pop-up! Valeu!

Nossa, ninguém responde aqui !!!!

ESta hospedado num servidor nos EUA, ateh agora funcionava tudo Será que não vou conseguir?? Putz :S

Tenho este codigo em minha pagina que abre uma outra, tudo OK, mas gostaria que fosse aberto um pop-up de largura delimitada(250x250), tem como? <form name="form1" action="pagina2.asp" method="get" > <input type="hidden" name="descricao" value=<%=descr%>> <input type="image" src="img/x-ok.gif" onClick="submit()"> </form> Obrigado!

Mesmo erro.... Server object error 'ASP 0177 : 800a0035' Server.CreateObject Failed apagar.asp, line 18 The operation completed successfully Codigo: <%Dim varq varq=Request("arquivo")%> <%Set Fil=Server.CreateObject("Scripting.FileSystemObject") Set filObject=Fil.GetFile("downloads")&varq filObject.Delete True%>

Tenho este codigo em minha pagina que abre uma outra, tudo OK, mas gostaria que fosse aberto um pop-up de largura delimitada(250x250), tem como? <form name="form1" action="pagina2.asp" method="get" > <input type="hidden" name="descricao" value=<%=descr%>> <input type="image" src="img/x-ok.gif" onClick="submit()"> </form> Obrigado!

Server object error 'ASP 0177 : 800a0035' Server.CreateObject Failed apagar.asp, line 13 The operation completed successfully codigo: <%Dim varq varq=Request("arquivo")%> <%Set Fil=Server.CreateObject("Scripting.FileSystemObject") Set filObject=Fil.GetFile("download"&varq) filObject.Delete True%>

Claro! Obs: Importa e ve na tela os dados que foram inseridos. <% set Cmd=server.CreateObject("ADODB.COMMAND") Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/sistema/BD.mdb"%> <% Dim Conn, RS Dim Campos, contador '// CONECTAMOS COM O BANCO DE DADOS Set Conn = CreateObject("ADODB.Connection") With Conn .Provider = "Microsoft.Jet.OLEDB.4.0" '// Nesta linha perca que a conexão indica que utilizaremos um arquivo do Excel .ConnectionString = "Data Source="& Server.MapPath("arquivoexcel.xls") &";Extended Properties=Excel 8.0;" .Open End With '// AO CRIAR O RECORDSET, O SELECT INDICA O NOME DA PLANILHA DO ARQUIVO Set RS = Conn.Execute("SELECT * FROM [Plan1$] ") '// CONTAMOS QUANTAS LINHAS EXISTEM NO ARQUIVO Campos = RS.Fields.Count '// INICIAMOS O LOOP response.write "<table border=""1"">" Do While RS.EOF = False response.write "<tr>" '// Aqui informamos os nomes das colunas para então lista os resultados response.write "<td><font size=1 face=verdana><b>" & RS("c1") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("c2") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("c3") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("c4") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("c5") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("c6") & "</td>" response.write "</tr>" vc1 = RS("c1") vc2 = RS("c2") vc3 = RS("c3") vc4 = RS("c4") vc5 = RS("c5") vc6 = RS("c6") cmd.CommandText="insert into tabela (c1,c2,c3,c4,c5,c6) values (?,?,?,?,?,?)" Cmd.Execute quant,Array(vc1,vc2,vc3,vc4,vc5,vc6) RS.MoveNext Loop response.write "</table>" '// EXIBIMOS A QUANTIDADE DE REGISTROS ENCONTRADOS response.write campos '// FECHAMOS E DESCONECTAMOS O RECORDSET E A CONEXÃO UTILIZADA RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing %> <%set Cmd = nothing%>