jow

<div id="busca" style="position:absolute; left:248px; top:245px; width:526px; height:315px; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000;"> <!--#include file="../includes/conexao.inc"--> <table width="150" height="150"> <% titulo=request.form("titulo") set rs= server.createobject("ADODB.Recordset") sql="select * from Acervo where titulo like"&"'%"&titulo&"%'" rs.open sql, Controle, 1, 3%> <tr> <td> <table width="100"> <tr> while not rs.eof%> <td><%=rs("titulo")%></td> <% rs.movenext wend%> <td> </td> </tr> <tr> <td rowspan="2"><img src="../produtos/<%=rs("foto")%>" width="133" height="192"></td> <td> </td> </tr> <tr> <td> </td> </tr> <tr> <td> </td> <td> </td> </tr> </table></td> <td> <table width="100"> <tr> <td></td> <td></td> </tr> <tr> <td rowspan="2"></td> <td></td> </tr> <tr> <td></td> </tr> <tr> <td></td> <td></td> </tr> </table></td> </tr> <% rs.close Controle.close%> </table> </div>

Hum você tem q fazer o while dentro da <td></td> hehe assim: while not rs.eof%> <td><%=rs("titulo")%></td> <% rs.movenext wend rs.close Controle.close%>

você quer puxar os nomes dos campos é isso ? se for é assim <%=rs("colunadobanco")%>

entendi estranho isso ... digita apenas http://localhost tem q aparecer a página do iis .... a não ser q você tenha outro servidor também instalado utilizando a mesma porta, tem ??

você já começou a desevolver aguma coisa ... ou você quer um código pronto para você adaptar ... se for tem um monte na net ... qualquer dúvida posta aí ... Abraçõooo

Cara não entendi hehe ....Veja se é isso você terá um pergunta pai e subperguntas filhos q estarão dentro da pergunta pai ... e você que q chame as perguntas filhos correspondente a pergunta pai ???

Opá brother é assim digita no seu browser ... http://localhost/suapagina.asp, ou você se você tiver uma pasta antes da sua página usa http://localhost/suapasta/suapágina.asp ... ou se tiver demais pastas siga a mesma estrutura ... lembrando q você deve salvar os seus arquivos ou pastas dentro de C:\Inetpub\wwwroot ou onde estiver o seu diretório Inetpub ... Abraçosss

Cara você está tentando acessar o seu ASP assim: http://localhost/suapagina.asp, pois parece q não talvez você está tentando acessar clicando em cima da sua página .html ... você deve navegar pelo endereço do servidor IIS .. e o seu formulário deve estar assim: <form name="cadastro" method="post" action="teste.asp" onSubmit="return validaForm()"> ... Abraçosss

