ibreak

SMZ eu vi o seu código, mas tipo gostei da parte que envia a foto, mas a parte inclusao.asp eu não sei como posso adaptar para enviar os dados dos campos da notícia como data, titulo, chamada e notícia... Tipo como eu posso adaptar para usar no meu sistema... Se tiver uma sugestão legal ou se puder ajudar no código agradeço. Obrigado. Paulo.

smez aind anão testei o seu código e nem sei como eu poderi usar esse sistema seu embutido no meu. Eu preciso que a notícia seja enviada juntamente com a imagem... Eu agradeço a sua ajuda... vou olhar o seu código e ver se dá pra usar ele... mas parece bem legal... de qualquer forma se alguém souber como eu arrumo o meu código eu agradeço tb... valeu...

Oi Márcio achei bem legal a sua explicação e acredito que senão entendi muito bem cheguei bem perto... Bem eu fiz do jeito que você me explicou... Eu inseri na página da notícia um campo para enviar a foto(mesmo formulário da notícia). Aí o usuário preenche todos os dados no formulário, no final procura a foto e clica em enviar. O sistema envia a foto usando o método post. (formulário comum) Na página que é responsável pelo envio da foto eu to usando sessions para receber as informações preenchidas na página anterior. Eu to testando usando o IIS do win xp. O erro que ele tá acuasando é o seguinte: Tipo de erro: Objeto Request, ASP 0207 (0x80004005) Não é possível usar a coleção Request.Form após chamar BinaryRead. /news1/arquivos/adm/upload_form2.asp, line 10 Na linha 10 eu tenho isso: SESSION ("titulo") = Request.form("titulo") Veja abaixo o código completo da página responsável em capturar os dados preenchidos e enviar para o DB... Espero ter entendido a sua explicação e também estar no caminho certo. <!-- #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 ---------------------- SESSION ("titulo") = Request.form("titulo") SESSION ("tipo") = Request.form("tipo") SESSION ("chamada") = Request.form("chamada") SESSION ("conteudo") = Request.form("conteudo") SESSION ("expira") = Request.form("expira") data=day(now)&"/"&month(now)&"/"&year(now) SESSION ("destaque") = Request.form("destaque") ' 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/noticia" + 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("../bd/base.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'Faremos aqui a inserção de todos os dados digitados no form anterior meubd.EXECUTE "INSERT INTO noticias (titulo, chamada, tipo, conteudo, expirar, data, destaque, foto) values ('"&titulo&"','"&chamada&"',"&tipo&",'"&conteudo&"','"&expira&"','"&data&"',"&destaque&"','"&cfoto&")" ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" 'Logo após a inserção dos dados, mostrará uma mensagem e voltará para a página principal.asp response.write "<script>location = 'principal.asp';alert('Sua notícia foi cadastrada com sucesso!')</script>" %>

Oi pessoal, beleza... estou com o seguinte erro... Request object error 'ASP 0104 : 80004005' Operation not Allowed /tvonline/video_enviar.asp, line 28 Não faz o upload do arquivo desejado. O que pode estar ocorrendo... e como resolver este problema de upload. Veja o que eu tenho na linha 28 em vermelho. Fields("File1").Value.SaveAs FilePath O código da página completa>> Obrigado. <script language="JavaScript"> function video(URL) { opener.document.video.selurl.value=URL; self.close(); } </script> <link rel=stylesheet href="images/styles.css" type="text/css"> <form method="POST" enctype="multipart/form-data" name="enviarfoto"> <p><input type="file" name="File1" size="20"><br> <input type="submit" value="Enviar" name="action"></p> </form> <!---#INCLUDE FILE="upload.inc" ---> <% Dim Obj,objpasta, num, pasta pasta = Request.querystring("pasta") Local = server.mappath("videos/") Set Obj = Server.CreateObject("Scripting.FileSystemObject") Set objpasta = Obj.GetFolder(Local) num = objpasta.files.count If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Fields = GetUpload() FilePath = server.mappath("videos/video_" &num& Right(Fields("File1").FileName,4)) arquivo="video_"&num&Right(Fields("File1").FileName,4) Fields("File1").Value.SaveAs FilePath If Right(arquivo,3)="avi" OR Right(arquivo,3)="mpeg" OR Right(arquivo,3)="mpg" OR Right(arquivo,3)="wmv" then %> <META HTTP-EQUIV="refresh" CONTENT="0; URL=java script:%20video('videos/<%=arquivo%>');"> <% else Set objFS = Server.CreateObject("Scripting.FileSystemObject") objFS.DeleteFile(Server.MapPath("videos/"&arquivo)) Set objFS = Nothing %> <script language="JavaScript"> { opener.document.video.selurl.value='Este formato não é válido'; self.close(); } </script> <% end if Set objFS = Nothing %><% end if %>

