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%>

Valeu, consegui importar os dados para um arquivo MDB! !!!

Sim, deu certinho.. visualizo todos dados do meu arquivo do excel.. masss. No centro onde estao os RS montando a tabela do exel eu coloco minha conexao com o MDB.. mas como fazer ele inserir varios registros.. só havia feito com 1 insert. ""inicio da leitura do arquivo excel"""" <% set Cmd=server.CreateObject("ADODB.COMMAND") Cmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/arquivos/Bd.mdb" cmd.CommandText="insert into tabela(campo1,campo2,campo3) values (?,?,?)" Cmd.Execute quant,Array(RS1,RS2,RS3)%> <%set Cmd = nothing%> ""final da leitura do arquivo excel"""" Valeu

obrigado, mas não entendi como posso gravar isto em uma tabela.. <HTML> <HEAD> <TITLE>Lendo Dados do Excel</TITLE> </HEAD> <BODY> <% '// DECLARAMOS AS VARIÁVEIS UTILIZADAS 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("pasta.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("INSCRICAO") & "</td>" response.write "<td><font size=1 face=verdana><b>" & RS("LOCAL") & "</td>" response.write "</tr>" 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 %> </BODY> </HTML>

Como posso atraves do ASP importar um arquivo XLS para uma tabela com os mesmos campos dentro do Access. é possivel? Isso porque recebo um arquivo toda semana em excel que deve entrar como lançamanto dentro de um sistema em asp/access, e assim gostaria de importa-lo atravez de comando e não precisando que um usuario tenha que "mexer" no meu BD , abrir, copiar e colar o conteudo..Isso é inviavel Obrigado!

tentei com este codigo mas não tive sucesso em tentar apagar um arquivo no servidor, principalmente porque uso variavel! Está certo isso? <%Dim varq varq=Request("arq")%> <%Set Fil=Server.CreateObject("Scripting.FileSystemObject") Set filObject=Fil.GetFile(downloads/"&varq&") filObject.Delete True%> Faço o "Request" por que tenho uma listagem dos arquivos dentro do diretorio "downloads" e coloco um link nele, levando seu proprio nome com a extensao. Obrigado!

Sim.. o usuario escolhe o arquico que já esta com link e levando a variavel do nome dele ex.: "arquivo.jpg".. NEste exemplo então tenho que colocar o caminho do servidor completo no get para apagar o arquivo ( G:/etc/etc.etc.etc../arquivo.jpg )? dai meu link seria como <a href="pagina_que_apaga.asp?arquivo=G:/etc/etc.etc.etc../arquivo.jpg"> Obrigado! Pizza

não Funciona, ta certo isso? <%Dim varq varq=Request("arq")%> <%Set Fil=Server.CreateObject("Scripting.FileSystemObject") Set filObject=Fil.GetFile(downloads/"&varq&") filObject.Delete True%> TKS

Da erro ao gravar, quando eu pego esta data que juntei com as horas e faço um isDate ele diz que é falso! Deve ser por isso que não grava no BD... Dai substituo a data por uma digitada "01/01/02005 15:15:15" e ele grava! Agora se coloco a que eu converti para tokyo da erro e não grava ... ta fogo..

Mas não quero somar dias, apenas 12 horas, o fuso horario BR/JP e as 12 muda o dia também.. tentei <%@Language=VBScript LCID=1041%> , mas não funcionou.

tenho o codigo, mas não funciona.. DIM nome sql2="select * from TB" where cp1 <> "%"&nome"&" cod = '2' " Dentro do TB tenho a coluna cp1 conde esta concatenado por & (&nome1&nome2&nome5&) varios nomes Queria procurar se o nome da pessoa esta dentro deste campo se estiver q seja <>, assim não mostrando no Rs. Brigadao