Tenho um javascript que mostra a hora atual

<div id=Clock align=center style="font-family: verdana; font-size: 10; color:red"> </div>
<script>
function tick() {
  var hours, minutes, seconds, ap;
  var intHours, intMinutes, intSeconds;
  var today;
  today = new Date();
  intHours = today.getHours();
  intMinutes = today.getMinutes();
  intSeconds = today.getSeconds();
  if (intHours == 0) {
     hours = "12:";
     ap = "Meia Noite";
  } else if (intHours < 12) { 
     hours = intHours+":";
     ap = "A.M.";
  } else if (intHours == 12) {
     hours = "12:";
     ap = "";
  } else {
     intHours = intHours - 12
     hours = intHours + ":";
     ap = "P.M.";
  }
  if (intMinutes < 10) {
     minutes = "0"+intMinutes+":";
  } else {
     minutes = intMinutes+":";
  }
  if (intSeconds < 10) {
     seconds = "0"+intSeconds+" ";
  } else {
     seconds = intSeconds+" ";
  } 
  timeString = hours+minutes+seconds+ap;
  Clock.innerHTML = timeString;
  window.setTimeout("tick();", 100);
}
window.onload = tick;
</script>

Tomara que te sirva

Até mais...

Dei uma olhada rápida em seu código...

Me parece que esse é o trecho de exibição dos membros não é?

...
--> 
     <p>::: Membros cadastrados</p><%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../db/sw.mdb")
sqlstmt = "SELECT * FROM membros"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
do while not rs.eof
%>
     <table width="100%" border="0" class="text">
       <tr> 
         <td colspan="3" class="titulo">Nome: <%=rs("nome")%></td>
       </tr>
       <tr> 
         <td width="17%" rowspan="3"><img src="membros/<%=rs("foto")%>">&nbsp;</td>
         <td width="74%">Nick: <%=rs("nick")%></td>
         <td width="9%">&nbsp;</td>
       </tr>
       <tr> 
         <td>Data de Nasc.: <%=rs("nasc")%></td>
         <td>&nbsp;</td>
       </tr>
       <tr> 
         <td>Site: <a href="http://<%=rs("site")%>" target="_blank"><%=rs("site")%></a></td>
         <td>&nbsp;</td>
       </tr>
       <tr> 
         <td colspan="3"><hr></td>
       </tr>
     </table>
     <p>&nbsp;
  <% if not rs.eof then%>
  <% rs.movenext %>
             <%end if%>
             <%loop%></p>
     <!-- InstanceEndEditable --></td>
 </tr>
 <tr> 
   <td height="19" colspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
 </tr>
</table>
<table width="100%" height="43" border="0">
 <tr>
   <td background="../images/light_luz.jpg">&nbsp;</td>
 </tr>
</table>
<p>&nbsp;</p>
</body>
<!-- InstanceEnd --></html>

Sendo assim, talvez vc deva encaixar o if aqui:

...
<%
varFoto = rsConsulta("foto")
if (varFoto = "") Then
varFoto = "imagem_padrao.jpg"
%>

<%else%>
<tr> 
         <td width="17%" rowspan="3"><img src="membros/<%=rs("foto")%>">&nbsp;</td>
<%end if%>
...

Teste para ver se dá certo. Até mais.

Não deu certo... coloquei

response.redirect ("pagina.asp") & rs("localizacao") & "/" & rs("NomeArquivo")

Dá esse erro:


Response object error 'ASP 0156 : 80004005'

Header Error

/sisproagro/Operacao.asp, line 138

The HTTP headers are already written to the client browser. Any HTTP header
modifications must be made before writing page content.

Onde está o erro?

Cadastrei um arquivo pdf num banco access indicando o nome do arquivo e sua localização

Agora quero mostrá-lo dentro de uma página asp que montei.

Preciso passar os parâmetros do arquivo, mas não sei como faço para que ele abra dentro da célula..

É mais ou menos assim o que estou fazendo:

Html...
<%
   if rs.eof then
   Response.write("Não existe documento cadastrado para essa atividade.")
   %>

<%else%>

<%=rs.Fields("localizacao").Value & "\" & rs.Fields("NomeArquivo").Value%>
   
// Nesta linha acima é que eu não sei como fazer
//Gostaria que ele abrisse dentro da célula onde tem esse código

html...

