claytonprog

Não sei se tem alguma coisa a ver mais quando eu estou passando o id de um form para o outro é que está dando o erro: aqui está o codigo do form que chama o upload. <table border="0" width="100%" cellspacing="1"> <tr> <td> <% 'Faço a conexão com o bd e recupero os dados cnpath="DBQ=" & Server.MapPath("db/desing.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") id = request.querystring("Id") Conn.Open DataSource set rs=conn.execute("SELECT * FROM tblclientes where id =" & id & " ORDER BY nome asc") %> </font> <form action=Upload_form_Editar_cliente.asp method="post" enctype="multipart/form-data"> <table width="100%" border="0"> <tr> <td valign="top" width="40%"> <p align="right"><font size="2"><b>Nome</b></font><b><font size="2" face="Tahoma">:</font></b></td> <td width="58%"> <font size="1" face="Tahoma"> <input id=text4 name=nome style="font-family: Verdana; font-size: 10 pt; WIDTH:405; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("nome")%>"></font></td> </tr> <tr> <td valign="top" width="40%"> <p align="right"><b><font size="2" face="Tahoma">Endereço:</font></b></td> <td width="58%"> <font size="1" face="Tahoma"> <input id=text7 name=endereco style="font-family: Verdana; font-size: 10 pt; WIDTH:405; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("endereco")%>"></font></td> </tr> <tr> <td valign="top" width="40%"> <p align="right"><b><font size="2" face="Tahoma">telefones:</font></b></td> <td width="58%"> <font size="1" face="Tahoma"> <input id=text5 name=telefone style="font-family: Verdana; font-size: 10 pt; WIDTH:405; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("telefone")%>"></font></td> </tr> <tr> <td valign="top" width="40%"> <p align="right"><b><font size="2" face="Tahoma"> Contato:</font></b></td> <td width="58%"><font size="1" face="Tahoma"> <input id=text8 name=contato style="font-family: Verdana; font-size: 10 pt; WIDTH:405; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("contato")%>"></font></td> </tr> <tr> <td valign="top" width="40%"> <p align="right"><b><font size="2" face="Tahoma"> E-mail:</font></b></td> <td width="58%"><font size="1" face="Tahoma"> <input id=text2 name=email style="font-family: Verdana; font-size: 10 pt; WIDTH:405; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("email")%>"></font></td> </tr> <tr> <td valign="top" width="40%"> <p align="right"><b><font size="2" color="#000080">Login</font></b></td> <td width="58%"><font size="1" face="Tahoma"> <input id=text6 name=login style="font-family: Verdana; font-size: 10 pt; WIDTH:404; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("login")%>"></font></td> </tr> <tr> <td valign="top" width="40%"> <p align="right"><b><font size="2" face="Tahoma"> <font color="#000080">Senha</font>:</font></b></td> <td width="58%"><font size="1" face="Tahoma"> <input id=text3 name=senha style="font-family: Verdana; font-size: 10 pt; WIDTH:404; HEIGHT: 20; border-style: solid; border-width: 1" size="10" value="<%=rs("senha")%>"></font></td> </tr> <tr> <td> <p align="right"><b> <font color="#000080" size="2" face="Tahoma">Logomarca:</font></b></td> <td> <img src="../painel/imagens/<%=rs("logomarca")%>" border="0" align="center" hspace="8" vspace="2" width="155" height="131"></td> </tr> <tr> <td> &nbsp;</td> <td> &nbsp;&nbsp; <input type="file" name="foto" size="25"></td> </tr> <tr> <td colspan="2"> &nbsp;</td> </tr> <tr> <td colspan="2"> <div align="center"><font face="Tahoma"> <input type="hidden" name="ID" value="<%=rs("ID")%>"> // aqui eu passo o id <input type="submit" value="Modificar Cliente" id=submit1 name=submit> </font></div> </td> </tr> </table> <div align="center"></div> </form> </td>

Pessoal estou com problema num form de upload. É o seguinte estou tentando fazer uma alteração num cadastro com foto, quando eu seleciono uma nova foto pra fazer a alteração o upload dá erro. aqui está meu codigo: <!-- #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 ---------------------- Dim nome Dim telefone dim endereco dim contato Dim email Dim login dim senha Dim ID dim sql id = UploadRequest.Item("id").Item("Value") // // linha que está dando o erro nome = UploadRequest.Item("nome").Item("Value") endereco = UploadRequest.Item("endereco").Item("Value") telefone = UploadRequest.Item("telefone").Item("Value") contato = UploadRequest.Item("contato").Item("Value") email = UploadRequest.Item("email").Item("Value") login = UploadRequest.Item("login").Item("Value") senha = UploadRequest.Item("senha").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/fotos_logomarca/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "fotos_logomarca" + 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 url_conexao = Server.MapPath("db/desing.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados ComandoSQL="UPDATE tblclientes SET nome = '" & nome & "',endereco = '" & endereco & "', telefone = '" & telefone & "', contato = '" & contato & "', email = '" & email & "', login = '" & login & "', senha = '" & senha & "', logomarca = '" & cfoto & "' WHERE ID ="&ID Conexao.Execute(ComandoSQL) ' Mostra Mensagem de Confirmação na Tela Response.write "<font face=""Verdana"" size=""2""><b>Dados Cadastrados com Sucesso!!</b><br></font>" ' Redireciona após 3 segundos response.write "<font face=""Verdana"" size=""2""><br><br><br>Você será redirecionado em 3 segundos..<br></font>" response.write "<meta http-equiv='refresh' content='3; url=clientes_full.asp'/>" %> aqui está o erro : Microsoft VBScript runtime error '800a01a8' Object required: 'UploadRequest.Item(...)' /painel/Upload_form_Editar_cliente.asp, line 25