Bom primeiro começando a agradecendo o dark0 , pois tava precisando de um UPLOAD de imagem, também agradecendo aos moderadores do forúm imasters o Mário Monteiro, o hargon e o Ted'k que me ajudaram a fazer as adaptações nesse script q ficou muito massa, estou postando o código completo ... Vamos lá !!! Estou utilizando banco de dados MySql, hehehe novidade né ... Criando a base de dados upload e a tabela produtos e categorias CREATE DATABASE upload; CREATE TABLE categorias( id int(10) unsigned not null auto_increment, classificacao varchar(100) not null, primary key (id)); CREATE TABLE produtos( id int(10) unsigned not null auto_increment, id_categoria varchar(100) not null, cod_produto varchar(100) not null, descricao varchar(100) not null, foto varchar(100) not null, primary key (id)); conexao.asp // eu salvei dentro de uma pasta config ... opcional <% dim cnn sub abre_conectar set cnn=server.CreateObject("adodb.connection") cnn.open "upload" end sub sub fecha_conectar cnn.close Set cnn = nothing end sub %> produtos.asp <!-- #include file = "upload_funcoes.asp" --> <!-- #include file="config/conexao.asp"--> <% call abre_conectar sql = "Select * from categorias" set tab = cnn.execute(sql)%> <form name="form1" action="inserir_produto.asp" method="post" enctype="multipart/form-data"> <table align="center"> <tr> <td class="titulo1">Classifica&ccedil;&atilde;o:</td> <td> <% if not tab.EOF then %> <SELECT NAME="id_categoria" class="formulario"> <% while not tab.EOF %> <OPTION value="<%=tab("classificacao")%>"><%=tab("classificacao")%></OPTION> <% tab.movenext wend %> </SELECT> <% end if call fecha_conectar set tab = nothing %> </td> </tr> <tr> <td class="titulo1">Código produto:</td> <td><input name="cod_produto" type="text" class="formulario" size="20"></td> </tr> <tr> <td class="titulo1">Descrição:</td> <td><textarea name="descricao" cols="30" rows="5" class="formulario"></textarea></td> </tr> <tr> <td class="titulo1">Foto:</td> <td><input name="foto" type="file" class="formulario" size="14"> </td> </tr> <tr> <td width="27%"><input type="submit" class="formulario" value="Salvar"></td> <td width="30%"><input type="reset" class="formulario" value="Limpar"></td> <td width="31%"><a href="escolhe_pra_alterar_produtos.asp" class="linkmenuativo">Alterar</a></td> <!--<td width="12%"><a href="form_exclui_clientes.asp" class="link1_inativo">Excluir</a></td> --> </tr> </table> </form> upload_funcoes.asp // página q faz o upload sem componentes, não altere <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function ' Fim upload sem Componentes ----------------------------------------- %> inserir_produto.asp <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- classificacao = UploadRequest.Item("id_categoria").Item("Value") cod_produto = UploadRequest.Item("cod_produto").Item("Value") descricao = UploadRequest.Item("descricao").Item("Value") 'id_categoria = UploadRequest.Item("id_categoria").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "imagens" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados %> <!-- #include file="config/conexao.asp"--> <% call abre_conectar ' cadastra os dados no banco de dados sql = "insert into produtos (id_categoria,cod_produto,descricao,foto) values ('"&classificacao&"', '"&cod_produto&"', '"&descricao&"', '"&cfoto&"')" set tab = cnn.execute(sql) call fecha_conectar set tab = nothing ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.redirect "produtos.asp" %> form_altera_produtos.asp <!-- #include file = "upload_funcoes.asp" --> <!-- #include file="config/conexao.asp"--> <% call abre_conectar 'sql = "Select * from membros" 'set tab = cnn.execute(sql) %> <script type="text/javascript"> /*********************************************** * Image w/ description tooltip- By Dynamic Web Coding (www.dyn-web.com) * Copyright 2002-2007 by Sharon Paine * Visit Dynamic Drive at http://www.dynamicdrive.com/ for full source code ***********************************************/ /* IMPORTANT: Put script after tooltip div or put tooltip div just before </BODY>. */ var dom = (document.getElementById) ? true : false; var ns5 = (!document.all && dom || window.opera) ? true: false; var ie5 = ((navigator.userAgent.indexOf("MSIE")>-1) && dom) ? true : false; var ie4 = (document.all && !dom) ? true : false; var nodyn = (!ns5 && !ie4 && !ie5 && !dom) ? true : false; var origWidth, origHeight; // avoid error of passing event object in older browsers if (nodyn) { event = "nope" } /////////////////////// CUSTOMIZE HERE //////////////////// // settings for tooltip // Do you want tip to move when mouse moves over link? var tipFollowMouse= true; // Be sure to set tipWidth wide enough for widest image var tipWidth= 160; var offX= 20; // how far from mouse to show tip var offY= 12; var tipFontFamily= "Verdana, arial, helvetica, sans-serif"; var tipFontSize= "8pt"; // set default text color and background color for tooltip here // individual tooltips can have their own (set in messages arrays) // but don't have to var tipFontColor= "#000000"; var tipBgColor= "#DDECFF"; var tipBorderColor= "#000080"; var tipBorderWidth= 3; var tipBorderStyle= "ridge"; var tipPadding= 4; // tooltip content goes here (image, description, optional bgColor, optional textcolor) var messages = new Array(); // multi-dimensional arrays containing: // image and text for tooltip // optional: bgColor and color to be sent to tooltip <% id1 = Request.QueryString("alterar") sql = "SELECT * FROM produtos WHERE id = "&id1 set tab = cnn.execute(sql) %> messages[0] = new Array('<%=tab("foto")%>','Imagem Cadastrada',"#FFFFFF"); //////////////////// END OF CUSTOMIZATION AREA /////////////////// // preload images that are to appear in tooltip // from arrays above if (document.images) { var theImgs = new Array(); for (var i=0; i<messages.length; i++) { theImgs[i] = new Image(); theImgs[i].src = messages[i][0]; } } // to layout image and text, 2-row table, image centered in top cell // these go in var tip in doTooltip function // startStr goes before image, midStr goes between image and text var startStr = '<table width="' + tipWidth + '"><tr><td align="center" width="100%"><img src="'; var midStr = '" border="0"></td></tr><tr><td valign="top">'; var endStr = '</td></tr></table>'; //////////////////////////////////////////////////////////// // initTip - initialization for tooltip. // Global variables for tooltip. // Set styles // Set up mousemove capture if tipFollowMouse set true. //////////////////////////////////////////////////////////// var tooltip, tipcss; function initTip() { if (nodyn) return; tooltip = (ie4)? document.all['tipDiv']: (ie5||ns5)? document.getElementById('tipDiv'): null; tipcss = tooltip.style; if (ie4||ie5||ns5) { // ns4 would lose all this on rewrites tipcss.width = tipWidth+"px"; tipcss.fontFamily = tipFontFamily; tipcss.fontSize = tipFontSize; tipcss.color = tipFontColor; tipcss.backgroundColor = tipBgColor; tipcss.borderColor = tipBorderColor; tipcss.borderWidth = tipBorderWidth+"px"; tipcss.padding = tipPadding+"px"; tipcss.borderStyle = tipBorderStyle; } if (tooltip&&tipFollowMouse) { document.onmousemove = trackMouse; } } window.onload = initTip; ///////////////////////////////////////////////// // doTooltip function // Assembles content for tooltip and writes // it to tipDiv ///////////////////////////////////////////////// var t1,t2; // for setTimeouts var tipOn = false; // check if over tooltip link function doTooltip(evt,num) { if (!tooltip) return; if (t1) clearTimeout(t1); if (t2) clearTimeout(t2); tipOn = true; // set colors if included in messages array if (messages[num][2]) var curBgColor = messages[num][2]; else curBgColor = tipBgColor; if (messages[num][3]) var curFontColor = messages[num][3]; else curFontColor = tipFontColor; if (ie4||ie5||ns5) { var tip = startStr + messages[num][0] + midStr + '<span style="font-family:' + tipFontFamily + '; font-size:' + tipFontSize + '; color:' + curFontColor + ';">' + messages[num][1] + '</span>' + endStr; tipcss.backgroundColor = curBgColor; tooltip.innerHTML = tip; } if (!tipFollowMouse) positionTip(evt); else t1=setTimeout("tipcss.visibility='visible'",100); } var mouseX, mouseY; function trackMouse(evt) { standardbody=(document.compatMode=="CSS1Compat")? document.documentElement : document.body //create reference to common "body" across doctypes mouseX = (ns5)? evt.pageX: window.event.clientX + standardbody.scrollLeft; mouseY = (ns5)? evt.pageY: window.event.clientY + standardbody.scrollTop; if (tipOn) positionTip(evt); } ///////////////////////////////////////////////////////////// // positionTip function // If tipFollowMouse set false, so trackMouse function // not being used, get position of mouseover event. // Calculations use mouseover event position, // offset amounts and tooltip width to position // tooltip within window. ///////////////////////////////////////////////////////////// function positionTip(evt) { if (!tipFollowMouse) { standardbody=(document.compatMode=="CSS1Compat")? document.documentElement : document.body mouseX = (ns5)? evt.pageX: window.event.clientX + standardbody.scrollLeft; mouseY = (ns5)? evt.pageY: window.event.clientY + standardbody.scrollTop; } // tooltip width and height var tpWd = (ie4||ie5)? tooltip.clientWidth: tooltip.offsetWidth; var tpHt = (ie4||ie5)? tooltip.clientHeight: tooltip.offsetHeight; // document area in view (subtract scrollbar width for ns) var winWd = (ns5)? window.innerWidth-20+window.pageXOffset: standardbody.clientWidth+standardbody.scrollLeft; var winHt = (ns5)? window.innerHeight-20+window.pageYOffset: standardbody.clientHeight+standardbody.scrollTop; // check mouse position against tip and window dimensions // and position the tooltip if ((mouseX+offX+tpWd)>winWd) tipcss.left = mouseX-(tpWd+offX)+"px"; else tipcss.left = mouseX+offX+"px"; if ((mouseY+offY+tpHt)>winHt) tipcss.top = winHt-(tpHt+offY)+"px"; else tipcss.top = mouseY+offY+"px"; if (!tipFollowMouse) t1=setTimeout("tipcss.visibility='visible'",100); } function hideTip() { if (!tooltip) return; t2=setTimeout("tipcss.visibility='hidden'",100); tipOn = false; } document.write('<div id="tipDiv" style="position:absolute; visibility:hidden; z-index:100"></div>') </script> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <table width="100%" height="290" border="0"> <tr> <td height="43"></td> </tr> <tr> <td height="43"></td> </tr> <tr> <td height="241"><div align="center"> <% On error resume Next 'Dim objConn, stringSQL, strConnection, id, strDBPath 'Deletando registro da tabela contato onde esta a id if err <> 0 Then%> <div align="left"> <center><span class="titulo1">Ocorreu algum erro!</span> </font> <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div> <table> <tr> <td> <%else%> <form name="form1" action="altera_dados_produtos.asp" method="post" enctype="multipart/form-data"> <table border="0" width="502"> <tr> <td width="109" valign="top" class="titulo1">Classificação</td> <td width="319"><select name="id_categoria" class="formulario"> <option <%Response.Write("selected=""selected""") %>><%=tab("id_categoria")%></option> <%call fecha_conectar set tab = nothing%> <% call abre_conectar sql = "Select * from categorias WHERE id > 1 " set tab = cnn.execute(sql)%> <%while not tab.EOF %> <option><%=tab("classificacao")%></option> <%tab.movenext wend%> </select> <%call fecha_conectar set tab = nothing%> <% call abre_conectar sql = "SELECT * FROM produtos WHERE id = "&id1 set tab = cnn.execute(sql) %> </td> </tr> <tr> <td width="109" valign="top" class="titulo1">Código Produto</td> <td width="319"><input name="cod_produto" type="text" class="formulario" value="<%=tab("cod_produto")%>"></td> </tr> <tr> <td width="109" valign="top" class="titulo1">Descrição</td> <td width="319"><textarea name="descricao" cols="30" rows="5" class="formulario"><%=tab("descricao")%></textarea></td> </tr> <tr> <td width="109" valign="top" class="titulo1">Foto</td> <td width="319"><a onMouseOver="doTooltip(event,0)" onMouseOut="hideTip()"><input name="foto" type="file" class="formulario"></a> <input type="hidden" name="id" value="<%=tab("id")%>"></td> </tr> <tr> <td> <input name="enviar" type="submit" class="formulario" value="Alterar"> </td> </tr> </table> </form> <%end if%> </td> </tr> </table> </td> </tr> </table></td> </tr> </table> </td> </tr> </table> escolhe_pra_alterar_produtos.asp <table width="100%" height="290" border="0"> <tr> <td></td> </tr> <tr> <td height="241"><div align="center"><form action="action_excluir_produtos.asp" method="get"> <table width="361"> <tr> <td width="78" class="titulo1">Classificação</td> <td width="78" class="titulo1">Código Produto</td> <td width="78" class="titulo1">Descrição</td> <td width="63"> <input name="Submit" type="submit" class="formulario" value="Excluir"></td> </tr> <!-- #include file="config/conexao.asp"--> <% call abre_conectar 'Seleciona da tabela contato sql = "SELECT * FROM produtos " set tab = cnn.execute(sql) %> <%While Not tab.EOF %> <tr> <td><a href="form_altera_produtos.asp?alterar=<%=tab("id")%>" class="linkmenuativo"><%=tab("id_categoria")%></a></td> <td><a href="form_altera_produtos.asp?alterar=<%=tab("id")%>" class="linkmenuativo"><%=tab("cod_produto")%></a></td> <td><a href="form_altera_produtos.asp?alterar=<%=tab("id")%>" class="linkmenuativo"><%=tab("descricao")%></a></td> <td> <input name="radio" type="checkbox" value="<%=tab(0)%>"></td> </tr> <% 'Move para o próximo registro tab.MoveNext Wend 'Fechando as conexões call fecha_conectar set tab = nothing %> </table> </form></div></td> </tr> </table> altera_dados_produtos.asp <!--#include file="config/conexao.asp"--> <% call abre_conectar ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- id_categoria = UploadRequest.Item("id_categoria").Item("Value") cod_produto = UploadRequest.Item("cod_produto").Item("Value") descricao = UploadRequest.Item("descricao").Item("Value") id = UploadRequest.Item("id").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "imagens" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close sql = "UPDATE produtos SET id_categoria = '"&id_categoria&"', cod_produto='"&cod_produto&"', descricao='"&descricao&"', foto = '"&cfoto&"' WHERE id ="&id On error Resume Next set tab = cnn.execute(sql) else sql = "UPDATE produtos SET id_categoria = '"&id_categoria&"', cod_produto='"&cod_produto&"', descricao='"&descricao&"' WHERE id ="&id On error Resume Next set tab = cnn.execute(sql) end if 'Fecha o Objeto de Conexão call fecha_conectar set tab = nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "menu.asp" end if %> action_excluir_produtos.asp <!-- #include file="config/conexao.asp"--> <% call abre_conectar 'Option Explicit Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id,strDBPath id = Request.QueryString("radio") 'Caso ocorra algum erro os precessos não são interrompidos 'e é passado para a próxima linha de comando On error Resume Next %><style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="43"></td> </tr> <tr> <tr> <td height="43"></td> </tr> <tr> <td valign="top"> <div align="left"> <% if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "produtos.id = " & Trim(array_id(i)) & " OR " 'campo texto, então" & Trim(array_id(i)) & " OR " 'caso numerico '" & Trim(array_id(i)) & "' OR " Next sql_id = left(sql_id,(len(sql_id)-4)) sql = "DELETE FROM produtos WHERE "&sql_id&"" set tab = cnn.execute(sql) call fecha_conectar set tab = nothing %> <table align="center"> <tr bgcolor=""> <td>Seus dados foram exclu&iacute;dos com sucesso!</td> </tr> </table> <%else%> <br> <center>Ocorreu algum erro!<br> <br> Nenhum dado foi excluido!</span><br><br> <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div> <%End if%> </td> </tr> </table> </td> </tr> </table></td> </tr> </table> Bom galera é isso ai ... espero q gostem hehehe ... Dúvidas ou elogios postem ai ... Abraçosssssss