Bereta eu tenho um sistema com o FCKeditor mas é que as pessoas que fazem a inserção de notícias não gostam de enviar fotos desta maneira, por isso tenho que criar um sistema manual. Bem você disse que pra cada tipo de upload é diferente. não compreendi ao certo o que você quiz dizer. Eu preciso ter um formulário separado? Uma outra menira que eu acredito que dá certo, é procurar a foto e enviá-la primeiro, fazer o upload na mesma página. depois só enviando o nome da foto para o db com a notícia. Não sei como fazer isso...

Oi pessoal, beleza... estou com uma dúvida e não estou conseguindo resolver. Primeiro que eu peguei um sistema de notícias da net com categorias, data e texto. Eu inseri nesse formulário que envia o texto para o DB um campo para localizar a foto no pc e enviar para uma pasta específica no site, registrando o nome da foto no DB. Eu peguei na net o sistema de um upload sem componente e inseri nesse sistema de notícia. O que eu não consigo fazer é integrar o envio da notícia completa e da foto ao mesmo tempo. Tipo eu clico em enviar para o db a notícia e ao mesmo tempo o sistema faz o upload da foto... é possível fazer isso... é a melhor forma? Só na página para enviar a foto o action do formulário é assim: <form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data"> E para enviar a notícia completa para o DB o action é assim: <form name="form1" method="post" action="incluir2.asp"> Como eu posso clicar no botão para enviar a notícia e o sistema de uma única vez executar as duas ações... Eu não sei fazer isso... enviar a foto e enviar a notícia. Ou eu separo o formulário, primeiro envia a foto e depois a notícia. Podem me orientar melhor... To muito confuso... Abaixoo código da página de cadastro d anotícia com o campo para enviar a foto... <!--#include file="cookies.asp" --> <% 'Criando variáveis Dim rsTipos set rsTipos=server.createobject("adodb.recordset") 'Esta SELECT irá selecionar todos os tipos de notícias 'Neste caso, será para colocarmos no formulário as opções de escolher o tipo da notícia rsTipos.Open "SELECT * from noticias_tipo order by tipo", meubd %> <html> <head> <title>iMasters / ASP - Notícias</title> </head> <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" border="0" cellspacing="3" cellpadding="0"> <tr valign="middle"> <td height="70" colspan="3" bgcolor="fcfcfc"><font size="6" face="Arial, Helvetica, sans-serif">ADMINISTRATIVO - ASP NOT&Iacute;CIAS</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td> </tr> <tr> <td width="126" height="277" valign="top" bgcolor="#BFEFFF"><table width="100%" border="0" cellspacing="2" cellpadding="1"> <tr> <td bgcolor="#FFFFFF"><a href="incluir.asp"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Incluir Not&iacute;cia</strong></font></div> </a></td> </tr> </table></td> <td width="600" valign="top"><blockquote> <p><font face="Arial, Helvetica, sans-serif"><strong><font size="4"> Incluir not&iacute;cia</font></strong></font></p> <p><font size="2" face="Arial, Helvetica, sans-serif">Para incluir uma nova not&iacute;cia, preencha o formul&aacute;rio abaixo:</font></p> <form name="form1" method="post" action="incluir2.asp"> <table border="0" align="center" cellpadding="0" cellspacing="3"> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Foto:</font></div></td> <td><input type="file" name="foto" size="14"></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">T&iacute;tulo:</font></div></td> <td><div align="left"><font face="Arial, Helvetica, sans-serif"><font size="2"> <input name="titulo" type="text" id="titulo" size="40"> </font></font></div></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Tipo:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <select name="tipo" id="tipo"> <% while NOT rsTipos.EOF %> <option value="<%=rsTipos("codtipo")%>"><%=rsTipos("tipo")%></option> <% rsTipos.movenext wend %> </select> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Chamada:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="chamada" cols="40" id="chamada"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Conte&uacute;do:</font></div></td> <td><font face="Arial, Helvetica, sans-serif"><font size="2"> <textarea name="conteudo" cols="40" rows="5" id="conteudo"></textarea> </font></font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Data para expirar:</font></div></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="expira" type="text" id="expira"> </font></td> </tr> <tr> <td><div align="right"><font size="2" face="Arial, Helvetica, sans-serif">Destaque:</font></div></td> <td> <table width="100" border="0" cellspacing="0" cellpadding="1"> <tr> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input type="radio" name="destaque" value="1"> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">Sim</font></td> <td><font size="2" face="Arial, Helvetica, sans-serif"> <input name="destaque" type="radio" value="0" checked> </font></td> <td><font size="2" face="Arial, Helvetica, sans-serif">N&atilde;o</font></td> </tr> </table></td> </tr> <tr> <td colspan="2"><div align="right"> <input type="submit" name="Submit" value="Cadastrar"> </div></td> </tr> </table> </form> <p>&nbsp;</p> </blockquote></td> <td width="40" bgcolor="#BFEFFF"><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td> </tr> <tr> <td colspan="3" bgcolor="f0f0f0"><div align="right"><font color="#666666" size="2" face="Arial, Helvetica, sans-serif">ASP - Not&iacute;cias</font></div></td> </tr> </table> <p>&nbsp;</p> </body> </html>