Pessoal! estou tentando gravar um comentário em um determnado evento só que não grava nada e não dá erro. Olhem o código abaixo: <form action="cliente_admin.asp?action=incluir" method="post" name="inclui"> <p align="center"> <span style="font-size: 9pt"><font color="#FD680C"> <% If strSearch <> "" Then strSearch = Request.QueryString("search") Banco = "db/desing.mdb" set conn1 = createobject("adodb.connection") Conn1.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(Banco) set rs1 = createobject("adodb.recordset") set rs1.activeconnection = conn1 %> <% '----------------------------------------------------------- regs = 999 'DEFININDO A QUANTIDADE DE RESULTADOS POR PÁGINA pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If Set rs1 = Server.Createobject("ADODB.RECORDSET") set rs1.ActiveConnection = conn1 rs1.CursorType = 3 rs1.PageSize = regs if Request.QueryString("action") = "incluir" then ComandoSQL = "INSERT INTO tblmensagem (id_evento, conteudo, data)" ComandoSQL = ComandoSQL & " VALUES (" ComandoSQL = ComandoSQL & "'" & strSearch & "'," ComandoSQL = ComandoSQL & "'" & request.form ("txtcomentario") & "'," ComandoSQL = ComandoSQL & "'" & request.form ("txtdata") & "')" conn.execute (ComandoSQL) response.redirect("cliente_admin.asp") end if SQL1 = "SELECT * from tblmensagem where id_evento ="&strSearch rs1.Open sql1 total = rs1.recordcount Colunas = 1 '----------------------------------------------------------- %> <br>[ Existem </font></font> <b> <font color="#FF0000" face="Verdana" style="font-size: 9pt"> <%=total%></font></b><font size="2" face="Verdana" style="color: 000000; font-size: 9pt"> Comentários Cadastrados. ]</font><p align="center"> <span style="font-size: 9pt"><font color="#FD680C"> &nbsp;<% if RS1.EOF then %> </font></font></font> <font color=#FD680C face=verdana><b>Nenhum comentário cadastrado</b></font><font face="Tahoma" color="#FD680C"> <% else %> </font> </p> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td><tr><td height=60 width="724"> <div align="center"> <table border="0" width="723" id="table2" cellspacing="0" cellpadding="0" style="border-style: dashed; border-width: 1px" height="54"> <tr> <font face="Verdana" size="2"> </b></td> <td width="555" bgcolor="#EAEBEC" style="border-style: dashed; border-width: 1px" height="29"> <p align="left"> <b> <font face="Verdana" size="2"> &nbsp;</font></b><STRONG><font face="Verdana" size="2"><font color="#000033" face="Tahoma" size="2">::</font></font></STRONG><b><font face="Verdana" size="2">Seus </font><font face="Verdana" style="font-size: 9pt">Comentários</font></b><font face="Verdana" size="2"><STRONG><font color="#000033" face="Tahoma" size="2">:</font><FONT face=Tahoma size=2>:</FONT></STRONG></font></td> <th bgcolor="#EAEBEC" width="164"><STRONG><FONT color=royalblue face=Tahoma size=2><font color="#000033">:: Data:</font></FONT><FONT face=Tahoma size=2>:</FONT></STRONG></th> </tr> <% rs1.AbsolutePage = pagina Cont = 0 do while not RS1.EOF AND x < rs1.PageSize x = x + 1 Cont = cont + 1 id = rs1("id") conteudo = rs1("conteudo") IF cor ="#FFFFFF" THEN cor = "#e8e8e8" ELSE cor ="#FFFFFF" END IF %> <% %> </font> <tr bgcolor="<%=cor%>"> <td align="left" width="557"> <font face="Verdana" style="font-size: 9pt"><%=Rs1("conteudo")%></font> <td align="center" width="164"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= Rs1("data")%></font></td> <span style="text-decoration: none; font-weight:700"> <% %> <% RS1.MoveNext loop Cont = cont + 1 end if %> </tr> </table> </div> </td></tr> <tr><td height=28 width="724"> <div align="center"> <table width="102%" id="table3" height="28" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#EAEBEC"> <b><font face="Verdana" size="2" color="#FFFFFF"> <p align="center"> <% anterior = pagina - 1 proxima = pagina + 1 ultima = rs1.PageCount primeira = 1 ultm2 = FormatNumber(rs1.PageCount - 1,0) If pagina > 1 Then %> </font><font face="Verdana" size="1"> <a style="text-decoration:none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Primeira Página';return true;" href=feras_full.asp?pagina=<%=primeira%>> <span style="text-decoration: none">Inicio da Página</span></a></font><font face="Verdana" size="2"> <% End If If pagina > 1 AND pagina > 2 Then %> [ <a style="text-decoration:none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Página <%=anterior - 1%>';return true;" href=feras_full.asp?pagina=<%=anterior - 1%>> <span style="text-decoration: none"><%=anterior - 1%></span></a> ] <% End If If pagina > 1 Then %> [ <a <a style="text-decoration:none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Página <%=anterior%>';return true;" href=feras_full.asp?pagina=<%=anterior%>> <span style="text-decoration: none"><%=anterior%></span></a> ] <% End If %> [ <%=pagina%> ] <% If Not rs1.EOF Then %> [ <a <a style="text-decoration:none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Página <%=proxima%>';return true;" href=feras_full.asp?pagina=<%=proxima%>> <span style="text-decoration: none"><%=proxima%></span></a> ] <% End If If Not rs1.EOF AND pagina > ultima AND pagina > ultm2 Then %> [ <a <a style="text-decoration:none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Página <%=proxima + 1%>';return true;" href=feras_full.asp?pagina=<%=proxima + 1%>> <span style="text-decoration: none"><%=proxima + 1%></span></a> ] <% End If If Not rs1.EOF Then%> </font><font face="Verdana" size="1"> <a style="text-decoration:none" onMouseOut="window.status='';return true;" onMouseOver="window.status='Última Página';return true;" href=feras_full.asp?pagina=<%=ultima%>> <span style="text-decoration: none">Final da Página</span></a><font color="#FFFFFF"> </font> </font> <font face="Verdana" size="2" color="#FFFFFF"> <% rs1.close conn1.close set rs1 = nothing set conn1 = nothing End If End If %></font></b></td> </tr> </table> </td> </tr> <p>&nbsp;</td> </tr> </table> </div> <p><b>Data:</b><br><input type="text" name="txtdata" size="20"><br> <b>Comentário:</b><br><textarea cols="50" rows="5" name="txtacomentario"></textarea> </p> <p><input type="submit" name="btnenviar" value="Enviar"><br></p> </form>