Bom dia galera; Preciso cria um um bbCode em um textara, algém poderia me ajudar ... preciso criar um bbCode no código abaixo ... <textarea name="dica" cols="30" rows="5" class="formulario"></textarea>

É isso ai ...

Cara vai em iniciar->oainel de controle->ferramentas administrativas->Fontes de dados (ODBC)->fonte de dados do sistema->adcionar ... desca a barra de rlagem até SQL SERVER e CONCLUIR ai é só criar a conexão e selecionar a sua base de dados ... então você testa a sua conexão se estiver OK vai aparecer a mensagem ... abraçosss

Sim o erro aponta ai, pois é onde você abre a sua conexão ... quero saber se você criou uma conexão no painel de controle ->fonte de dados do sistema, pois o ASP não está encontrando a sua fonte de dados ...

Ok o ASP não está encontrando um driver para a sua conexão ... você está usando a sua conexão atrávés de includes conexão via DSN ?

Bom dia galera, Estava procurando um script de carrinho de compras na net, achei alguns, uns complicados, outros nem tanto porém não eram funcionais ... achei melhor eu desenvolver um do meu jeito e ir melhorando com a ajuda de vocês ... Por isso tentei criar o mais simples possivel ... Espero a ajuda de vocês, para criarmos um script q todos possam usar ... Bom vamos lá ... Primeiro criei um banco de dados simples em MySql, com a seguinte estrutura: [b]Criando a Base de Dados carrinho_compras[/b] CREATE DATABASE carrinho_compras; [b]Usando esta base de dados[/b] use carrinho_compras; [b]Criando a minha tabela[/b] CREATE TABLE carrinho( id int(10) unsigned not null auto_increment, produto varchar(100) not null, preço varchar(11) not null, quantidade varchar(11) not null, primary key (id)); [b]obs:[/b] Agora no painel de controle escolho a minha fonte de dados do sistema OK, criei a minha Base de dados do sistema conexao.asp <% dim cnn sub abre_conectar set cnn=server.CreateObject("adodb.connection") cnn.open "carrinho_compras" end sub sub fecha_conectar cnn.close Set cnn = nothing end sub %> [b]obs:[/b] Criada dentro de uma pasta config, para organizar melhor a estrutura do projeto, mas é opcional default.asp <html> <head></head> <title>Carrinho de Compras</title> <body> <form action="inserir_carrinho.asp" method="post"> <table width="100%"> <tr> <td>Produto</td> <td>Preço</td> <td>Quantidade</td> </tr> <tr> <td><input type="text" name="produto"></td> <td><input type="text" name="preço"></td> <td><input type="text" name="quantidade" size="5"></td> </tr> </table> <table width="100%"> <tr> <td><input type="submit" value="Adicionar ao Carrinho"></td> </tr> </table> </form> inserir_carrinho.asp <!--#include file="config/conexao.asp"--> <% call abre_conectar produto=request.Form("produto") preço=request.Form("preço") quantidade=request.Form("quantidade") sql = "insert into carrinho (produto, preço, quantidade)" sql = sql & " values ('"&produto& "', '"&preço&"', '"&quantidade&"')" set tab = cnn.execute(sql) call fecha_conectar set tab = nothing response.Redirect("default.asp")%> form_alterar.asp <!-- #include file="config/conexao.asp"--> <% call abre_conectar id1 = Request.QueryString("alterar") sql = "Select * from carrinho WHERE id = "&id1 set tab = cnn.execute(sql) %> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <% On error resume Next 'Dim objConn, stringSQL, strConnection, id, strDBPath 'Deletando registro da tabela contato onde esta a id if err <> 0 Then%> <div align="left"> <center><span class="titulo1">Ocorreu algum erro!</span> </font> <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div> <%else%> <form action="altera_dados.asp" method="post"> <table width="100%"> <tr> <td>Produto</td> <td>Preço</td> <td>Quantidade</td> </tr> <tr> <td><input type="text" name="produto" value="<%=tab("produto")%>"></td> <td><input type="text" name="preço" value="<%=tab("preço")%>"></td> <td><input type="text" name="quantidade" size="5" value="<%=tab("quantidade")%>"> <input type="hidden" name="id" value="<%=tab("id")%>"></td> </tr> <td> <input name="enviar" type="submit" class="formulario" value="Alterar"> </td> </tr> </table> </form> <%end if call fecha_conectar set tab = nothing%> altera_dados.asp <!--#include file="config/conexao.asp"--> <% call abre_conectar produto=request.Form("produto") preço=request.Form("preço") quantidade=request.Form("quantidade") id=request.Form("id") sql = "UPDATE carrinho SET produto = '"&produto&"', preço = '"&preço&"', quantidade = '"&quantidade&"' WHERE id ="&id 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executaa inserção no Banco de Dados set tab = cnn.execute(sql) 'Fecha o Objeto de Conexão call fecha_conectar set tab = nothing if err = 0 Then 'Redireciona o usuário caso não tenha ocorrido erro na transação response.redirect "default.asp" end if %> action_excluir.asp <!-- #include file="config/conexao.asp"--> <% call abre_conectar 'Option Explicit Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id,strDBPath id = Request.QueryString("radio") 'Caso ocorra algum erro os precessos não são interrompidos 'e é passado para a próxima linha de comando On error Resume Next %><style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style> <% if err = 0 and id <> "" then array_id = split(id,",") For i=0 to ubound(array_id) sql_id = sql_id & "carrinho.id = " & Trim(array_id(i)) & " OR " 'campo texto, então" & Trim(array_id(i)) & " OR " 'caso numerico '" & Trim(array_id(i)) & "' OR " Next sql_id = left(sql_id,(len(sql_id)-4)) sql = "DELETE FROM carrinho WHERE "&sql_id&"" set tab = cnn.execute(sql) call fecha_conectar set tab = nothing %> <table align="center"> <tr bgcolor=""> <td><%response.Redirect("default.asp")%></td> </tr> </table> <%else%> <br> <center>Ocorreu algum erro!<br> <br> Nenhum dado foi excluido!</span><br><br> <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div> <%End if%> </td> </tr> </table> </td> </tr> </table></td> </tr> </table> Bom isso é o primeiro passo, agora vamos melhorar este código ... Abraços