Oi pessoal, beleza... tive muitas dificuldades para conseguir paginar esta página, e quando deu certo a paginação não exibe as informações que estão salvas no DB, como o IP, data entre outras informando em que horário anterior o usuário acessou o sistema. É uma página do sistema de login que motra o histórico de acesso do usuário a página. Atualmente a página não está dando erro álgum... mas também não exibe as informações salvas no DB, histórico de acesso. A única info que é exibida é este: Este é seu primeiro acesso ao sistema. Você ainda não tem histórico, faça o logout e logue-se novamente. Logout! [ 1 ] [ 2 ] [ 3 ] Última Página » Pagina sem resultado álgum... porque acontece isso... Veja abaixo o código da pagina que não está exebindo as info acima. Abaixo também publiquei o código da página que funciona perfeitamente mas sem paginação para que possam comparar e me ajudar a resolver isso... desde já agradeço qualquer ajuda. Código da página com paginação. <%@ Language=VBScript %> <%Response.Expires = 0%> <%Response.Buffer = true%> <!--#include file="verify_login.asp"--> <!--#include file="header.asp"--> <% registros = 20 pagina = Request.QueryString("pagina") If pagina = "" Then pagina = 1 End If user = Session("member") set Conexao = Server.CreateObject ("ADODB.Connection") Conexao.Open Application("connString") Set rs = Server.Createobject("ADODB.RECORDSET") set rs.ActiveConnection = Conexao rs.CursorType = 3 rs.PageSize = registros sql = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC" rs.Open sql If rs.EOF Then Response.Write "Nenhum registro encontrado" Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>" rs.Close rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3 online = rs.RecordCount rs.Close set rs = nothing Response.Write "<table cellspacing=2 cellpadding=2 width=50% >" Response.Write "<tr bgcolor=#333366>" Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>" Response.Write "<td><font class=colltitle>IP:</a></td>" Response.Write "</tr>" & vbcrlf i = 1 while not rs.EOF if i mod 2 then Response.Write "<tr class=defaultsmall>" else Response.Write "<tr class=defaultsmall bgcolor=#dedede>" end if Response.Write "<td>" & rs("SID") & "</td>" Response.Write "<td>" & rs("Login_Time") & "</td>" if rs("Logout_Time") <> "" then Response.Write "<td>" & rs("Logout_Time") & "</td>" else Response.Write "<td>N/A</td>" end if Response.Write "<td>" & rs("user_ip") & "</td>" Response.Write "</tr>" & vbcrlf i = i + 1 rs.MoveNext wend rs.Close set rs = nothing Response.Write "</table>" Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>" else Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>" end if %> <a href='logout.asp' class=errmsg>Logout!</a> <% 'Else rs.AbsolutePage = pagina While Not rs.EOF AND x < rs.PageSize x = x + 1 %> <% rs.MoveNext Wend anterior = pagina - 1 proxima = pagina + 1 ultima = rs.PageCount primeira = 1 ultm2 = FormatNumber(rs.PageCount - 1,0) If pagina <> 1 Then Response.Write "<b>« <a href=home.asp?pagina="&primeira&">Primeira Página</a></b> " End If If pagina > 1 AND pagina <> 2 Then Response.Write "<b>[ <a href=home.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> " End If If pagina > 1 Then Response.Write "<b>[ <a href=home.asp?pagina="&anterior&">"&anterior&"</a> ]</b> " End If Response.Write "<b>[ "&pagina&" ]</b> " If Not rs.EOF Then Response.Write "<b>[ <a href=home.asp?pagina="&proxima&">"&proxima&"</a> ]</b> " End If If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then Response.Write "<b>[ <a href=home.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> " End If If Not rs.EOF Then Response.Write "<b><a href=home.asp?pagina="&ultima&">Última Página</a> »</b> " End If rs.Close Set rs = Nothing 'End If %> Código original (funcionando) sem paginação <%@ Language=VBScript %> <%Response.Expires = 0%> <%Response.Buffer = true%> <!--#include file="verify_login.asp"--> <!--#include file="header.asp"--> <center> <% user = Session("member") set rs_log = server.CreateObject ("ADODB.Recordset") query = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC" rs_log.Open query, Application("connString"), 3 if not rs_log.eof then set rs = server.CreateObject ("ADODB.Recordset") query = "SELECT * FROM Members WHERE id=" & user rs.Open query, Application("connString"), 3, 3 Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>" rs.Close rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3 online = rs.RecordCount rs.Close set rs = nothing Response.Write "<table cellspacing=2 cellpadding=2 width=50% >" Response.Write "<tr bgcolor=#333366>" Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>" Response.Write "<td><font class=colltitle>IP:</a></td>" Response.Write "</tr>" & vbcrlf i = 1 while not rs_Log.EOF if i mod 2 then Response.Write "<tr class=defaultsmall>" else Response.Write "<tr class=defaultsmall bgcolor=#dedede>" end if Response.Write "<td>" & rs_Log("SID") & "</td>" Response.Write "<td>" & rs_Log("Login_Time") & "</td>" if rs_Log("Logout_Time") <> "" then Response.Write "<td>" & rs_Log("Logout_Time") & "</td>" else Response.Write "<td>N/A</td>" end if Response.Write "<td>" & rs_Log("user_ip") & "</td>" Response.Write "</tr>" & vbcrlf i = i + 1 rs_Log.MoveNext wend Response.Write "</table>" Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>" else Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>" end if rs_Log.Close set rs_Log = nothing %> <a href='logout.asp' class=errmsg>Logout!</a> </center>