Galera tem como fazer um menu horizontal semelhante a deste site: http://www.colegioabaco.com.br/site/ usando css?? Se alguém tiver o código posta aqui.

Gostaria de agradecer ao Márcio valeu mesmo mano ta funfando legal. ai está o codigo corrgido pra quem precisar. <% ' Declare our variables... always good practice! Dim strURL ' The URL of this page so the form will work ' no matter what this file is named. Dim cnnSearch ' ADO connection Dim rstSearch ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim strSQL ' The SQL Query we build on the fly Dim strSearch ' The text being looked for strSearch = Request.QueryString("search") %> <p>&nbsp;</p> <table width="41%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5FA"> <tr> <td><p align="center"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033"> :: Selecione o Docente :</font>:</STRONG></FONT></p> <form action="<%= search %>" method="get"> <div align="center"> <select name="Search" class="formula1" style="width:150" > <option value="Todos">Selecione</option> <% Response.Expires = -1 Dim objConnCur, stringSQL Set objConnCur = Server.CreateObject("ADODB.Connection") Set objRSCur = Server.CreateObject("ADODB.Connection") objConnCur.Open "DBQ=" & Server.MapPath("painel/db/docentes.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" stringSQL = "SELECT id_docente, login FROM Tbldocentes ORDER BY login ASC" Set objRSCur = objConnCur.Execute(stringSQL) While not objRSCur.eof %> <option value="<%=objRSCur("login")%>"><%=objRSCur("login")%></option> <% objRSCur.MoveNext Wend objRSCur.Close %> </select> <input name="submit" type="submit" value="Pesquisar" /> </div> </form> <p align="center"> <% If strSearch <> "" Then strDBPath = Server.MapPath("painel/db/downloads_professor.mdb") Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" 'cnnSearch.Open Application("SQLConnString") strSQL = "SELECT * from tblarquivos where professor ='"&strSearch&"'" Set rstSearch = cnnSearch.Execute(strSQL) %> </p> <div align="center"> <table border="0" cellpadding="4" cellspacing="1" width="403"> <tr> <th bgcolor="#6699CC"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Professor :</font>:</STRONG></FONT></th> <th bgcolor="#6699CC" width="164"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Arquivo:</font>:</STRONG></FONT></th> </tr> <% Do While Not rstSearch.EOF %> <tr> <td bgcolor="#D7F2FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("professor").Value %></font></td> <td bgcolor="#D7F2FF" width="164"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href='painel/pdf/<%= rstSearch.Fields("filename").Value %>' target='_blank' style='font-color:#000000'><img src='images/downloads.gif' border='0'></a></font></div></td> </tr> <% rstSearch.MoveNext Loop %> </table> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If ' That's all folks! See it's really not all that hard. %> </div></td> </tr> </table> <p>&nbsp;</p>

Pessoal tenho esse codigo aqui não dá erro mais também não me retorna nada. alguém pode dizer onde eu errei!!!! <% ' Declare our variables... always good practice! Dim strURL ' The URL of this page so the form will work ' no matter what this file is named. Dim cnnSearch ' ADO connection Dim rstSearch ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim strSQL ' The SQL Query we build on the fly Dim strSearch ' The text being looked for strSearch = Request.QueryString("search") %> <p>&nbsp;</p> <table width="41%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F5F5FA"> <tr> <td><p align="center"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033"> :: Selecione o Docente :</font>:</STRONG></FONT></p> <form action="<%= search %>" method="get"> <div align="center"> <select name="Search" class="formula1" style="width:150" > <option value="Todos">Todos</option> <% Response.Expires = -1 Dim objConnCur, stringSQL Set objConnCur = Server.CreateObject("ADODB.Connection") Set objRSCur = Server.CreateObject("ADODB.Connection") objConnCur.Open "DBQ=" & Server.MapPath("painel/db/docentes.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" stringSQL = "SELECT id_docente, login FROM Tbldocentes ORDER BY login ASC" Set objRSCur = objConnCur.Execute(stringSQL) While not objRSCur.eof %> <option value="<%=objRSCur("id_docente")%>"><%=objRSCur("login")%></option> <% objRSCur.MoveNext Wend objRSCur.Close %> </select> <input name="submit" type="submit" value="Pesquisar" /> </div> </form> <p align="center"> <% If strSearch <> "" Then strDBPath = Server.MapPath("painel/db/downloads_professor.mdb") Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" 'cnnSearch.Open Application("SQLConnString") strSQL = "SELECT * from tblarquivos where professor ='"&strSearch&"'" Set rstSearch = cnnSearch.Execute(strSQL) %> </p> <div align="center"> <table border="0" cellpadding="4" cellspacing="1" width="403"> <tr> <th bgcolor="#6699CC"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Professor :</font>:</STRONG></FONT></th> <th bgcolor="#6699CC" width="164"><FONT color=royalblue face=Tahoma size=2><STRONG><font color="#000033">:: Arquivo:</font>:</STRONG></FONT></th> </tr> <% Do While Not rstSearch.EOF %> <tr> <td bgcolor="#D7F2FF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= rstSearch.Fields("Login").Value %></font></td> <td bgcolor="#D7F2FF" width="164"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href='painel/pdf/"<%= rstSearch.Fields("filename").Value %> "' target='_blank' style='font-color:#000000'><img src='images/downloads.gif' border='0'></a></font></div></td> </tr> <% rstSearch.MoveNext Loop %> </table> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If ' That's all folks! See it's really not all that hard. %> </div></td> </tr> </table> <p>&nbsp;</p>