Alguém me ajuda?

No Front Page também dá pra mapear a imagem com a ferramenta área interativa em forma de polígono...

Se pretende montar alguma coisa com efeitos, do tipo mostrar uma outra imagem ao passar o mouse, poderia usar o fireworks. Aí é só exportar o html já pronto

Espero que ajude...
Até

Tenho um menu em asp que passa parâmetros para montar cada página dos links...

Quero que a partir de um certo ponto da navegação ele apareça sempre, só que tentei usar frames, e o iframe também... e ele me dá sempre o erro

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/sistema/menu.asp, line 25

Se alguém souber o que acontece e puder me ajudar dando alguma dica de como montar esse menu, agradeço....

Obrigada e até mais

Para vc testar localmente essas páginas, pode usar o pws.

Você instala no seu micro, adiciona o caminho das páginas nele, e a partir daí vc vai acessar vai browser como o endereço virtual das páginas...

http://nome do seu micro/nome do site/pagina.asp

Acho que é o mais simples... e se já estiver hospedado, vc só tem que sber se eles te dão suporte ao asp para poder chamá-las pelo browser...

Acho que isso...
Se alguém puder complementar...

Até mais.

Tenho um menu em asp que funciona passando parâmetros para abrir as páginas.

Mais ou menos assim:

Link1 - "pagina.asp?itemTal=<%=rs.Fields("itemTal").Value%>" blá blá blá...

Estou tentando montar com frames mas não está dando certo...

Será que isso seria caso para o iframe?

Não sei como fazer, se for o caso... Alguém pode me ajudar?

Queria que ficasse um cabeçalho, um rodapé, o conteúdo e esse menu na lateral esquerda...

Se alguém puder, agradeço...

Até mais.

na verdade o que tem que acontecer é o seguinte...


Tenho o texto....:

Atividade X

texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto texto

imagem A desta atividade X
Codigo da imagem A

texto texto textotexto texto textotexto texto textotexto texto textotexto texto textotexto texto textotexto texto textovtexto texto textovtexto texto texto

imagem B desta atividade X
codigo da imagem B

=============================

Eu tenho que indicar qual é a imagem para cada trecho pois elas são a ilustração do que está sendo explicado no texto...

Não consegui o que eu queria usando o While.

Ainda não deu certo...Se puderem ajudar, agradeço.

Até

Vou fazer o teste....valeu...

Dá sim....essa é uma idéia.....mas vc pode também usar um include file="nome do arquivo.txt"....


<%

Set fso = Server.CreateObject("Scripting.FileSystemObject")

Set listar = fso.OpenTextFile("c:\InetPub\wwwroot\teste.txt",1,0)

Do while listar.AtEndOfStream <> true
conteudo = listar.readline
response.write conteudo & "<br><br>"
Loop

Set fso = Nothing
Set listar = Nothing

%>


Até mais

Olá pessoal, preciso de uma idéia...

Tenho alguns documentos bem extensos com texto e imagens... Descrição de atividades....

Como isso vai para a intranet, eu gostaria de cadastrar esses documentos e também as imagens que são usadas que são muitas.

Até agora não consegui fazer algo que gostasse realmente. Vira e mexe preciso fazer modificações nessas imagens, revisão nesses documentos e fica complicado deixar isso como html.

Já pensei em fazer pdf, mas não quero depender do acrobat instalado nas máquinas, tem que ser algo bem flexível. Fazer em word, não dá, cria um montão de coisa desnecessária, além do que, não consigo trabalhar direito com o banco... Pensei em deixar tudo em asp e conectar o banco de imagens dentro desse arquivo... e cada vez que aparecer uma figura ele a busca do banco.

Ficou meio pesado para carregar e também não consegui fazer isso que pensei com as imagens...

Será que alguém tem alguma idéia pra deixar isso mais dinâmico, haja visto que estou trabalhando com textos muitas vezes enormes e muitas imagens?

Se alguém já fez algo parecido ou tem alguma idéia, por favor me ajudem...

Tenho um pouco de urgência para isso...

Obrigada e até mais.

Só alterando uma coisa.... no action do formulário não é buscaCep.asp... é buscaRevendedor.asp.....ok?

Bom, vamos lá... Vou tentar ajudá-lo. Vc pode trabalhar basicamente com três arquivos: um formulário, um que conecta com o banco e o outro para fazer a busca...