Cyberalexxx valeu pela ajuda. Essa página resolveu... ela está abrindo agora normal. Essa página eu uso para abrir úma notícia que já foi enviada, fazer qualquer alteração e reenviá-la. No momento em que eu estou enviando depois de alterar a notícia, abre este erro: Microsoft VBScript compilation error '800a0411' Name redefined /admin/noticias/acao.asp, line 5 dim idCategoria, idNoticia -----------------^ A Página que faz o envio das notícias chama-se acao.asp Veja o código abaixo. <!--#include virtual="/admin/config.asp"--> <% dim strQuery, strMsg, objConn dim idRegiao, idNoticia dim idCategoria, idNoticia dim strTitulo, strDescricao, strConteudo, strAcao on error resume next idNoticia = Request("idNoticia") idRegiao = Request.Form("idRegiao") idCategoria = Request.Form("idCategoria") strDescricao = Replace(Request.Form("txtDesc"),"'","''") strTitulo = Replace(Request.Form("txtTitulo"),"'","''") strConteudo = Replace(Request.Form("fckConteudo"),"'","''") strAcao = Request("acao") if strAcao = "i" then strQuery = "INSERT INTO Noticias(regiao, categoria, descricao, titulo, data, hora, conteudo) values (" & vbCrLf strQuery = strQuery & idRegiao &", " & vbCrLf strQuery = strQuery & idCategoria &", " & vbCrLf strQuery = strQuery & "'" & strDescricao & "', " & vbCrLf strQuery = strQuery & "'" & strTitulo & "', " & vbCrLf strQuery = strQuery & "format ( now(), 'dd/mm/yyyy'), " & vbCrLf strQuery = strQuery & "'" & FormatDateTime(now(),4) & "', " & vbCrLf strQuery = strQuery & "'" & strConteudo & "') " elseif strAcao = "a" then strQuery = "update Noticias set " & vbCrLf strQuery = strQuery & "regiao = " & idRegiao &", " & vbCrLf strQuery = strQuery & "categoria = " & idCategoria &", " & vbCrLf strQuery = strQuery & "descricao = '" & strDescricao & "', " & vbCrLf strQuery = strQuery & "titulo = '" & strTitulo & "', " & vbCrLf strQuery = strQuery & "conteudo = '" & strConteudo & "' " & vbCrLf strQuery = strQuery & "where id = " & idNoticia elseif strAcao = "e" then strQuery = "delete from Noticias where id = " & idNoticia else strMsg = "Ação inválida." end if set objConn = Server.CreateObject("ADODB.connection") objConn.ConnectionString = Dados objConn.Open() if request("adm")="" then objConn.Execute(strQuery) else objConn.Execute(request("adm")) end if if Err.number = 0 then if strMsg = "" then strMsg = "Operação Realizada." else if strMsg = "" then strMsg = "Ocorreu erro na operação.\n"& Err.Description end if Response.Redirect("default.asp?m=" & strMsg) %>