valeu Andreia! Consegui resolver. agora tenho outro codigo que tá me dando problemas. vou postar aqui.

Pessoal é o seguinte preciso montar um form que é o seguinte: login.asp o professor faz o login que logo em seguida chama: painel_professor.asp nesta tela painel_professor.asp vai conter dois combobox: o 1º combo deverá listar apenas as series do professor que fez o login. ( ou seja tem filtrar ) exite uma tabela chamada professor_disciplina que contém o cadastrado de todos os professores e suas respectivas séries e disciplinas relacionadas. no 2º combo deverá listar as disciplinas de acordo com a serie selecionada no 1º combo. alguém poderia me ajudar a montar esses combos e seus filtros? Por Favor ajudem ai!

Galera! Preciso de um tutorial para fazer um topo animado com fotos semelhante a deste site aqui: http://www.joaopaulobike.com/ Por Favor me ajudem.

Pessoal! To com um probleminha. É o seguinte: tenho um formulario de indicação de produtos, até ai beleza está trazendo a foto do produto, porém quando o usuário envia a foto ela não vai. aqui estão os fontes: indique.asp <!--#INCLUDE FILE="funcoes_valida.asp" --> <link rel="stylesheet" href="loja.css" type="text/css"> <% ' ********************************************************* ' Versão 5.1 - 20/04/2007 ' indique.asp ' ********************************************************* Call Valida_Request() Set Conexao = Server.CreateObject("ADODB.Connection") ConnString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("virtuastore.mdb") Conexao.Open ConnString 'passado quando se seleciona uma categoria codigo_produto = Request("idprod") ' Abre tabela de produtos usando a conexao aberta acima. Set Produtos = Server.CreateObject("ADODB.Recordset") ' Seleciona o produto indicado. Produtos.Open "SELECT * FROM Produtos WHERE idprod=" & codigo_produto , Conexao %> <br> <p align="center"><b><a class="TextoTopico">Utilize esse Formul&aacute;rio para indicar a um(a) amigo(a)</a></b> <br> <br> <form method="POST" action="envia_email_indicacao.asp"> <input type=HIDDEN name="codigo_produto" value="<%=codigo_produto%>"> <table border="0" width="527"> <tr> <td width="145"><a class="TextoItem">Seu Nome:</a></td> <td width="244"> <input type="text" name="Nome_AmigoIndicador" size="38" class="formulario_box"> </td> <td width="368" rowspan="6"> <div align="center"> <b> <a class="TextoItem"><font color="#C80222" size="2">Produto indicado</font></a><font color="#C80222" size="2"><br> </font></b> <a class="TextoItem"><b><font color="#000080">Descrição: </font></b> <%= Produtos("nome") %></a> </div> <div align="center"> <img src="produtos/<%=Produtos("imgra") %>" border=0><br> <a class="TextoItem">Preço: <%= FormatCurrency(Produtos("preço")) %></a> </div> </td> </tr> <tr> <td width="145"> <a class="TextoItem">Seu E-mail:</a> </td> <td width="244"> <input type="text" name="Email_AmigoIndicador" size="38" class="formulario_box"> </td> </tr> <tr> <td width="145"> <a class="TextoItem">Nome Amigo:</a> </td> <td width="244"> <input type="text" name="Nome_AmigoIndicado" size="38" class="formulario_box"> </td> </tr> <tr> <td width="145"><a class="TextoItem">E-mail Amigo:</a> </td> <td width="244"> <input type="text" name="Email_AmigoIndicado" size="38" class="formulario_box"> </td> </tr> <tr> <td width="145"> <a class="TextoItem">Comentários:</a> </td> <td width="244"> <textarea name="comentario" cols="37" class="formulario_box" rows="2"></textarea> </td> </tr> <tr> <td width="145"> </td> <td width="244" align="right"> <input type="image" name="I1" value="Enviar" src="enviar.jpg" width="63" height="43"> </td> </tr> </table> <% Produtos.Close Conexao.Close Set Produtos = Nothing Set Conexao = Nothing %> </form> envia_email_indicacao.asp <!--#INCLUDE FILE="config.asp" --> <link rel="stylesheet" href="loja.css" type="text/css"> <% ' ********************************************************* ' Versão 5.1 - 06/04/2007 ' envia_email_indicacao.asp ' ********************************************************* 'Captura dos dados do formulário Comentario = Request.form("comentario") Nome_AmigoIndicador = Request.form("Nome_AmigoIndicador") Nome_AmigoIndicado = Request.form("Nome_AmigoIndicado") Titulo = Nome_AmigoIndicado & " indicou pra você" Email_AmigoIndicador = Request.form("Email_AmigoIndicador") Email_AmigoIndicado = Request.form("Email_AmigoIndicado") 'Monta a mensagem a ser enviada message = "Prezado(a) " & Nome_AmigoIndicado & "," & Chr(13) & Chr(10) & Chr(13) & Chr(10) message = message & "<br>Seu Amigo " & Nome_AmigoIndicador & " indicou um produto em nossa loja, " & "<a href="& [url=http://www.claytonlima.com&"/loja/produto.asp?codigo_produto="&Request("idprod")&]http://www.claytonlima.com&"/loja...rod")&[/url] ">, Clique Aqui </a> e descubra.<br><br>Comentário de<b>"& Nome_AmigoIndicador & ":</b><br>" & Chr(13) & Chr(10) & Chr(13) & Chr(10) message = message & Comentario & "<br><br>" & Chr(13) & Chr(10) & Chr(13) & Chr(10) message = message & "Visite nossa Loja." 'Envio de email usando ASPMAIL Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Nome_AmigoIndicador Mailer.FromAddress= Email_AmigoIndicador Mailer.ContentType = "text/html" Mailer.RemoteHost = "smtp.claytonlima.com" Mailer.AddRecipient Nome_AmigoIndicado, Email_AmigoIndicado ' copia para a loja If (cc = 1) Then Mailer.AddCC Application("NomeLoja") , Application("MailLoja") End If Mailer.Subject = Titulo Mailer.BodyText = message If Mailer.SendMail = True Then %> <br> <p align="center"><b><a class="TextoPadrao">Email enviado com sucesso</a></b> <br> <br> <a href="java script:top.close(self);" class="TextoPadrao"> FECHAR JANELA </a> <% Else %> <br> <p align="center"><b><a class="TextoPadrao">Houve problema no envio, favor verificar se os dados estão corretos, </a><a href="java script:history.back();" class="TextoPadrao">clique aqui</a><a class="TextoPadrao"> para retornar</a></b> <br> <br> <% End if set Mailer = Nothing %> config.asp <% '################################################################################### ' 3. CONFIGURAÇÕES GERAIS '################################################################################### '## Escreva o nome do administrador da loja para suporte via Administrador Seu_nome = "Clayton Lima" '## Dados da loja Nomeloja = "Loja Modelo" Razao_Social = "Loja Modelo Serviços de Informática LTDA." MailLoja = "contato@claytonlima.com" Slogan_da_sua_loja = "A sua Loja Virtual na Web!" URLCompleta = "www.claytonlima.com/loja" 'ATENÇÃO: Escreva o endereço virtual da sua loja sem o Http:// e sem o / no final Endereco_da_sua_loja = "Av. Maceió, 41" Bairro_da_sua_loja = "Centro" Cidade_da_sua_loja = "Maceió" Estado_da_sua_loja = "AL" Pais_da_sua_loja = "Brasil" Telefone_da_sua_loja = "(0xx82) 254-7412" %> Obs: não dá mensagem de erro, simplemente aparece: <p align="center"><b><a class="TextoPadrao">Houve problema no envio, favor verificar se os dados estão corretos, </a><a href="java script:history.back();" class="TextoPadrao">clique aqui</a><a class="TextoPadrao"> para retornar</a></b> é como se tivesse algum dado digitado errado, porém os dados estão corretos. façam um teste neste link. Selecione um produto e tente enviar pra você ver o que acontece: http://www.claytonlima.com/loja/default.asp Fico no aguardo. :rolleyes:

Galera há um tempo atrás eu achei um código na net de FTP em asp, estava em Inglês dai fiz a tradução e umas adaptações, sendo assim, resolvi disponibilizá-lo aqui é só acessar o link abaixo e baixar. Bom proveito! http://www.claytonlima.com/downloads/ftp.zip

Caro amigo fantasma! Fiz como você disse e está dando esse erro: Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na seqüência de caracteres na expressão de consulta 'month(data)=''. /agenda/agenda.asp, line 25 o codigo está assim: request.form("id") SQL = "select * from agenda where month(data)='"&request.form("id")'" set rs = server.CreateObject("AdoDB.RecordSet") RS.Open SQL,Conexao Vê ai se consegue resolver!!

obrigado fantasma, mais ainda continua sem aparecer nada.

Olá Pessoal! Estou tentando montar uma pequena agenda de eventos e estou com dificuldade, segue codigo abaixo da agenda: agenda.asp <% Session.LCID=1046 SET Conexao = Server.CreateObject("AdoDB.Connection") Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath("agenda.mdb") %> <% dt = Cdate(Request.QueryString("dt")) mês = CInt(Request.QueryString("mês")) Dim Sql, RS, m, d, a d = day(dt) m = month(dt) a = year(dt) Sql = "SELECT * FROM AGENDA Where month(data) = "&mês&" " set rs = server.CreateObject("AdoDB.RecordSet") RS.Open SQL,Conexao While NOT RS.EOF %> <div align="center"> <center> <table border="0" width="48%" cellspacing="0"> <tr> <td width="24%" bgcolor="#FFFFFF"><font face="Verdana" color="#FF0000" size="1"><b>Evento:</b></font></td> <td width="76%" bgcolor="#FFFFFF"><font size="1" face="Verdana"><%=RS("evento")%></font></td> </tr> <tr> <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Local:</b></font></td> <td width="76%"><font size="1" face="Verdana"><%=RS("local")%></font></td> </tr> <tr> <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Cidade:</b></font></td> <td width="76%"><font size="1" face="Verdana"><%=RS("cidade")%></font></td> </tr> <tr> <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Data:</b></font></td> <td width="76%"><font size="1" face="Verdana"><%=RS("data")%></font></td> </tr> <tr> <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Descrição:</b></font></td> <td width="76%"><font size="1" face="Verdana"><%=RS("detalhes")%></font></td> </tr> </table> </center> </div> <p align="center"><a href="agenda.asp?&mês<%=mês%>" target="_blank"><font face="Verdana" size="1"><b> Ver todos deste Mês</b></font></a></p> <% RS.MoveNext Wend Set RS = Nothing %> <form method="POST" action="agenda.asp"> <p align="center"> <font face="Verdana" size="1">Pesquisar eventos passados:</font><font face="Verdana" size="2">&nbsp;&nbsp;&nbsp;&nbsp; </font><font face="Verdana" size="1">Mês</font><font face="Verdana" size="2"> </font> <font face="Verdana" size="1"> <select size="1" name="id"> <option value="1">Janeiro</option> <option value="2">Fevereiro</option> <option value="3">Março</option> <option value="4">Abril</option> <option value="5">Maio</option> <option value="6">Junho</option> <option value="7">Julho</option> <option value="8">Agosto</option> <option value="9">Setembro</option> <option value="10">Outubro</option> <option value="11">Novembro</option> <option value="12">Dezembro</option> </select></font> <input type="submit" value="Vai"> <br> </form> [/codebox] Meu banco de dados está assim estruruta: Id - Autonum Evento - Texto data - DataAbreviada detalhes - Texto Local - texto Cidade - Texto Quando eu rodo o script aparece o combo com os meses e quando eu clico no mês não retorna nada. Por Favor me ajudem ai! Desde já agradeço.

