Ir para conteúdo
Fórum Script Brasil

premiere

Membros
  • Total de itens

    30
  • Registro em

  • Última visita

Tudo que premiere postou

  1. Pessoal preciso de um script para abrir os meu videos assim como o site do estado no link abaixo, alguém teria uma dica ai... obrigado http://www.estadao.com.br/interatividade/M...AE89EA0F63907AB
  2. olá gostaria de saber se alguém pode dar uma dicar de como desenvolver o codigo para implementar uma sala de bate papo durante um programa de tv ao vivo vejam exemplo http://www.itapoanonline.com/main/campeona...ano/aovivo.aspx obrigado
  3. premiere

    Que Erro é Esse?

    Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Could not delete from specified tables. /noticias/news/admin2.asp, line 41 LINHA 41= Set RS = conn.execute(sqlstmt) JÁ DEI PERMISSÕES NO LOCALHOST e NO SERVER só tá rodando no localhost por favor alquem poderia me dar uma dica? obrigado
  4. Pessoal Aqui no IIS roda perfeito mas quando enviei para o servidor dá este erro: HTTP/1.1 404 Object Not Found vejam o codigo: <% 'Faço a conexão com o bd e recupero os dados cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource set rs=conn.execute("select*from Noticias") %> alguém poderia me dar uma dica de onde estou errando?
  5. premiere

    Iis Desconfigurou

    ok colega, o problema é mais ou menos assim... quando você entra em ferramentas adminsitrativas, e abre o IIS ele mostra o nome do computador onde estão os sites do servidor ,certo??? O problemas é que estes sites desapareceram dai... estão no HD normalmente , mas não aparecem dentro do IIS e eu já reinstalei mas nada adiantou, certo tempo atras isto ocorreu e foi só reinstalar , mas desta vez , nada .... agradeço pela ajuda ai
  6. premiere

    Iis Desconfigurou

    Pessoal meu iis de repente parou de mostrar as paginas, e no localhost as paginas não aparecem mais, já reinstalei o IIS mas não resolveu, alguém pode me dar umas dicas como resolver isso? fiz uma busca aqui no forum mas não achei nada semelhante obrigado
  7. premiere

    Ativação

    Pessoal estava usando o dream 8.0 há aprox 1 ano, de repende ao iniciar aparece a tela dizendo MACROMEDIA PRODUCT ATIVACTION, PLEASE REINSTAL YOUR SOFTWARE. já reinstalei, mas não adianta , algum sabe me dizer o que está acontecendo??? obrigado
  8. premiere

    Quebra De Linha

    mesmo assim não deu certo
  9. premiere

    Quebra De Linha

    obrigado Andrea eu substitui a linha mas continua do mesmo jeito
  10. premiere

    Quebra De Linha

    pessoal estou tentando usar um sistema de noticias mas quando ele exibe o texto digitado vem tudo numa mesma linha, como faço para que ele exiba com os parágrafos conforme digitado? segue o codigo <% thequery="SELECT * FROM News order by news_date desc" executesql(thequery) while not rs_main.eof response.write "<hr color=""black""><B>" response.write rs_main("news_title") response.write " </b>-<font size=""1"">" response.write rs_main("news_date") response.write "</font><pre><font face=""verdana"">" response.write rs_main("news_contents") response.write "<BR></pre>postado por:" & rs_main("news_postedby") & "" response.write "<BR><BR>" rs_main.movenext wend %>
  11. premiere

    Album De Fotos

    Pessoal gostaria de uma dica de como fazer um album igual ao que usam no portal terra, por exemplo na pagina de moda, onde clica no thumb e a foto aparece na janela da direita já com legenda, obrigado ai pelas dicas
  12. premiere

    Iis

    pessoal de uma hora pra outra não consegui mais acessar as paginas no servidor IIS e fui verificar no IIS e só aparece o nome do computador local, o que aconteceu, preciso de umas dicas ai... obrigado
  13. premiere

    Login E Senha

    o erro é ( then esperado) <% login_a = "harley" senha_a = "teste" login_b = request.form("login") senha_b = request.form("senha") ESTA É A LINHA DO ERRO>> if login_b &lt;&gt;"" and senha_b &lt;&gt; "" then if login_a = login_b and senha_a = senha_b then session("logado") = "logou" response.redirect "pagina.asp" 'aqui voce redicionará para a página protegida pela senha else response.write "Login/Senha inválido, por favor aperte back em seu broser e tente novamente". end if else response.write "Você esqueceu de preencher algum campo, por favor aperte back em seu browser e tente novamente" end if %> alguém PODE ME AJUDAR POR FAVOR
  14. premiere

    Session.lcid = 1046

    ok muito obrigado pela informação
  15. premiere

    Session.lcid = 1046

    Pessoal peguei o site de um cliente e na pagina connect.asp aparece este codigo na primeira linha, sou novato em asp, o que quer dizer isto? obrigado pelas dicas
  16. ok Andreia eu alterei o bco e o codigo , mas deu este erro /curso/incluir.asp, line 11, column 40 If IsEmpty(Request.Form ("submit") ) AND
  17. Andreia-sp fiz a alteração e o erro permanece o mesmo Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /curso/incluir.asp, line 79, column 45 If not IsEmpty (Request.Form("submit") ) AND
  18. Amigos me ajudem por favor a encontar onde está estes erros... nesta primeira parte dá dando este erro: PAGINA incluir.asp Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A03EA) Erro de sintaxe /curso/incluir.asp, line 79, column 45 If not IsEmpty (Request.Form("submit") ) AND CODIGO: <% If IsEmpty(Request.Form ("submit") ) Then %> <p>&nbsp;</p> <form id="form1" name="form1" method="post" action="<%=Request.ServerVariables("script_name")%>"> <% Else If not IsEmpty (Request.Form("submit") ) AND Trim(Request.Form ("Nome")) <> "" AND Trim(Request.Form ("Endereço")) <> "" AND Trim(Request.Form ("Bairro")) <> "" AND Trim(Request.Form ("Cidade")) <> "" AND Trim(Request.Form ("Estado")) <> "" AND Trim(Request.Form ("CEP")) <> "" AND Trim(Request.Form ("Telefone")) <> "" AND Trim(Request.Form ("RG")) <> "" AND Trim(Request.Form ("CPF")) <> "" AND Trim(Request.Form ("E-Mail")) <> "" AND Trim(Request.Form ("Assinatura")) <> "" AND Set conexao = Server.CreateObject ("ADODB.Connection") Conexao.open "DBQ=D:\Inetpub\wwwroot\curso\db\assinantes.mdb;Driver={Microsoft Acess Driver (*.mdb)};" comandoSQL = "INSERT INTO cadastro (Nome, Endereço, Bairro, Cidade, Estado, CEP, Telefone, RG, CPF, E-Mail, Assinatura)" ComandoSQL = ComandoSQL & "VALUES (" ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Nome")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Endereço")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Bairro")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Cidade")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Estado")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("CEP")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Telefone")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("RG")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("CPF")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("E-mail")) & "'," ComandoSQL = ComandoSQL &"'" & Server.HTMLEncode(Request.FORM("Assinatura")) & "'," Set bd = Conexao.Execute(ComandoSQL) Conexao.close Set bd = Nothing %> Os dados foram enviados com sucesso <% else %> Atenção: Alguns dados necssários não foram preenchidos corretamente. <BR /> <a href="javascript:history.go(-1)"> clique aqui para voltar <% end if %> PAGINA DE CONSULTA erro:Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /curso/consultar.asp, line 22 "DBQ=D:\Inetpub\wwwroot\curso\db\assinantes.mdb; Driver={Microsoft Acess Driver (*.mdb)};" CODIGO: primeira parte <% Set Conexao = Server.CreateObject ("ADODB.Connection") Conexao.Open "DBQ=D:\Inetpub\wwwroot\curso\db\assinantes.mdb; Driver={Microsoft Acess Driver (*.mdb)};" ComandoSQL = "SELECT * FROM cadastro" Set db = Conexao.Execute(ComandoSQL) If Not db.EOF Then db.Move Request.Querystring ("n") %> segunda parte <% If request.QueryString ("n")> 0 then Response.write "<a href="& Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n")- 1 & "> &lt;&lt; Anterior</a>&nbsp;&nbsp;" End if db.MoveNext If Not db.EOF then Response.Write "&nbsp;&nbsp; <a href="& Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & "> próximo &gt;&gt;</a>" End if Conexao.Close Set db =Nothing Set Conexao = Nothing %>
  19. premiere

    Um Sistema Assim

    pessoal muito agradecido pelas dicas de todos voces
  20. premiere

    Um Sistema Assim

    não!!! Estou no interior de sp
  21. premiere

    Um Sistema Assim

    um cliente quer fazer um portal que será do tipo uma TV interativa, onde o apresentador vai interagir com os expectadores numa sala de bate papo na mesma página. Além disso será necessário um sistema de noticias, newsletter, mailing, album de fotos, e a administração disso tudo em asp. preciso ter noção de quanto cobrar por este serviço obrigado
  22. premiere

    Erro No Asp 80004005

    valeu pessoal já solucionei, era permissão na pasta...abraços
  23. premiere

    Erro No Asp 80004005

    o caminho é este mesmo, pois utilizo 2 HDs, e sempre abriu neste diretorio , mas agora ta dando este erro ai...
  24. premiere

    Erro No Asp 80004005

    pessoal fiz um form de cadastro mas tá dando este erro, onde errei??? erro: 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 0x904 Thread 0xa38 DBC 0x12557b4 Jet' do Registro. /lvserigrafia/db/cadmailok.asp, line 48 codigo: <% dim nome,email,endereco,cep,cidade,telefone,estado,comercio,atividade nome=request.form("nome") email=request.Form("mail") endereco=request.Form("endereco") cep=request.Form("cep") cidade=request.Form("cidade") estado=request.Form("estado") telefone=request.Form("telefone") comercio=request.Form("comercio") atividade=request.Form("atividade") set cn=server.createobject("adodb.connection") LINHA DO ERRO>>>cn.open "driver={microsoft access driver (*.mdb)};dbq=d:\inetpub\wwwroot\lvserigrafia\db\cadastro.mdb" sql="insert into cadastro (nome,email,endereco,cep,cidade,telefone,estado,comercio,atividade) values ('"&nome&"','"&email&"','"&endereco&"','"&cep&"','"&cidade&"','"&telefone&"','"&estado&"','"&comercio&"','"&atividade&"')" set rs=cn.execute(sql) response.Write(nome) response.Write(" obrigado, você já está cadastrado em nosso sistema!!!") %> obrigado pela ajuda
×
×
  • Criar Novo...