você está tentando usar qual banco de dados ??? E posta a sua conexão ai !!!

Bom dia, eu estava querendo fazer com q as noticias ficassem uma do lado da outra, depois de muito tentar resolver isso, não consegui nada, pois não sei quase nada de JS, mas vi q tem um CSS no código q influência no funcionamento, mas também não sei nada de CSS hehehe. Mas eu tinha q fazer de qualquer maneira q as noticias exibissem lado a lado, começei a mexer no código e piorar ele kkkkkkkk, mas de tanto mexer consegui resolver UPI, UPI kkkkkkk ... Só alterei o trecho do CSS #marquee{ width:400px; background:#ddd; } para #marquee{ width:2000; }, ou seja almentei o tamanho da minha DIV marquee, e veja q não usei background:#ddd;, pois para a minha necessidade não foi necessário ... Abraçossss

Opá é claro q eu vou acrescentar lá sim, é q eu estva fazendo um script de carrinho de compras em ASP para também postar heheh ... Valeuuu abraçãooo

Ok lá consegui resolver ... Valeuuuu

Cara axo q não entendi bem a sua dúvida seja um pouco mais especifico, o q você está kerendo fazer ???

Opá vou tentar te ajudar .... tenta inserir isto antes do seu path ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") e manda gravar a foto !!! UploadRequest é o nome do meu objeto de upload depois do seu path você insere ' pasta + nome dos arquivos cfoto = "imagens" + nome_foto ... agora qd você for gravar o seu path o seu valor é cfoto ... EX: sql = "insert into tabela (foto) values ('"&cfoto&"')" imagens é o nome da pasta q eu criei, no caso você coloca o nome da pasta q você está usando no path ...