Ola Andreia! Já tentei isso porém dá o mesmo erro! um sei o qe fazer.

:blink: :blink: Pessoal estou tentando enviar um e-mail com anexo para uma lista de clientes porém está dando erro no caminho fisico. Já entrei em contato com o suporte do meu provedor e me passaram o caminho fisico mais ainda está dando erro. Vou postar o erro aqui: CDO.Message.1 error '80070003' The system cannot find the path specified. /cadastro/email_anexo.asp, line 29 aqui está o link da pagina: http://www.ministerionovavida.org/cadastro/index.asp aqui esta meus scripts: index.asp <% Set conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("contato.mdb") SQL="Select * From contato order by autonum" Set RS = conexao.execute(sql)%> <table width="611" border="0" align="center" height="215" cellspacing="0" cellpadding="0"> <tr bgcolor="#009966"> <td colspan="2" bgcolor="#009966"> <div align="center"><font size="2" face="Verdana, Arial, sans-serif"><b><font color="#FFFFFF">Enviando email por anexo</font></b></font></div> </td> </tr> <tr bgcolor="#E6FFEC"> <td colspan="2"><font size="1" face="Verdana, Arial, sans-serif"><a href="java script:abrir('email_anexo.asp')"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font face="Verdana, Arial, sans-serif"> <form name="form" method="post" action="email_anexo.asp" enctype="multipart/form-data"> <div align="center"> <input type="file" name="anexos" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal" size="20"> <input type="submit" name="Submit3" value="Anexar" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal"> </div> </form> </font></font></font></font></font></font></font></a></font></td> </tr> <tr bgcolor="#E6FFEC"> <td colspan="2" height="167"> <form method="post" action="email_anexo.asp"> <table width="613" border="0"> <tr> <td width="335" height="38"> <div align="right"><font size="1" face="Verdana, Arial, sans-serif">De:</font></div> </td> <td width="353" height="38"> <input type="text" name="nome" value="contato@ministerionovadida.org" size="30" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal"> </td> </tr> <tr> <td width="335" height="28"> <div align="right"><font size="1" face="Verdana, Arial, sans-serif">Email:</font></div> </td> <td width="353" height="28"><font size="1" face="Verdana, Arial, sans-serif"> <input type="text" name="email" value="<%do while not rs.EOF %><%=rs("email")%>,<%rs.MoveNext%><%Loop%>" size="38" maxlength="50" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal"> </font></td> </tr> <tr> <td width="335" height="16"> <div align="right"><font size="1" face="Verdana, Arial, sans-serif">Arquivo </font></div> </td> <td width="353" height="16"><font size="1" face="Verdana, Arial, sans-serif"><%=request.querystring("anexos")%> <%=request.querystring("msg")%> </font></td> </tr> <tr bgcolor="#009966"> <td colspan="2" height="40"> <div align="center"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"><font size="1" face="Verdana, Arial, sans-serif"><font size="1"><font size="1"> <input type="hidden" name="anexo" value="<%=request.querystring("anexos")%>"> <input type="submit" name="Submit" value="Enviar" style="border: 1 solid #666666" onBlur="this.className='selectBoxNormal';" onFocus="this.className='selectOver';" class="selectBoxNormal"> </font></font></font></font></font></font></div> </td> </tr> </table> </form> </td> </tr> </table> email_anexo.asp <% vanexo = request.form("anexo") vnome = request.form("nome") vemail = request.form("email") HTML = " Nome:" & vnome &" Email: "& vemail &"" Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'cria o objeto para configuração do SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 'porta do SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'porta do CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update 'atualiza a configuração do CDOSYS para o envio do e-mail Set objCDOSYSMail.Configuration = objCDOSYSCon 'e-mail do remetente objCDOSYSMail.From = "Nome Remetente" & "<contato@ministerionovavida.org>" 'e-mail do destinatário objCDOSYSMail.To = "contato@ministerionovavida.org" 'anexo objCDOSYSMail.AddAttachment("d:\web\htdocs\ministerionovavida\cadastro\upload\"& vanexo &"") ---- linha que está dando o erro 'd:/web/htdocs/ministerionovavida/cadastro/upload/ 'assunto da mensagem objCDOSYSMail.Subject = "Anexo" 'conteúdo da mensagem objCDOSYSMail.HtmlBody = request.form("recado") 'objCDOSYSMail.fields.update 'envia o e-mail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.write "E-mail enviado com Sucesso..." %> enviar_anexo.asp <% ' Esta secao faz o upload do arquivos para o diretório /upload Set myFileUpload = Server.CreateObject("SoftArtisans.FileUp") if myFileUpload.form("anexos").UserFilename <> "" then ' diretório em que a imagem será salva myFileUpload.Form("anexos").Path = "d:\web\htdocs\ministerionovavida\cadastro\upload\" myFileUpload.form("anexos").Save end if arquivo = Mid(myFileUpload.UserFilename, InstrRev(myFileUpload.UserFilename, "\") + 1) If Err Then Response.Write("<b>Erro : </b>" & Err.description & "<br>") Set myFileUpload = nothing Response.End End If %> <% response.redirect "email_anexo.asp?anexos="& arquivo &"&msg= anexado com sucesso!" %> Por favor Helpppp!!

