lsardinha

Esse esta ocorrendo por causa do caminho que quando abre a janela deveria ser ... 2 cnpath="DBQ=" & Server.MapPath("../dados/intranet.mdb") e não: 2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") (Como esta) só que quando coloco do primeiro jeito ocorre o erro: na página que mostra as fotos, pois o caminho pra ela tem que ser 2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb")

1 <% 2 cnpath="DBQ=" & Server.MapPath("dados/intranet.mdb") 3 DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 4 5 Set Conn = Server.CreateObject("ADODB.Connection") 6 7 Conn.Open DataSource 8 9 'Abre o Recordset 10 Set Rs = Server.CreateObject( "ADODB.Recordset" ) 11 RS.ActiveConnection = Conn 12 'Set Rs=conn.execute("Select * From fotos_eventos order by 2") 13 %>

Pois é, coloquei Fotos.asp e ocorreu aquele erro, criei outra pagina chamada popup.asp e ela abre em branco ...

Esse erro que dá é o seguinte: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xa8c Thread 0x10f4 DBC 0x2602014 Jet' do Registro. /teste/fotos/fotos.asp, line 7 Eu acho que é porque ele não achou o banco de dados, estou usando include na página index e aí o endereço para o banco fica diferente... o que fazer nesse caso?

Eu preciso criar essa pagina fotos.asp? porque ele fala que não foi possível abrir a página. HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services

Fiz um album de fotos e ele mostra primeiramente uma foto pequena, até aqui já fiz, o que não sei fazer é clicar na foto e ela abrir em uma janela do tipo pop-up... Response.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""80%"">" contar = 0 Do while not rsFotos.eof If contar = 4 Then Response.Write "<tr>" End If If contar <> 5 Then Response.Write "<TR>" End If imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") If RsFotos.eof then exit do Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar +1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext If RsFotos.eof then exit do imagemp=rsFotos("Foto_P") imagem=rsFotos("foto") Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img border=0 src=""fotos/"&imagemp&".jpg""></a></td>" contar = contar + 1 rsFotos.MoveNext Loop Response.Write "</tr></table></div>" End if

Mas tenho que passar a informação da session para cada página? se sim como?

Fiz uma página para o usuário poder logar na minha intranet, e esta funcionando beleza, ele verifica se o usuário esta cadastrado, se a senha esta correta e tudo. O que preciso saber é como fazer para ele ter ou não permissão para acessar determinada página, se tenho que colocar algum codigo nela ou se tenho que mudar algo nesse código abaixo. <% Set Conn = Server.CreateObject("ADODB.Connection") Caminho = "DBQ=" & Server.MapPath("dados/intranet.mdb") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Caminho Set rs = conn.Execute("Select * from usuarios") vlogin = Request.Form("usuario") vsenha = Request.Form("senha") Set Rc = Server.CreateObject("ADODB.RecordSet") sql = "Select * from usuarios where usuario='"& vlogin &"'" Rc.Open sql, conn, 3, 3 data = Date() hora = time() %> <% if Rc.RecordCount < 1 then Session("nivel") = 0 %> <% Response.Write("<span class=""texto"">Não existe esse login.<br><br><a href=""index.shtml""></a></span>") Set conn = Server.CreateObject("ADODB.Connection") Caminho = "DBQ=" & Server.MapPath("dados/sites.mdb") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Caminho Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "INSERT INTO erros (nome,data,hora,site,erro) VALUES ('"& vlogin &"','"& data &"','"& hora &"','Serasa','Não existe login.')" Rs.Open sql, conn, 3, 3 else if Rc("senha") = vsenha then Session("nivel") = Rc("serasa") Session("nome") = Rc("nome") if Session("nivel") = 1 then data = Date() hora = time() Set conn = Server.CreateObject("ADODB.Connection") Caminho = "DBQ=" & Server.MapPath("dados/sites.mdb") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Caminho Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "INSERT INTO log (nome,data,hora,site) VALUES ('"& Session("nome") &"','"& data &"','"& hora &"','Serasa')" Rs.Open sql, conn, 3, 3 Response.Redirect("index.asp?lcl=entrandoserasa") else Session("nivel") = 0 Response.Write("<span class=""texto""><strong>"& Rc("nome") &"</strong>,<br><br>Você não possui acesso a esse sistema. Caso você queira ter acesso, solcite a COINF pelo ramal 4973.<br><br><a href=""index.asp?lcl=intro""></a></span>") end if else Session("nivel") = 0 Response.Write("<span class=""texto""><strong>"& Rc("nome") &"</strong>,<br><br>Sua senha está errada. Verifique se você a digitou corretamente, levando em consideração maiúsculas e minúsculas. Tente novamente com a senha válida.<br><br><a href=""index.asp?lcl=intro""></a></span>") Set conn = Server.CreateObject("ADODB.Connection") Caminho = "DBQ=" & Server.MapPath("dados/sites.mdb") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & Caminho Set Rs = Server.CreateObject("ADODB.RecordSet") sql = "INSERT INTO erros (nome,data,hora,site,erro) VALUES ('"& vlogin &"','"& data &"','"& hora &"','Serasa','Senha inválida - "& vsenha &"')" Rs.Open sql, conn, 3, 3 end if end if %>

simplesmente dá erro no apache e eu tenho que fechar o apache e o browser quando eu não coloco count ( * ) as qtde , funciona normal

P E R F E I T O ! ! ! Valeu Demais!!! Obrigado!!!

você sabe como eu faço para saber quantos registros tem no meu recordset em php estou tentando com count (*) mas está dando o maior pau