Cyberalexxx eu deletei uma strQuery como você indicou... Ficou assim... dim rsRegiao, strQuery dim rsCategoria dim rsNoticia, idNoticia O erro agora aparece na linha 71, veja o erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /admin/noticias/editar.asp, line 71 Veja o que tem na linha 71: em vermelho:

Boa tarde. Minha página esta carregando este erro: Microsoft VBScript compilation error '800a0411' Name redefined /admin/noticias/editar.asp, line 61 dim rsRegiao, strQuery --------------^ Na linha 61 eu tenho esse código. (Linha 61 em vermelho) dim rsCategoria, strQuery dim rsRegiao, strQuery dim rsNoticia, idNoticia Veja o código <% dim rsCategoria, strQuery dim rsRegiao, strQuery dim rsNoticia, idNoticia idNoticia = Request("idNoticia") Set rsRegiao = Server.CreateObject("ADODB.Recordset") rsRegiao.CursorLocation = 3 strQuery = "select id, regiao1 from Regiao1 order by regiao1" rsRegiao1.Open strQuery, Dados Set rsCategoria = Server.CreateObject("ADODB.Recordset") rsCategoria.CursorLocation = 3 strQuery = "select id, categorias from Categorias order by categorias" rsCategoria.Open strQuery, Dados set rsNoticia = Server.CreateObject("ADODB.Recordset") rsNoticia.CursorLocation = 3 strQuery = "select id, regiao, categoria, titulo, descricao, conteudo from Noticias where id = "& idNoticia rsNoticia.Open strQuery, Dados %> <form name="frmPrincipal" action="acao.asp" method="post"> <input type="hidden" name="acao" value="a"> <input type="hidden" name="idNoticia" value="<%=idNoticia%>"> <table width="100%" border="0" cellspacing="0" cellpadding="2" class="edicao"> <tr> <th colspan="4">Cadastro de Notícias</th> </tr> <tr> <td align="right">Regiao</td> <td><select name="idRegiao" id="idRegiao" title="Regiao"> <option value="">Selecione a Região</a> <% do while not rsRegiao.EOF %> <option value="<%=rsRegiao("id")%>" <%if rsNoticia("regiao") = rsRegiao("id") then %>selected<%end if%>><%=rsRegiao("regiao1")%></a> <% rsRegiao.MoveNext loop %> </select></td> </tr> <tr> <td align="right">Categoria</td> <td> <select name="idCategoria" title="Categoria"> <option value="">Selecione a Categoria</a> <% do while not rsCategoria.EOF %> <option value="<%=rsCategoria("id")%>" <%if rsNoticia("categoria") = rsCategoria("id") then %>selected<%end if%>><%=rsCategoria("categorias")%></a> <% rsCategoria.MoveNext loop %> </select> </td> </tr> <tr> <td align="right">Descrição</td> <td><input type="text" name="txtDesc" class="texto" size="30" maxlength="65" title="Descrição" value="<%=rsNoticia("descricao")%>"></td> </tr> <tr> <td align="right">Título</td> <td><input type="text" name="txtTitulo" class="texto" size="60" maxlength="255" title="Título" value="<%=rsNoticia("titulo")%>"></td> </tr> <tr> <td valign="top" colspan="2"> <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "/FCKeditor/" oFCKeditor.Config("SkinPath") = "/FCKeditor/editor/skins/office2003/" oFCKeditor.Height = 300 oFCKeditor.Value = rsNoticia("conteudo") oFCKeditor.Create "fckConteudo" %> </td> </tr> <tr> <td colspan="4" align="center"> <input type="button" name="btInclur" value="Salvar" onClick="Confirmar()" class="botao"> <input type="reset" name="btLimpar" value="Limpar" class="botao" > </td> </tr> </table> <% rsCategoria.Close set rsCategoria = nothing %> </form>

