jow

Como o Jonathan Queiroz faltou set conexao = Server.CreateObject("ADODB.Connection") sua conexão ficará ... set conexao = Server.CreateObject("ADODB.Connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb"

uahahuhuhuhuhua pode crê, mas é bem legal kkkkkk Como assim, a minha piada foi muito supimpa ahauahauhu

A conexão tem q estar antes ... testa aí ... conexao = Server.CreateObject("ADODB.Connection") conexao.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=Y:\Relacionamento2008\Biblioteca\solicitacoes\bd\solicitacoes.mdb" vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')" Set rs = conexao.execute(sql) If request.querystring("form1") = 1 then Set mail = CreateObject("CDOSYS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = request.form("emailcoord") ' e-mail de quem vai receber a mensagem mail.CC = "biblioteca@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "BIBLIOTECA - SOLICITAÇÃO DE MATERIAIS - " & request.form("solicitante") mail.Body = "Solicitante: " & request.form("solicitante") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Título: " & request.form("titulo") & vbCrLf & "Autor: " & request.form("autor") & vbCrLf & "Quant. Solicitadaos: " & request.form("nsolicitados") mail.Send Set mail = Nothing else end if %>

Che Guevara se refugiou para o sul do brasil, na casa de um amigo onde ficou muito tempo. Porém Che Guevara sentia a necessidade de sair na rua, porém era muito perigoso para o mesmo, o seu amigo conseguiu arrumar um disfarce para ele onde ele não seria reconhecido. Assim ele poderia andar na cidade tranquilamente, andando na cidade as pessoas o comprimentavarm da seguinte maneira, bom dia tchê, boa tarde tchê, boa noite tchê. Che axo q as pessoas estão me reconhecendo dizia Che Guevara assustado. Mas logo era acalmado por seu amigo que dizia, calma isso é a forma de as pessoas da região se cumprimentarem, nossa muito parecido com meu primeiro nome, q susto dizia ele. Em um desses passeios pela cidade Che Guevara avistou um prostibulo e logo queria entrar lá, pois seu amigo não concordou com isso, mas a noite Che Guevara sentiu a necessidade de uma mulher para o seu prazer. Contrariando ele foi ao prostibulo. Chegando lá avistou uma linda mulher com quem foi pra cama com ele, lá Che Guevara se sentiu á vontade tirou toda a sua roupa, foi quando a mulher falou "TCHÊ QUE VARA", com essa frase ele saiu correndo achando q foi descoberto ...

Dois velinhos foram a um prostibulo. Chegando lá pedem duas garotas para eles se divertirem naquela noite. A dona do local pensa, não vou deixar duas de minhas meninas com esses velhos gagás q mal enxergam, vou dar duas bonecas infláveis para eles. A dona diz, Ok duas de minhas lindas meninas já sobem com vocês para o quarto. Os dois ficam muito anciosos. Já no quarto e com as bonecas os dois se divertem, cada um no seu quarto. Saindo do prostibulo e já caminhando na rua um diz para o outro nossa a minha garota parecia q estava morta, não disse nada e nem se mexeu a noite inteira. O outro diz nossa pior foi eu a minha eu acho q era uma bruxa eu dei uma mordidinha nela e ela saiu voando.

você deve usar o like, você consegue resolver o dois primeiros selects ... SELECT * FROM nome_tbl WHERE campo LIKE "%RENAN%" // o like pega um pedaço da palavra e mostra pra você o resultado. No caso do último select, você também pode usar o like ... mas para buscar por nome composto, se no seu banco tiver RENAN MIGUEL é só usar .. SELECT * FROM nome_tbl WHERE campo = "RENAN MIGUEL"

Então Rafael aki não há erro tá tranquilo .... O erro q eu me referi era exatamente na instrução sql ele tava passando os values com os nomes errado ... olha só vemailcord, vautore. O corrteo seria vemailcoord, vautor. Tava assim a sql dele .. sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"')"

Com base nas duas informações, ficaria assim ::: vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") sql = "INSERT INTO tabela (solicitante, email, emailcord, titulo, autor, nsolicitados) values ('"&vsolicitante&"', '"&vemail&"', '"&vemailcoord&"', '"&vtitulo&"', '"&vautor&"', '"&vnsolicitados&"')"

Veja como você está recebendo do formulário ::: vsolicitante= request.form("solicitante") vemail= request.form("email") vemailcoord= request.form("emailcoord") vtitulo= request.form("titulo") vautor= request.form("autor") vnsolicitados= request.form("nsolicitados") agora veja os values do seu insert :: ('"&vsolicitante&"', '"&vemail&"', '"&vemailcord&"', '"&vtitulo&"', '"&vautore&"', '"&vnsolicitados&"') está correto ???

testa ai ... <% vnome= request.form("nome") vemail= request.form("email") sql=INSERT INTO tabela (nome, email) values ('"&vnome&"', '"&vemail&"') Set rs = conexao.execute(sql) If request.querystring("op") = 1 then Set mail = CreateObject("CDONTS.NewMail") mail.From = request.form("email") ' e-mail de quem esta enviando a mensagem mail.To = "biblioteca@cesat.br" ' e-mail de quem vai receber a mensagem mail.CC = "ogoulart@cesat.br" ' Com Cópia 'mail.BodyFormat = 1 ' parametro de formatação 'mail.MailFormat = cdoMailFormatText ' parametro de formatação 'mail.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail mail.Subject = "CONTATOS[SITE] - " & request.form("assunto") mail.Body = "Nome: " & request.form("nome") & vbCrLf & "E-mail: " & request.form("email") & vbCrLf & "Assunto: " & request.form("assunto") & vbCrLf & "Mensagem: " & request.form("mens") mail.Send Set mail = Nothing else end if %>

Galera vou postar um frame aki com ajax, testado e 100% funcionando, com mysql .... config/conexao.asp <% dim cnn sub abre_conectar set cnn=server.CreateObject("adodb.connection") 'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados cnn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=Seu enreço de servidor;PORT=3306;DATABASE=sSua base de dados;USER=Seuusuario;PASSWORD=Suasenha;OPTION=3;") end sub sub fecha_conectar cnn.close Set cnn = nothing end sub %> default.asp <% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Ajax Rotating Includes Script</title> <script type="text/javascript"> /*********************************************** * Dynamic Ajax Content- © Dynamic Drive DHTML code library (www.dynamicdrive.com) * This notice MUST stay intact for legal use * Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code ***********************************************/ var loadedobjects="" var rootdomain="http://"+window.location.hostname function ajaxpage(url, containerid){ var page_request = false if (window.XMLHttpRequest) // if Mozilla, Safari etc page_request = new XMLHttpRequest() else if (window.ActiveXObject){ // if IE try { page_request = new ActiveXObject("Msxml2.XMLHTTP") } catch (e){ try{ page_request = new ActiveXObject("Microsoft.XMLHTTP") } catch (e){} } } else return false page_request.onreadystatechange=function(){ loadpage(page_request, containerid) } page_request.open('GET', url, true) page_request.send(null) } function loadpage(page_request, containerid){ if (page_request.readyState == 4 && (page_request.status==200 || window.location.href.indexOf("http")==-1)) document.getElementById(containerid).innerHTML=page_request.responseText } function loadobjs(){ if (!document.getElementById) return for (i=0; i<arguments.length; i++){ var file=arguments[i] var fileref="" if (loadedobjects.indexOf(file)==-1){ //Check to see if this object has not already been added to page before proceeding if (file.indexOf(".js")!=-1){ //If object is a js file fileref=document.createElement('script') fileref.setAttribute("type","text/javascript"); fileref.setAttribute("src", file); } else if (file.indexOf(".css")!=-1){ //If object is a css file fileref=document.createElement("link") fileref.setAttribute("rel", "stylesheet"); fileref.setAttribute("type", "text/css"); fileref.setAttribute("href", file); } } if (fileref!=""){ document.getElementsByTagName("head").item(0).appendChild(fileref) loadedobjects+=file+" " //Remember this object as being already added to page } } } </script> <style type="text/css"> #leftcolumn{ float:left; width:150px; height: 400px; border: 3px solid black; padding: 5px; padding-left: 8px; } #leftcolumn a{ padding: 3px 1px; display: block; width: 100%; text-decoration: none; font-weight: bold; border-bottom: 1px solid gray; } #leftcolumn a:hover{ background-color: #FFFF80; } #rightcolumn{ float:left; width:550px; min-height: 400px; border: 3px solid black; margin-left: 10px; padding: 5px; padding-bottom: 8px; } * html #rightcolumn{ /*IE only style*/ height: 400px; } </style> </head> <body> <!--#include file="config/conexao.asp"--> <% call abre_conectar sql = "SELECT * FROM categorias " set rs = cnn.execute(sql) %> <div id="leftcolumn"> <% while not rs.eof%> <a href="java script:ajaxpage('pagina.asp?acao=<%=rs("id")%>', 'rightcolumn');"><%=rs("classificacao")%></a> <%rs.movenext wend%></div> <div id="rightcolumn"><h3>I Frame com Ajax Jow Xavier</h3></div> <div style="clear: left; margin-bottom: 1em"></div> <% call fecha_conectar set tab = nothing %> </body> </html> pagina.asp <% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> <!--#include file="config/conexao.asp"--> <% vacao = request.QueryString("acao") call abre_conectar sql = "SELECT * FROM produtos WHERE id_categoria = '"&vacao&"' " set rs = cnn.execute(sql) %> <img src="../novo/lojista/admin/<%=rs("foto")%>"> Link para visualizar on line ::: http://www.visaopedestais.com.br/nova%20pasta abraçosssss e espero q gostem ....

OK ... só faltou mostrar como você está recebendo .... mais ou menos assim $var=$_GET['id']; /* caso o seu formulário seja method GET */ echo $var;

Cara você está selecionando a tabela q contém o idUsuario ??? posta ai só essa parte do seu form e a parte como recebe ...

passa assim <input type="hidden" name="id" value="<? echo $reg['idUsuario'];?>"> recebe assim ... $var=$_POST['id'] /* caso o seu formulário seja method POST */ $var=$_GET['id'] /* caso o seu formulário seja method GET */

Cara explica melhor aí sinceramente não entendi ainda kkk ...

um exemplo bem tosco formulário.asp <form action="inserir.asp" method="post"> <table> <tr> <td>Nome</td> <td><input type="nome"></td> </tr> <tr> <td><input type="submit" value="Salvar"></td> </tr> </table> </form> inserir.asp <% 'Incluir uma conexão aki vnome = request.form("nome") sql = "INSERT INTO table (CampoNome, CampoData) values ('"&vnome&"', '"&date()&"')" Set rs = conexao.execute(sql) %>

Eae bareta bem legal cara curti mesmo .... Se permite só uma alfinetada uahuhauhuahu Qd o usuário se desloga "efetua um logout", lá no botão sair se eu digito o endereço na url ele volta pra página principal porém não permite a navegação, bem legal, você verifica se o usuário es~´a logado caso ele não esteja, não é permitida a navegação, mas a página ainda fica no cache ... Bem q você poderia inserir isso no topo das páginas ::: <% Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 %> só pra limpar o cache ... mas tá bem legal sim abraçosss

Realmente eu mudei a forma da páginação, mas pra isso foi bem complicado, mas consegui resolver ... Pode deixar q assim q eu tiver um tempinho eu vou postar sim a resolução, o q é bem interessante pois procurei muito uma paginação dessas e não encontrei ... e vou disponibilixar pra galera logo mais ... assim q eu tiver um tempinho aki !!! Se permite fugir um pouco do assunto ::: um opinião modesta o fórum aki melhorou bastante em galera, fazia um tempo q eu não postava aki, mas agora estou vendo q a galera tá ajundo uns aos outros mais do q antes, axo q tá rolando uma grana hein hauahuahuahahuau brincadeira ... vocês estão de parabéns ... abraçossss OBS: Pode fechar este tópico ai ...

Consegui resolver .... não foi tão simples assim não olha ai como ficou http://www.visaopedestais.com.br/novo/lojista/teste.asp

O q você tem q fazer é isso mesmo ?? \\EXERCÍCIO \\Desenvolva um programa em html e javascripts que receba o nome com dia, \\mês e ano de nascimento, e calcule sua idade. Se a idade for menor que 18, \\exibir a mensagem "menor", senão, exibir a mensagem "maior idade". Se menor \\idade fazer um link para uma página infantil, se maior de idade, fazer um link \\para qualquer outro site. se for isso não pode usar linguagem de programação !!!

Eu já procurei lé e nenhum faz exatamente o q eu preciso, a minha paginação está funcionando veja http://www.visaopedestais.com.br/novo/lojista/pagina.asp eu preciso q exiba assim :: eu preciso exibir assim :: produto1 produto2 produto3 produto1 produto2 produto3 ... [1][2]

Bom dia galera eu tenho uma paginação q está mq exibindo assim :: produto1 produto2 produto3 [1][2][3] eu preciso exibir assim :: produto1 produto2 produto3 produto1 produto2 produto3 ... [1][2] ou seja além de eu poder editar o número de colunas gostaria também de editar o número de linhas, a serem exibidas na mesma página ... minha paginação :: <body background="img/fundo.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" scroll="no"> <table width="100%" height="100%" cellpadding="6" cellspacing="0"> <tr> <td height="135" valign="top" background="img/fundo_int.jpg" bgcolor="#f2f2f2"> <table width="100%" height="100%" cellpadding="0" cellspacing="4" background="img/fundo_int.jpg" bgcolor="#f2f2f2"> <tr> <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="4"> <tr> <!--#include file="admin/config/conexao.asp" --> <% id1=request.QueryString("detalhe") call abre_conectar cnn.CursorLocation = 3 Set tab = Server.CreateObject("Adodb.RecordSet") tab.Pagesize = 3 tab.Open "Select * From produtos WHERE id_categoria = '" & id1 & "' ",cnn 'sql = "SELECT * FROM produtos WHERE id_categoria = '" & id1 & "'" 'set tab = cnn.execute(sql)%> <td><div align="left" class="titulo1"><%=tab("id_categoria")%></div></td> </tr> <tr> <td colspan="3" class="texto1"></td> </tr> <tr> <% If tab.Eof Then Response.Write("") Else PaginaAtual = Request.Querystring("Pages") If PaginaAtual = "" Then PaginaAtual = 1 Else PaginaAtual = CINT(PaginaAtual) End If tab.AbsolutePage = PaginaAtual Mostrou = 0 While Not tab.Eof And Mostrou < tab.Pagesize Mostrou = Mostrou + 1 %> <td height="22" class="classFonte01"><div align="center"><a href="admin/<%=tab("foto")%>" title="<%=tab("cod_produto")%>" rel="lightbox"><img src="admin/<%=tab("foto")%>" width="100" height="80" border="0" alt="" /></a></div></td> <td width="635" height="30"><div align="left"><span class="titulo2"><%=tab("cod_produto")%></span></div></td> <% tab.MoveNext : Wend Anterior = PaginaAtual - 1 Proximo = PaginaAtual + 1 If Anterior <= 0 Then Anterior = 1 End If If Proximo > tab.PageCount Then Proximo = tab.PageCount End If %> <table> <tr> <td height="30" colspan="2" align="right"><strong></strong>&nbsp;<br><br><br> <% Jo = 1 While Jo <= tab.PageCount If PaginaAtual = Jo Then Response.Write("["&Jo&"]&nbsp;&nbsp;") Else Response.Write ("<a href=""detalhe_catalago.asp?Pages="& Jo &"&Detalhe="& ID1 &""" align=""right"" title=""P&aacute;gina "& Jo &""">"& Jo &"</a>&nbsp; ") End If Jo = Jo + 1 Wend End If%> <%call fecha_conectar set tab = nothing%> </td> </table> </body>

Opá bacana fera ahauhuahau .... abraçosss :rolleyes:

é só você mandar exibir dentro da div .... http://www.dynamicdrive.com/dynamicindex17/tabcontent.htm se você conseguir usar o BD me manda hauahhauahaauhuha

Então também tentei fazer isso com os dados do bd eu não consegui cara .... só consegui criando as páginas q serão carregadas ....