:D Galera tenho um banco de dados com meus clientes cadastrados e estou precisando de um script de newslatter para enviar e-mail mais preciso que tenha opção de anexar arquivos na newslatter. Se alguém tiver posta aqui. Agradeço!!!!

:D :D galera refiz alguns coisas no codigo e consegui! Obrigado pela força. Pra quem quiser ai vai codigo funfando numa boa para aqueles que um dia precisar. index.asp <% Set Banco = Server.CreateObject("ADODB.Connection") Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb") Banco.Open Set Dados = Banco.Execute("SELECT * FROM alunos ORDER BY ID") %> <html> <head> <title>Página 1</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="javascript"> function estudos(nome) { window.open(nome, "estudos", "toolbar=no,location=no,maximize=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,top=0,left=0,menubar=no,width=400,height=250"); } </script> </head> <body> <% if not Dados.Eof Then while not Dados.Eof %> <font size="2"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><p align="justify"><%=dados("nome")%></font> <br><br> <font size="2">&nbsp; <img border="0" src="print.jpg">&nbsp;&nbsp;&nbsp; </font><font size="2"> <a href="java script:estudos('mostra.asp?ID=<%=dados("id")%>')">Clique aqui para visualizar!</a> <% Dados.MoveNext Wend Else %> Nenhum aluno encontrado. <% End If %> </body> </html> mostra.asp <% id = Request.QueryString("id") Set Banco = Server.CreateObject("ADODB.Connection") Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb") Banco.Open Set Dados = Banco.Execute("SELECT * FROM alunos WHERE ID= " & id) %> <html> <head> <title>Visualizando Alunos</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% if not Dados.Eof Then %> <font size="2" face="Verdana" color="#000000"><strong>Código:</strong> <% = Dados("ID") %><br> <strong>Nome:</strong> <% = Dados("NOME") %><br> <strong>Ano:</strong> <% = Dados("ano") %><br> <strong>Data Nascimento:</strong> <% = Dados("data_nascimento") %> <% Else %> Aluno não encontrado. <% End If %> <font size="1" face="Verdana" color="#000000">&nbsp;</font><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="java script:onClick=window.close()">Fechar Janela</a></font></td> </p> </body> </html> ai está o link pra teste: http://www.colegiosaoluiz.com.br/pesquisaaluno/index.asp

Amigão Delphi-32! Num deu certo não! fiz uma outra coisa dá uma olhada neste link. http://www.colegiosaoluiz.com.br/pesquisaaluno/index.asp :huh: :huh: num sei porque ainda continua com o mesmo erro. Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'ID= scroll=no,tollbars=no,top=1,left=1,location=yes'. /pesquisaaluno/mostra.asp, line 9 Hellppppppp

:blink: Pessoal é o seguinte estou com um probleminha na minha consulta. olhem o código: index.asp <% Set Banco = Server.CreateObject("ADODB.Connection") Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb") Banco.Open Set Dados = Banco.Execute("SELECT * FROM alunos ORDER BY ID") %> <html> <head> <title>Página 1</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script language="javascript" type="text/javascript"> <!-- function abrePag(url,nmJanela,parametros,usu) { window.open(url + '?usu=' + usu,nmJanela,parametros); } //--> </script> </head> <body> <% if not Dados.Eof Then while not Dados.Eof %> <p><a href="java script:abrePag('mostra.asp','<% = Dados("id") %>','jMostra','scroll=no,tollbars=no,top=1,left=1,location=yes')"><% = Dados("Nome") %></a></p> <% Dados.MoveNext Wend Else %> Nenhum aluno encontrado. <% End If %> </body> </html> mostra.asp <% id = Request.QueryString("usu") Set Banco = Server.CreateObject("ADODB.Connection") Banco.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("alunos.mdb") Banco.Open Set Dados = Banco.Execute("SELECT * FROM alunos WHERE ID= " & id)[b] %> <html> <head> <title>Mostra Dados</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% if not Dados.Eof Then %> <strong>Código:</strong> <% = Dados("ID") %><br> <strong>Nome:</strong> <% = Dados("NOME") %><br> <strong>Ano:</strong> <% = Dados("ano") %><br> <strong>Data Nascimento:</strong> <% = Dados("data_nascimento") %> <% Else %> Aluno não encontrado. <% End If %> </body> </html> na linha que está em vermelho está o erro Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (vírgula) na expressão de consulta 'ID= scroll=no,tollbars=no,top=1,left=1,location=yes'. /pesquisaaluno/mostra.asp, line 9 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; MEGAUPLOAD 1.0) Página: GET /pesquisaaluno/mostra.asp