então vamos ao form DigitaCep.asp:

<html>

<head>
<title>Pesquisa de revendedores</title>
</head>

<body>

<form method="POST" action="BuscaCep.asp">
  <p>Digite seu cep</p>
  <p>
  <input type="text" name="txtcep" size="20">
  <input type="submit" value="Busca" name="btEnviar">
  </p>
</form>

</body>

</html>

Agora o arquivo de conexão com seu bd:

<%
 'Variáveis
 Dim StrCon	'String de conexão
 Dim Conexao	'Objeto de conexão
 
Set Conexao = CreateObject("ADODB.CONNECTION")
Strcon ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &   server.MapPath("nome do banco.mdb") 
 
 Sub AbreConexao()
       Conexao.Open Strcon
 end sub

 Sub FechaConexao()
       Conexao.close
 end sub 
 %>

E agora o arquivo BuscaRevendedor.asp:

<html>
<head>
<title>Lista revendedores</title>

<!--aqui o include do arquivo de conexão com o banco>
<!--#include virtual="/raiz do site/conecta.inc"-->

<%
AbreConexao
 
 Dim rs  'Recordset
'//Montamos aqui o recordset que irá receber os valores do banco
  Set rs = Server.CreateObject("ADODB.Recordset")
  Set rs = conexao.Execute("SELECT * from Revendedores" _
	& " Where cep= '"& request.form("txtCep") & "'")
%>

<p>
<%
   if rs.eof then
   Response.write("Não existem revendedores para este cep.")
   %>
</p>

<%else%>

<%
     Do While Not rs.EOF 
%>

<p><%=rs.Fields("Cep").Value%></p>
<p><%=rs.Fields("NomeRevendedor").Value%></p>
<p><%=rs.Fields("EndRevendedor").Value%></p>
<p>etc...</p>

<%
'//Fecha o Loop
   rs.MoveNext
   Loop
'//Fecha o recordset e libera os objetos
   rs.Close
   Set rs = Nothing
   conexao.Close
   Set conexao = Nothing
   %>

<%end if%>
</html>

Não tive tempo de testar o buscaRevendedor.asp ok? Se tiver alguma falha pessoal, por favor, corrijam ok?

Espero que te ajude...

Até mais

Valeu pessoal, testei das duas formas e deu certo....




Obrigada e até mais

Tenho uma tabela que lista equipamentos... Além das características dos equipamentos tem a imagem dele....

Como faço para listar esses equipamentos lado a lado na página colocando a imagem acima e a descrição abaixo ou a imagem e descrição lado a lado...


Tem jeito não tem?

Você está conectado ao banco?


Dê uma verificada nisso...

Vou fazer o seguinte... tenho alguns códigos que utilizei para montar essa idéia de "mascarar" a origem...

vou te mandar via e-mail ok?


vc analisa e vê se pode ir de encontro ao que está pensando também...

No meu caso não era bem a preocupação com o arquivo e sim com o caminho do arquivo....

Estão na intranet da empresa... Era uma maneira de não deixar que ninguém acessasse o diretório dos arquivos...

Valeu...

Fiz uma vez passando parâmetros de uma página para outra, assim o que o usuário vê na barra de endereços, não é a origem e sim o parâmetro passado...


Usei um frame também... Deu certo...

agora está aparecendo duas vezes o campo um como link e o outro sem link...

Tá dando tiuti já...Com vcs também é assim ? Tem hora que a cabeça parece que não funciona mais?

Gente... tenho uma página que faz uma busca e mostra os campos na tela...

<%= rs.Fields("descatividade").Value %>
Bom até aí tudo bem, ele mostra corretamente....Agora....minha dúvida é que não estou conseguindo fazer um link para a linha acima...

Eu queria fazer com que cada field mostrado linkasse com uma página que é um menu para cada atividade... para isso tentei fazer o seguinte:

<a href= "montamenu.asp?descatividade=<%= rs.Fields("descatividade").Value %>"></a>

só que não mostra mais nada na tela... onde está errado? :light:
Vocês entenderam minha explicação?

Obrigada e até...

include file pega o caminho físico do arquivo...

include virtual pega o caminho virtual...

não sei se funciona para endereçar outros servidores não...


Até mais...

Seu endereço é:

www.supertrafego.com

ele tem um link para o que está querendo......