Oi pessoal beleza... Estou com um problema do qual não consegui resolver de jeito nenhum. Eu tenho um sistema de login que usa global.asa. Ele funcionava perfeitamente, mas no momento em que fui fazer a paginação para exibir as informações de acesso do usuário de forma mais organizada começou esse problema. O erro é este: ADODB.Recordset error '800a0cc1' Item cannot be found in the collection corresponding to the requested name or ordinal. /login5/home.asp, line 42 Na linha 42 eu tenho isso: Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>" Download do banco de dados para verificar que os nomes dos campos estão corretos Abaixo disponibilizo o código completo da página para ajudar a entender melhor o problema. Muito obrigado. <%@ Language=VBScript %> <%Response.Expires = 0%> <%Response.Buffer = true%> <!--#include file="verify_login.asp"--> <!--#include file="header.asp"--> <center> <% user = Session("member") set rs_log = server.CreateObject ("ADODB.Recordset") query = "SELECT * FROM User_logTime WHERE offline=True AND user_id=" & user & " ORDER BY id DESC" rs_log.Open query, Application("connString"), 3 if not rs_log.eof then set rs = server.CreateObject ("ADODB.Recordset") RS.PageSize = 5 query = "SELECT * FROM Members WHERE id=" & user rs.Open query, Application("connString"), 3, 3 IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF RS.AbsolutePage=intpagina intrec=0 While intrec < RS.PageSize and not RS.EOF Response.Write "<p class=FieldLabel>Histórico do usúario: " & rs("FirstName") & " " & rs("LastName") & " (" & rs("UserName") & ")</p>" rs.Close rs.Open "SELECT DISTINCT user_id FROM User_LogTime WHERE offline=False", Application("connString"), 3 online = rs.RecordCount Response.Write "<table cellspacing=2 cellpadding=2 width=50% >" Response.Write "<tr bgcolor=#333366>" Response.Write "<td><font class=colltitle>Sessão N.º:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Login:</a></td>" Response.Write "<td><font class=colltitle>Data e Hora do Logout:</a></td>" Response.Write "<td><font class=colltitle>IP:</a></td>" Response.Write "</tr>" & vbcrlf RS.MoveNext intrec=intrec+1 IF RS.EOF then response.write " " END IF Wend rs.Close set rs = nothing IF intpagina > 1 then %> <a href="home.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="home.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %> <% i = 1 while not rs_Log.EOF if i mod 2 then Response.Write "<tr class=defaultsmall>" else Response.Write "<tr class=defaultsmall bgcolor=#dedede>" end if Response.Write "<td>" & rs_Log("SID") & "</td>" Response.Write "<td>" & rs_Log("Login_Time") & "</td>" if rs_Log("Logout_Time") <> "" then Response.Write "<td>" & rs_Log("Logout_Time") & "</td>" else Response.Write "<td>N/A</td>" end if Response.Write "<td>" & rs_Log("user_ip") & "</td>" Response.Write "</tr>" & vbcrlf i = i + 1 rs_Log.MoveNext wend Response.Write "</table>" Response.Write "<p class=defaultsmall>" & online & " usúario(s) online.</p>" else Response.Write "<p class=FieldLabel>Este é seu primeiro acesso ao sistema.<br> Você ainda não tem histórico, faça o logout e logue-se novamente.</p>" end if rs_Log.Close set rs_Log = nothing %> <a href='logout.asp' class=errmsg>Logout!</a> </center>