Tenta esse formulário: <html> <head> <title>Documento sem título</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../css/style_form.css" rel="stylesheet" type="text/css"> <script language="javascript"> function valida_campo() { <!-- var resposta1 = document.form.resposta1.value if (resposta1==""){ alert("Informe uma Resposta!"); document.form.resposta1.focus() return false } var resposta2 = document.form.resposta2.value if (resposta2==""){ alert("Informe uma Resposta!"); document.form.resposta3.focus() return false } } </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form action='resultado.php' method='post' name='form' id='form' onSubmit="return valida_campo()">teste 4<br><input name='pergunta1' type='hidden' id='pergunta' value='13'><input type='radio' name='resposta1' value='19'> resposta 1<br><br>teste 1<br><input name='pergunta2' type='hidden' id='pergunta' value='10'><input type='radio' name='resposta2' value='23'> resposta 1<br><input type='radio' name='resposta2' value='24'> resposta 2<br><input type='radio' name='resposta2' value='25'> resposta 3<br><br>teste 6<br><input name='pergunta3' type='hidden' id='pergunta' value='15'><input type='radio' name='resposta3' value='17'> resposta 1<br><br>teste 5<br><input name='pergunta4' type='hidden' id='pergunta' value='14'><input type='radio' name='resposta4' value='18'> resposta 1<br><br>teste 9<br><input name='pergunta5' type='hidden' id='pergunta' value='18'><input type='radio' name='resposta5' value='28'> gg<br><input type='radio' name='resposta5' value='29'> gggjjj<br><br>teste 10<br><input name='pergunta6' type='hidden' id='pergunta' value='19'><input type='radio' name='resposta6' value='30'> ff~lkok<br><input type='radio' name='resposta6' value='31'> teste<br><input type='radio' name='resposta6' value='32'> teste2<br><br>teste 2<br><input name='pergunta7' type='hidden' id='pergunta' value='11'><input type='radio' name='resposta7' value='22'> resposta 1<br><br>teste 8<br><input name='pergunta8' type='hidden' id='pergunta' value='17'><input type='radio' name='resposta8' value='26'> dddd<br><input type='radio' name='resposta8' value='27'> aaa<br><br>teste 7<br><input name='pergunta9' type='hidden' id='pergunta' value='16'><input type='radio' name='resposta9' value='15'> resposta 2<br><input type='radio' name='resposta9' value='16'> resposta 1<br><br>teste 3<br><input name='pergunta10' type='hidden' id='pergunta' value='12'><input type='radio' name='resposta10' value='20'> resposta 1<br><input type='radio' name='resposta10' value='21'> resposta 2<br><br><input name='enviar' type='submit' id='enviar' value='Enviar' onClick='valida();'></form></body> </html> obs: Só você colocar mais campos, eu só usei dois de exemplo !!!