Estou fazendo uma página que busca os dados em banco com os seguintes campos: --> Id --> tipo --> Publicacao --> Diretorio na página o tipo será o título das publicações, então teria de imprimir uma vez o titulo e em uma tabela os dados dessa publicação, mais ou menos assim: Tipo (Jornais) Publicacao Diretorio Jornal 1 link Jornal 1 link Jornal 1 link Tipo (Concurso) Publicacao Diretorio Edital link Prova link Resultado link só que não estou conseguindo, o codigo esta aí, quem puder me ajudar: <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="610" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <TD width=15><IMG height=8 src="imagens/1px.gif" width=8></TD> </tr> <tr> <td width="15" align="center" valign="middle"> <div align="center"><IMG height=8 src="imagens/1px.gif" width=15></div></td> <td align="center" valign="top"><table width="595" border="0" cellspacing="0" cellpadding="0"> <tr bgcolor="#3399CC"> <td width="610" height="20" bgcolor="#3399CC"><div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>PUBLICA&Ccedil;&Otilde;ES</strong></font></div></td> </tr> </table> <% while not Rs.EOF %> <% reg = Rs("tipo") %> <% 'IMPRESSÃO DO TÍTULO %> <table width="595" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5" align="center" class="textointrodutorio"><img src="../imagens/5px.gif" width="5" height="5"></td> </tr> <tr> <td height="20" align="center" bgcolor="#C4E4FD" class="textointrodutorio"><%=rs("tipo")%></td> </tr> </table> <% ' IMPRESSÃO DOS DADOS %> <% Do %> <table width="595" border="0" cellpadding="1" cellspacing="2"> <tr> <td width="30" height="20" align="center" bgcolor="#ECF8FF"><img src="imagens/tópico.gif" width="8" height="8"></td> <td width="409" bgcolor="#ECF8FF" class="texto"><%=rs("publicacao")%></td> <td width="16" bgcolor="#ECF8FF">&nbsp;</td> <td width="36" bgcolor="#ECF8FF">&nbsp;</td> <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriozip") %>"><img src="imagens/Zip.gif" width="16" height="16" border="0"></a></td> <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Zip</div></td> <td width="16" bgcolor="#ECF8FF"><a href="publicacoes/<%= Rs("diretoriopdf") %>" target="_blank"><img src="imagens/pdf.gif" width="16" height="16" border="0"></a></td> <td width="36" bgcolor="#ECF8FF" class="texto"><div align="center">Pdf</div></td> </tr> </table> <% Loop until reg = (rs("tipo")) %> <% Rs.Movenext %> <% wend %> <% Rs.close %> </td> </tr> </table> </body>

Como faço para capturar apenas o mes quando um usuário digitar uma data... por exemplo: 25/05/2004 mes vai ser igual 5.

como configurar o php de uma maq local em windows 2000 para acessar uma base de oracle 7.3 em outro servidor que não a máquina local...

é bem básica a minha dúvida, tenho uma tabela com a lista dos departamentos da empresa e quero que ela apareça em list/menu, mas só esta aparecendo o primeiro da lista. com fazer pra mostrar todos? <select name="select" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"> <option value="<%=rs("div")%>" selected><% Response.Write rs("div") %></option> </select>

Valeu, obrigado

ok, vou procurar em java...obrigado

Fiz uma página para inserir artigos no banco, mas o problema pega na hora da formatação do texto (Negrito, Intalico, Sublinhado, Fonte, Cor, Tamanho, Estilo)... Queria saber como faço para ter o esquema igual o do fórum, onde tem os botões e ele insere aqui a formatação escolhida.

Estou rodando na minha intranet, em um servidor de ISS, e por enquanto a minha página esta hospedada no www.brinkster.com que é gratuíto.

Fiz um teste e apareceu o seguinte erro: HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A0046) Permissão negada /sviventes/teste/e-mail.asp, line 110 109 - Set objNewMail = CreateObject("CDONTS.NewMail") 110 - objNewMail.Send sPunterEmail, sYouEmail, EmailSubject, sMessage

Rodei e ele me retornou isso: Componentes instalados: ADODB FileSystemObject CDONTS

Peguei no site do scriptbrasil o formulário Fale Conosco que permite colocar em meu site um formulário para envio automático de mensagens para meu e-mail. coloquei na minha página só que quando preencho os dados e envio aparece o erro: HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Objeto Server, ASP 0177 (0x800401F3) ProgID inválido. Para obter informações adicionais específicas sobre esta mensagem, visite o site Microsoft Online Support localizado em: http://www.microsoft.com/contentredirect.asp (site em inglês). /sviventes/teste/enviar.asp, line 14 --> Código do enviar.asp <-- <% 'Declarando variveis Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto 'Pegando os dados digitados nos campos e colocando em variaveis sNameFrom = Request.Form("nome") sEmailFrom = Request.Form("email") sEmailTo = "seuemail@vipcodigo.com.br" sNameTo = "Nome do Site" sText = Request.Form("mensagem") sAssunto = Request.Form("assunto") 'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom 'Host para envio de emails Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sAssunto & " - E-mail" 'Monta a texto para o envio strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter ' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then Response.Redirect "obrigado.asp" else ' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if %>

Valeu vou fazer isso...

coloquei, só que o cara colocou um esquema assim "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" mas aí você coloca muito mais "a", aí ele não quebou linha....

Preciso limitar as colunas para que o texto retorne para a linha de baixo quando for imprimir na tela, é um mural de recados e os dados em um campo do tipo memorando do access, o codigo de impressão na tela é esse: <%=rsMuralRecados.Fields("Mensagem")%>