Ir para conteúdo
Fórum Script Brasil

Husscoffee

Membros
  • Total de itens

    88
  • Registro em

  • Última visita

Tudo que Husscoffee postou

  1. Husscoffee

    No Local Host Blzinha

    Caras rodou!!!!!! Tinha tudo a ver com o lance de permições de pasta mais aí eu mudei o string de conexão, como meu servidor tinha uma pasta já p/ alojar os BD só mudei a conexão... olha só como ficou: <!--#include file="config.asp"--> <% Dim ConnString ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\site\dados\dados.mdb;" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConnString ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub %> tá rodando blzinha!!! Valeu galera até a próxima!
  2. Husscoffee

    No Local Host Blzinha

    Só queria saber aonde coloco essa linha: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\site\dados\exemplo.mdb;" se substituo o string de conexão...
  3. Husscoffee

    No Local Host Blzinha

    Pois é.... no servidor tem uma pasta destinada só aos banco de dados... essa aqui: "e:\home\site\dados\dados.mdb" O arquivo conexão está assim: <!--#include file="config.asp"--> <% Set Conexao = CreateObject("ADODB.CONNECTION") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("e:\home\site\dados\dados.mdb") ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then Conexao.Open ConStr ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub %> Porém o servidor recomenda esse string de conexão: "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\site\dados\exemplo.mdb;" já tentei subistituir, mais como não manjo muito de asp acho q estou fazendo alguma coisa de errado, se alguém puder me dar ajuda, ou indicar algum tuto, tá valendo!
  4. Husscoffee

    No Local Host Blzinha

    o código onde dá o erro é esse aqui: <% Abreconexao sessao = request.querystring("sessao") Select case sessao Case "en_cat" If Request.Form("enviado") = "sim" Then Sql = "INSERT INTO categorias (nome) " Sql = Sql & "VALUES('"&Request.Form("nome") & "')" Conexao.Execute(Sql) <<<<linha 38 Response.Write "Enviado Com Sucesso!<BR><A href=admin.asp>Voltar</a>" Else %> <form method="POST" action="admin.asp?sessao=en_cat"> <input type="hidden" name="enviado" value="sim"> Nome: <input type="text" name="nome" size="20"><BR> <input type="submit" value="Enviar"> </form> <% End If
  5. Bom Galera estamos aí de novo! Pessoal é o seguinte... consegui fazer um código rodar certinho em localhost, porém quando jogo no site não rola.... não sei o que pode ser... alguém me dá uma luz.... olha só o erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /fotos/admin.asp, line 38 Valeu
  6. Foi mau nem vi q não tava logado!
  7. Bom galera, estou me virando como posso para fazer um site aqui com alguma coisa em asp para torná-lo mais dinâmico, bom, é um código para enviar e-mails não está funcionando corretamente ele dá o seguinte erro: Ocorreu um erro. O Erro é At least one Recipient, CC or BCC must be entered o código está assim.... <% Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto sNameFrom = Request.Form("nome") sEmailFrom = Request.Form("email") sEmailTo = "meu@email.com.br" sNameTo = "Movelpar" sText = Request.Form("mensagem") sAssunto = Request.Form("assunto") set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient sEmailTo, sNameTo Mailer.Subject = sAssunto & " - E-mail" strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter if Mailer.SendMail then Response.Redirect "obrigado.asp" else Response.Write ("Ocorreu um erro.<BR>") Response.Write ("O Erro é " & Mailer.Response) end if %> Desde já agradeço
  8. Opa! seria interessante!
  9. Husscoffee

    Coisa Simples

    Olha pessoal realmente descobri o q estava dando de errado, o código é o q o dark0 disse mesmo, esse aqui: "delete * from Noticias where id="&Request.querystring("id")&" " agora o problema q dava: erro (0x80004005) http://scriptbrasil.com.br/forum/index.php...7&hl=0x80004005 esse tópico aí em cima resolveu meu caso. valeu de novo moçada!
  10. Husscoffee

    Coisa Simples

    tipo.. eu apenas tirei a aspa simples.. isso é usado pra campo NUMERO. o campo ID está colocado como numero, ou texto, no seu banco? ate mais Está como número, qual o procedimento???
  11. Husscoffee

    Coisa Simples

    beleza, já corrigi mais deu outro erro agora: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /apagarnoticia.asp, line 12 "delete*from Noticias where id='"&Request.querystring("id")&"'" despulpem a insistência, mais é q não vou sussegar até fazer essa encrenca rodar, agora é pessoal!
  12. Husscoffee

    Coisa Simples

    Eu fiz assim agora: <%@ Language=VBScript %> <%response.buffer=true%> <HTML> <BODY> <% cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource con.Execute("delete*from Noticias where id="&Request.querystring("id")&("manchete")&("fonte")&("imagem")&("noticia")) &Response.Redirect"admin.asp" <=== tá dando erro aqui agora! %> </BODY> </HTML> e o erro agora é o seguinte: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /apagarnoticia.asp, line 13 &Response.Redirect"admin.asp"
  13. Husscoffee

    Coisa Simples

    Bom galera estou começando a entender agora como funcionam as coisas, mais é o seguinte, eu puxei um código de not´cias um tal de "bsnews" e estou conseguindo inserir dados no banco etc, só q quando quero apagar as notícias na página apagarnoticias.asp aparece a seguinte mensagem de erro: Informações técnicas (para a equipe de suporte) Tipo de erro: Erro de tempo de execução do Microsoft VBScript (0x800A01A8) Objeto necessário: '' /apagarnoticia.asp, line 12 o código é o seguinte: <%@ Language=VBScript %> <%response.buffer=true%> <HTML> <BODY> <% cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource con.Execute("delete*from Noticias where id="&Request.querystring("id")&"") <== Linha 12 Response.Redirect"admin.asp" %> </BODY> </HTML> Valeu de novo galera!
  14. Husscoffee

    Cone~xao.asp

    Valeu Jissa, é isso mesmo q você falou, deu certinho tá rodando blzinha! Valeu moçada é isso aí! pode fechar o tópico moderador! era o lance do endereço do BD mesmo!fui!
  15. Husscoffee

    Cone~xao.asp

    Olá Pessoal, é seguinte eu baixei uma página do cliente q quer algumas alterações, e estou tentando fazer os teste na minha máquina com o IIS, mais ele dá erro no conexao.asp deve ser bem aqui: ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ee:\home\meusite\dados\meusite.mdb;" o q faço??? Codigo inteiro: <% sub abre_conexao Dim ConnString ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\meusite\dados\meusite.mdb;" Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConnString end sub sub fecha_conexao conexao.Close Set conexao=Nothing end sub %>
  16. Valeu Deividy, agora ele rodou, eu instalei ele de novo e deixei o IP e deixei "todos os não relacionados" acho q devia ser isso, bom vai aí uma dica p/ quem teve esse problema, se for testar as páginas na própria máquina deixe o ip como esta q vai rodar unma boa!!! Valeu galera!
  17. Não, ele está ativo, com certeza eu configurei algo errado nele, já escolhi a pasta aonde colocar os arquivos e tudo, não tenho idéia do q pode ser!
  18. Não ele aparece aquele aviso: "A página não pode ser exibida A página que você procura não está disponível no momento. Talvez o site da Web esteja passando por dificuldades técnicas ou você precise ajustar as configurações do navegador. "
  19. Tenho sim... instalei e acho q já confugurei como vi em um tutorial aqui do fórum mesmo.
  20. Valeu Leandro... mais é q eu gostaria de entender como funciona esse servidor aqui na minha máquina mesmo, acho q agora o lance é pessoal hehehe Tenho certeza q o problema é em alguma coisa q fiz ou não fiz porque o problema acontece em dois computadores diferentes.... se alguém pudesse me indicar um Tutorial bem detalhado seria muito interessante p/ mim, mais mesmo assim valeu!
  21. è p/ Trabalhar em ASP, estou começando agora, então quer dizer q eu tenho q colocar o diretório e nome do arquivo certo? tipo se o nome do arquivo for default.asp, ficaria assim: http://diretório (d:)/nome da pasta (site)/nome do arquivo(default.asp) ???
  22. Configurei o IIS mais me enrrosco quando vou configurar o site de teste no DW, qualquer URL que coloco no item abaixo aparece essa mensagem, alguém tem idéia do q pode ser??? è isso q aparece: VAleu GAlera!
  23. Valeu mesmo! Mais só p/ finalizar com chave de ouro, como faço p/ esse estilo não alterar os outros links da página??? Valeu de novo!
  24. Olá pessoal, tenho uma dúvida sobre essas tabelas q tem os links dentro tipo o do UOL, gostaria de saber como configurar o contorno da tabela, as cores, quando o ponteiro passar por cima, isso tanto das tabelas quanto dos textos linkados... Agradeço desde já!!!
  25. Bom Galera é o seguinte, gotaria de saber como é q é feito esse tipo de moldura, aonde não aparece a borda, não sei o q é, então é melhor olhar esse site aqui: Igual esta! Se alguém souber! Valeu!
×
×
  • Criar Novo...