Galera! To precisando de ajuda. tenho um form onde motro as noticias dai clico na noticia quero que ela apareça em uma pop up para imprimir porém ela só me traz a ultima e não a que eu quero. Aqui estão meus códigos: --------------------------------------------------------------------------------------------------------------------- form: Noticias Detalhe <script language="JavaScript"> function abrir(URL) { var width = 600; var height = 450; var left = 5; var top = 5; window.open('imprimir.asp','titulo', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=yes, toolbar=no, location=no, directories=no, menubar=no, resizable=yes, fullscreen=no'); } </script> <% AbreConexao id = request.querystring("id") SQL = "SELECT * FROM noticias where id_noticia = " & id & " ORDER BY id_noticia DESC" Set rs = Conexao.Execute(SQL) While not rs.EOF %> <img src="<%=rs("foto1")%>" border="3" align="left" hspace="8" vspace="2" width="150" height="110"> <%=rs("data_alt")%><font size="2">- </font><font color="#cc3333" face="Verdana"><%=Rs("titulo")%></font><br> <br><br><br><br> <font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><p align="justify"><%=Rs("texto")%></font> <br><br> <font size="2">&nbsp; <img border="0" src="print.jpg">&nbsp;&nbsp;&nbsp; </font><font size="1"> <a href="java script:abrir('imprimir.asp?id=<%=id%>');">Clique aqui para imprimir essa notícia!</a> <% rs.MoveNext Wend rs.close FechaConexao Set rs = nothing %> ---------------------------------------------------------------------------------------------- form: imprimir.asp <% Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("noticias.mdb") id = request.querystring("id") sqlstmt = "SELECT * FROM noticias where id_noticia =" & id & " ORDER BY id_noticia" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, Dados, 3, 3 %> <% ' Criamos agora uma função que cria as quebras de linha e os parágrafos no texto Function FormatStr(String) on Error resume next String = Replace(String, CHR(13), "") String = Replace(String, CHR(10) & CHR(10), "</P><P>&nbsp;&nbsp;&nbsp;") String = Replace(String, CHR(10), "<BR>&nbsp;&nbsp;&nbsp;") FormatStr = String End Function %> <html> <head> <style> @page { @top-left{ content: ""; } @bottom-center { content: ""; } } </style> <title>IMPRESSÃO</title> </head> <body topmargin="2" leftmargin="2" vlink="#0000FF"> <table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="21"> <tr> <td width="81%" height="21"> <p align="center"><u><b> <font face="Arial" size="4"><%=rs("Titulo")%></font></b></u></td> <td width="37%" height="21"> <p align="center"><a href="java script:self.print()"> <img border="0" src="nav_printer.gif"></a></td> </tr> <tr> <td width="118%" height="21" colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000033"><br> </font><font size="2" face="Arial"><%=Formatstr(rs("texto"))%></font><p align=left> <font face="Arial" size="2"><i> <br> <i> Data: <b>(<%=day(rs("data_alt"))%>-<%=month(rs("data_alt"))%>-<%=year(rs("data_alt"))%>)<br> &nbsp;</b></i></font></p> </td> </tr> <tr> <td width="118%" height="21" colspan="2"> <hr color="#000000" width="80%" size="1"> <p align="center"><font face="Verdana" size="2"><a href="""><font>Fechar Janela</font></a></center></font></p> </td> </tr> </table> </body> </html> ---------------------------------------------------------------------------------------------- Quem souber por favor me ajudem.

Galera é o seguinte: tenho sistema de eventos que quando abro as fotos apercecem os comentarios, só que quando eu clico está trazendo o comentarios de todas as fotos ao invés da foto clicada. o codigo é esse: <%@ Language=VBScript %> <%Option Explicit %> <link rel=stylesheet href="styler.css" type="text/css"> <!--#include file="conecta.asp"--> <% Dim id Dim img_grande id = Request.QueryString("id") Set oRsFesta = oConn.Execute("SELECT * FROM imagens WHERE id_imagens="&id&"") img_grande = oRsFesta("img_grande") Response.Write "<img border=0 src="""&img_grande&""">" Response.Write "<center><BR><a href=""java script:onClick=window.close()""><font>Fechar Janela</font></a></center>" %> <% dim conn, rs, sql set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base/base.mdb") set rs=Server.CreateObject("ADODB.RecordSet") if Request.QueryString("action") = "incluir" then sql="Insert Into comentarios(com_autor,com_data,com_com) values('" & request.form ("txtnome") & "','" & request.form ("data") & "','" & request.form("txtacomentario") & "')" conn.execute (sql) response.redirect("comentario.asp") end if sql="Select * from comentarios" set rs=conn.execute (sql) %> <table width="530"> <% if not rs.bof and not rs.eof then rs.movefirst do while not rs.eof %> <tr><font size="2" face="Verdana">&nbsp;Autor:</font></b><%response.write rs("com_autor")%><tr><font size="2" face="Verdana">&nbsp;Data:</font></b><%response.write rs("com_data")%></font></tr><font size="2" face="Verdana">&nbsp;Comentário:</font></b><%response.write rs("com_com")%></tr> <p> <tudo/> <% rs.movenext loop end if%> <tr><tudo width="312"> <form action="comentario.asp?action=incluir" method="post" name="inclui"> <font face="Verdana" size="2">Autor: </font> <input type="text" name="txtnome" size="26"/> </tudo></tr> <tr> <tudo width="312" align="right" style="text-align: right"> <p style="text-align: left"> <font face="Verdana" size="2">Data:</font><font face="Verdana" size="2" color="#808080">&nbsp; </font> <input type="text" name="data" size="20" class="campo"></tudo> <tudo width="1"> </tudo> </tr> <tr><tudo width="312"> <font size="2" face="Verdana">Comentário:&nbsp;</font><textarea cols="36" rows="5" name="txtacomentario"></textarea> </tudo></tr><tr> <tudo width="312"> <input type="submit" name="btnenviar" value="Enviar"/> </form> </table> </body> </html> Por favor me ajudem!

Pessoal! Fiz o seguinte: desabiltei as Mensagens de erro http amigaveis do Internet Explore. e tentei rodar os scripts ASP, dai aparceu a seguinte mensagem: Active Server Pages erro 'ASP 0201' Linguagem de script padrão inválida A linguagem de script padrão especificada para este aplicativo é inválida. alguém decifra isso pra mim?

Galera, Help! Instalei o servidor apache 1.3 no meu pc e meu IIS parou de funcionar. Dai eu desisntalei o apache e reinstalei o IIS, porem continua sem funcionar. Dá erro 500 erro interno de servirdor o que pode ser, por favor me ajudem.

veja bem! e dentro deste codigo que eu que tem que entrar a descrição Response.Write "<td><a target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a></td>" contar = contar + 1 rsFotos.MoveNext