Ir para conteúdo
Fórum Script Brasil

Bruno G.

Membros
  • Total de itens

    9
  • Registro em

  • Última visita

Tudo que Bruno G. postou

  1. Bruno G.

    Apagando Do Bd

    o mesmo erro persiste. Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /bruno/db2/acesso.asp, line 67
  2. Bruno G.

    Apagando Do Bd

    O script: <% Dim caminhoAPAGAR Dim conexaoAPAGAR id = Request.QueryString("id") caminhoAPAGAR = Server.MapPath("banco356.mdb") Set conexaoAPAGAR = Server.CreateObject("ADODB.Connection") conexaoAPAGAR.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminhoAPAGAR&";" Set banco = Server.CreateObject("ADODB.Recordset") Str = "delete * FROM comentarios WHERE id='"&id&"' " banco.open Str, conexaoAPAGAR, 2, 1 Response.Write("Recado apagado. Retornando para pagina inicial") response.redirect ("index.asp") banco.close %> O erro Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /bruno/db2/acesso.asp, line 67 A linha 67 banco.open Str, conexaoAPAGAR, 2, 1 alguém ilumina? Abraçossss. Valeu!
  3. Vi o erro mas n consegui soluciona-lo.. o formulario ta apontando certinho para a pagina.. com os campos com os names corretos login e senha. Erro dado: Request object error 'ASP 0102 : 80004005' Expecting string input /BRUNO/db2/acesso.asp, line 14 The function expects a string as input. Script modificado, na intenção de corrigir. <% Select Case Request.QueryString("acao") Case "login" Dim caminho Dim conexao Set login = request.form("login") Set senha = request.form("senha") caminho = Server.MapPath("banco356.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" Set banco = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM passaporte WHERE login='"&login&"' AND senha='"&senha&"' " banco.open strBuscaProdutos, conexao, 3, 3 If banco.eof then Session("msg")="Acesso Negado" Response.Redirect ("index.asp") Else Set usuario = banco("usuario") Set senha = banco("senha") Set nome = banco("nome") Set Session("usuario") = usuario Set Session("senha") = senha Set Session("nome") = nome Response.Redirect ("index.asp") End If banco.close Case "logout" session.abandon("login") = "" session.abandon("senha") = "" response.redirect ("index.asp") Case Else Response.Write("O que você está fazendo aqui?") End select %> =====EDITADO======= Já consegui resolver... Obrigado a todos pela tentativa de ajuda.. tenho um novo problema... depois eu posto aqui hehe.. abraço
  4. <% Select Case Request.QueryString("acao") Case "login" Dim caminho Dim conexao login = request.form("login") senha = request.form("senha") caminho = Server.MapPath("banco356.mdb") Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";" Set banco = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM passaporte WHERE login='"&login&"' AND senha='"&senha&"' " banco.open strBuscaProdutos, conexao, 3, 3 If banco.eof then Session("msg")="Acesso Negado" Response.Redirect ("index.asp") Else usuario = banco("usuario") senha = banco("senha") nome = banco("nome") Session("usuario")=usuario Session("senha")=senha Session("nome")=nome Response.Redirect("index.asp") End If banco.close Case "logout" session.abandon("login")="" session.abandon("senha")="" response.redirect ("index.asp") Case Else Response.Write("O que você está fazendo aqui?") End select %> :blink:
  5. Gostaria de saber como posso dar um refresh em outra página... sendo que, também, gostaria de saber como identifica-la. ou colocar tipo um id.. para q seja ela a atualizada...
  6. Desculpe ta quebrando a cabeça de vocês com a minha cabeça quando n tem mensagem a ser listada... minha paginação da uma mensagem e tal.. até ai tudo bem.. porem ele n carrega o resto da pagina.. pára por ai.. quem poder me ajudar... viria de bom agrado heheh Vlwww Bruno. <% 'Abrimos a Conex&atilde;o com o Banco Dim caminho2 Dim conexao2 if id = "" then id = "4" end if caminho2 = Server.MapPath("banco356.mdb") Set conexao2 = Server.CreateObject("ADODB.Connection") conexao2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho2&";" 'Selecionamos todos os Produtos da Tabela Set banco = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM comentarios WHERE conteudo LIKE '%"& id &"%' ORDER BY id DESC" banco.open strBuscaProdutos, conexao2, 3, 3 'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset banco.PageSize = 5 'Criamos as Valida&ccedil;&otilde;es if banco.eof then %> </p> <p align="center"><span class="Mais">Nenhum coment&aacute;rio foi postado para essa foto. Seja o primeiro.</span> <% Response.End banco.close Set banco = Nothing else 'Definimos em qual pagina o visitante est&aacute; if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>banco.PageCount then intpagina = banco.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if %> </p> <p align="left"> <% 'Iniciamos o Loop banco.AbsolutePage = intpagina intrec = 0 While intrec<banco.PageSize and not banco.eof %> </p> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><span class="publicou_comentario"><%=banco("postado")%></span>: <%=banco("comentario")%> <br> &agrave;s <%=banco("hora")%> / <%=banco("data")%></td> </tr> <tr> <td height="4"><img src="i/space.gif" width="1" height="4"></td> </tr> <tr> <td height="1" bgcolor="#E1E1E1"></td> </tr> </table> <p align="right"> <% banco.MoveNext intrec = intrec + 1 if banco.eof then response.write " " end if Wend %> <% banco.close Set banco = Nothing %>
  7. é só colcoar assim: <a href="FOTO.jpg" target="blank">Foto</a> que quando clica.. ele vai abrir a foto sem HTML nem nada.. somente o arquivo.
  8. Bruno G.

    Filtros No Select

    Galera, alguém pode me ajudar aê... Eu coloquei um filtro nesse select.. eu queria colocar um a mais.. tem como? queria que ele filtrasse a coluna "tipo" somente para o nome "foto" restringindo a listagem. Set usuario = Request.QueryString("listar") Set banco = Server.CreateObject("ADODB.Recordset") strBuscaProdutos = "SELECT * FROM conteudo WHERE usuario LIKE '%"& usuario &"%' ORDER BY id DESC" banco.open strBuscaProdutos, conexao, 3, 3 Obrigado Att. Bruno.
  9. Olá, tou querendo carregar um video do youtube a partir do caminho vindo de uma QueryString.. Mas não tá abrindo =/ Queria saber se há algum erro.. ou existe alguma proteção.. ou outra maneira de carrega-lo o codigo foi pego do proprio endereço que o youtube dá pra incorporar no site.. alterando, porém, o endereço da pagina do video pelo Request.Querystring <object width="425" height="355"><param name="movie" value="<% = Request.QueryString("src") %>"></param><param name="wmode" value="transparent"></param><embed src="<% = Request.QueryString("src") %>" type="application/x-shockwave-flash" wmode="transparent" width="425" height="355"></embed></object> Grato Bruno. :blink:
×
×
  • Criar Novo...