OK mandai a minha dúvida pra ele lá na área de códigos prontos ... Será q alguém consegue me ajudar de alguma forma, só preciso fazer exibir em uma linha ... preciso disso com urgência ... pois no site q estou desenvolvendo só aparece a metade do palavra, no caso o titulo .. acesse ae e veja as noticias q passam abaixo www.cinalp.com.br/novo

Opá cara muito bom bom o seu código parabéns eu estou utlizando ele em site q estou desenvolvendo, mas como eu faço para usar o marquee em uma linha ... As noticias uma do lado da outra ???

o código é este: <html> <head> <title>Noticias - News</title> <meta http-equiv="content-type" content="text/html; charset=iso-8859-1"> <style rel="stylesheet" type="text/css"> /*<![CDATA[*/ a:link {text-decoration: none;} a:visited {text-decoration: none; color:#663300;} a:hover {text-decoration: none;color: #e2e2e2} a:active {text-decoration: none;} #caixa{ background:#e2e2e2; /* cor de fundo */ width:796px; /* tamanho da faixa */ height:30px; overflow:hidden; } #marquee{ width:400px; background; /* cor da primeira noticia */ } /*]]>*/ </style> <script type="text/javascript"> /* INICIO POUPUP */ /* Auto center window script- Eric King (http://redrival.com/eak/index.shtml) Permission granted to Dynamic Drive to feature script in archive For full source, usage terms, and 100's more DHTML scripts, visit http://dynamicdrive.com */ var win = null; function NewWindow(mypage,myname,w,h,scroll){ LeftPosition = (screen.width) ? (screen.width-w)/2 : 0; TopPosition = (screen.height) ? (screen.height-h)/2 : 0; settings = 'height='+h+',width='+w+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',resizable' win = window.open(mypage,myname,settings) } /* FIM DO POUPUP */ //<![CDATA[ var Rollar = "sim";/*Não Altere faz parte do EFEITO*/ var tipo = "left";/*Altere para usar as opções LEFT, RIGHT, TOP e DOWN*/ var roll = 0;/*Não Altere faz parte do EFEITO*/ var tmp = 20;/*Defina a velocidade aqui*/ function Duplicar(){ var Marquee = document.getElementById("Marquee"); Cont = Marquee.innerHTML; if (tipo=="left" || tipo=="right"){ IDA = "<div style=\"float:left; position:relative;margin-left:-"+Marquee.clientWidth+";width:"+Marquee.clientWidth+"; height:"+Marquee.clientHeight+";\">"+Cont+"</div>"; IDB = "<div style=\"float:right; position:relative;margin-right:-"+Marquee.clientWidth+";width:"+Marquee.clientWidth+"; height:"+Marquee.clientHeight+";\">"+Cont+"</div>"; IDC = IDA + IDB + Cont; } if(tipo=="top" || tipo=="down"){ IDA = "<div style=\"float:left; position:relative;margin-top:-"+Marquee.clientHeight+";width:"+Marquee.clientWidth+"; height:"+Marquee.clientHeight+";\">"+Cont+"</div>"; IDB = "<div style=\"float:left; position:relative;margin-bottom:-"+Marquee.clientHeight+";width:"+Marquee.clientWidth+"; height:"+Marquee.clientHeight+";\">"+Cont+"</div>"; IDC = IDA + Cont + IDB; } Marquee.innerHTML = IDC; } function Fmarquee(){ var Marquee = document.getElementById("Marquee"); var Caixa = document.getElementById("caixa"); if(tipo=="left" || tipo=="right"){ var Altura = Caixa.clientWidth; }else if(tipo=="down" || tipo=="top"){ var Altura = Caixa.clientHeight; } roll++; if(Altura==roll){ roll = (roll*-1); } if(tipo == "top"){ Marquee.style.marginTop = (roll*-1)+"px"; } else if (tipo == "down"){ Marquee.style.marginTop = roll+"px"; } else if (tipo == "left"){ Marquee.style.marginLeft = (roll*-1)+"px"; } else if (tipo == "right"){ Marquee.style.marginLeft = roll+"px"; } if(Rollar == "sim"){ setTimeout("Fmarquee()",tmp); } } function playM(){ Rollar = "sim"; Fmarquee(); } function stopM(){ Rollar = "não"; } window.onload = function(){ Rollar = "sim"; Fmarquee(); Duplicar(); } //]]> </script> </head> <body> <div id="caixa" onMouseOut="playM();" onMouseOver="stopM();"> <div id="Marquee"> <!-- #include file="admin/config/conexao.asp"--> <% call abre_conectar nome=request.Form("nome") titulo=request.Form("titulo") noticia=request.Form("noticia") autor=request.Form("autor") autonum = Request.QueryString("autonum") sql = "Select * from contato " set tab = cnn.execute(sql) %> <table> <tr> <td></td> </tr> <tr> <% for contador=1 to 3 %> <td align="center"><font size="2px"><b><a href="detalhe_noticia.asp?noticia=<%=tab("autonum")%>"onClick= "NewWindow(this.href,'name','200','300','yes');return false"><%=tab("titulo")%>|</a></font></td> <% tab.Movenext next if not tab.eof then end if%> </tr> </table> <% call fecha_conectar set tab = nothing %> </div> </div> </body> </html>