[Resolvido] Problemas com o Persits.Upload

Web Design Valdeci · Dezembro 15, 2009

Boa Noite,

Estou criando um sistema de upload de imagens.

Ele funciona normal se eu coloco uma imagem, é um sistema de notícias, mas se eu não coloco imagens ele dá erro. alguem poderia me ajudar? Envio abaixo o form e a programação:

<form action="noticias.asp?opc=<%if opc = "editar" then%>atualizar<%else%>inserir<%end if%>" method="post" enctype="multipart/form-data" name="form1" id="form1">
            <table width="739" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="159" valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Título</span> </div></td>
                <td width="340" valign="top"><div align="left">
                    <input name="titulo" type="text" class="txt" id="titulo" value="<% if opc = "editar"then %><%=var_titulo%><% end if %>" size="50" maxlength="50" />
                    <input name="id" type="hidden" id="id" value="<% if opc = "editar" then %><%=var_id%><%end if%>">
                </div></td>
                <td width="240" rowspan="5" valign="top"><div align="center">
                  <% if opc = "editar" then %>
                  <% if var_imagem <> "" then %>
                    <img src="../assets/img/images/<%=var_imagem%>" height="140" border="1">
                    <%end if%>
                  <%end if%>
                </div></td>
              </tr>
              <tr>
                <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Chamada</span> </div></td>
                <td valign="top"><div align="left">
                    <input name="chamada" type="text" class="txt" id="chamada" value="<% if opc = "editar"then %><%=var_chamada%><% end if %>" size="50" maxlength="100" />
                </div></td>
              </tr>
              <tr>
                <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Conteúdo</span> </div></td>
                <td valign="top"><div align="left">
                    <textarea name="conteudo" cols="55" rows="15" class="txt" id="conteudo"><% if opc = "editar"then %><%=var_conteudo%><% end if %>
            </textarea>
                </div></td>
              </tr>
              <tr>
                <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Exibir</span> </div></td>
                <td valign="top"><div align="left">
                    <input name="exibir" type="radio" value="Sim" <% if opc = "editar"then %><% if var_exibir = "Sim" then %>checked<% end if %><% end if %>>
                    <span class="txt_cinza_11">Sim</span> 
                    <input name="exibir" type="radio" value="Não" <% if opc = "editar"then %><% if var_exibir = "Não" then %>checked<% end if %><% end if %>>
                    <span class="txt_cinza_11">Não</span></div></td>
              </tr>
              <tr>
                <td valign="top" class="txt_laranja_11"><div align="right" class="txt_cinza_11">Imagem </div></td>
                <td valign="top"><div align="left">
                    <input name="campo" type="file" class="txt" id="campo">
                </div></td>
              </tr>
              <% if opc = "editar" then %>
              <tr>
                <td height="20" valign="middle"><div align="right">
                    <input name="Button" type="button" class="botao" value="novo" onClick="MM_goToURL('parent','noticias.asp');return document.MM_returnValue"/>
                   </div></td>
                <td height="20" colspan="2" valign="middle"><div align="left">
                    <input name="Submit2" type="submit" class="botao" value="atualizar" />
                   
                  <input name="Submit3" type="button" class="botao" value="excluir" onClick="MM_goToURL('parent','noticias.asp?opc=excluir&id=<%=var_id%>');return document.MM_returnValue"/>
                </div></td>
              </tr>
              <% end if %>
              <% if opc <> "editar" then %>
              <tr>
                <td height="20" valign="middle"><div align="right"></div></td>
                <td height="20" colspan="2" valign="middle"><div align="left">
                    <input name="Submit22" type="submit" class="botao" value="inserir" />
                </div></td>
              </tr>
              <% end if %>
            </table>
        </form>

Script

IF opc = "inserir" THEN
session.LCID = 1046 
Dim Upload, PegaNomeCampo, NomeCampo

    Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto
    Upload.Save("E:\caminho do site\")
    PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo

    NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo

  titulo = Upload.form("titulo")
  chamada = Upload.form("chamada")  
  conteudo = Upload.form("conteudo")
  exibir = Upload.form("exibir")
  data_add = year(now)&"/"&month(now)&"/"&day(now)
  hora_add = time()      
  Set cs_inserir = Server.CreateObject("ADODB.RecordSet")
  if PegaNomeCampo = "" then
  cs_inserir.open "INSERT INTO noticias (titulo,chamada,conteudo,exibir,data_add,hora_add) VALUES ('"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&data_add&"','"&hora_add&"')", Conexao
  else
  imagem = NomeCampo 
  cs_inserir.open "INSERT INTO noticias (titulo,chamada,conteudo,exibir,imagem,data_add,hora_add) VALUES ('"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&imagem&"','"&data_add&"','"&hora_add&"')", Conexao
  end if
  response.redirect("noticias.asp")
END IF

Quero que na hora que eu não colocar imagem no campo de upload ele salvar somente os textos sem a imagem e quando eu colocar a imagem ele salvar o texto e a imagem que eu colocar.

Se alguem puder me ajudar, Obrigado,

xanburzum · Dezembro 15, 2009

imagem é um campo requerido....

ele gera algum erro ?

jrcardozo · Dezembro 15, 2009

faça um loop dos inputs. veja esse exemplo do proprio manual do fabricante

For Each File in Upload.Files

File.SaveAs Path & "\" & File.FileName

Response.Write "File saved as " & File.Path & "<BR>"

Web Design Valdeci · Dezembro 15, 2009

Quanto tento inserir alguma coisa sem inserir uma imagem ele dá o seguinte erro:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Files(...)'

/adm/NossosClientes.asp, line 38

Talvez um if resolveria mas tentei várias coisas e não consegui...

O que o jonathan Cardozo disse talvez funcionaria, mas onde eu colocaria isso?

xanburzum · Dezembro 15, 2009

verifique se tentou fechar ou definir a nada um objeto que não foi definida. Para reproduzir, tente este código:

Web Design Valdeci · Dezembro 15, 2009

É o seguinte, eu utilizo este script com DundasUpload, e funciona normal, peguei um artivo pronto do Persist.Upload aqui feito por um dos moderadores e não sei muito mexer com este tipo de componente. Igual disse, ele funciona se eu inserir uma imagem. São 5 campos, titulo, chamada, conteudo, exibir e imagem. Se eu tentar preencher todos os outros campos e não colocar a imagem ele dá aquele erro acima... se eu colocar a imagem ele inseire normal certinho. é algum problema com condição mesmo, se o campo de upload for zero ele tem que inserir sem a imagem, só que eu não consigo fazer. E agora o que faço?

xanburzum · Dezembro 15, 2009

você ja consultou o manual do componente

Web Design Valdeci · Dezembro 15, 2009

Já consultei mas não consegui encontrar um exemplo do formato que preciso

Olha o que eu fiz:

IF opc = "inserir" THEN
session.LCID = 1046 
Dim Upload, PegaNomeCampo, NomeCampo
Set Upload = Server.CreateObject("Persits.Upload") ' Criando o Objeto
VarCampo = Upload.form("Campo")
if varCampo <> "" then
Upload.Save("E:\USERS\gunetmg\www\comw\assets\img\images\")
PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo
NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
imagem = NomeCampo 
var_categoria = Upload.form("categoria")
titulo = Upload.form("titulo")
chamada = Upload.form("chamada")  
conteudo = Upload.form("conteudo")
exibir = Upload.form("exibir")
data_add = year(now)&"/"&month(now)&"/"&day(now)
hora_add = time()  
Set cs_inserir = Server.CreateObject("ADODB.RecordSet")
cs_inserir.open "INSERT INTO texto (IdCatLinks,titulo,chamada,conteudo,exibir,imagem,data_add,hora_add) VALUES ("&var_categoria&",'"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&imagem&"','"&data_add&"','"&hora_add&"')", Conexao
Else
var_categoria = Request.form("categoria")
titulo = Request.form("titulo")
chamada = Request.form("chamada")  
conteudo = Request.form("conteudo")
exibir = Request.form("exibir")
data_add = year(now)&"/"&month(now)&"/"&day(now)
hora_add = time()        
Set cs_inserir = Server.CreateObject("ADODB.RecordSet")
cs_inserir.open "INSERT INTO texto (IdCatLinks,titulo,chamada,conteudo,exibir,data_add,hora_add) VALUES ("&var_categoria&",'"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&data_add&"','"&hora_add&"')", Conexao
  end if
  response.redirect("texto.asp")
END IF

Ele deu este erro:

ySQL][ODBC 3.51 Driver][mysqld-5.0.51b-community-nt-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ''','','','','2009/12/15','15:00:15')' at line 1

/adm/texto.asp, line 67

Ele pegou apenas os capos de hora e data, e os campos que eu dei o request ele não pegou... porque será?

Web Design Valdeci · Dezembro 15, 2009

Consegui:

Coloquei o que tá de vermelho e funcionou.

[color="#FF0000"]
If Not Upload.Files("Campo") Is Nothing Then [/color]
PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo
NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
[color="#FF0000"]End if[/color]

Agora preciso atualizar, mas ele continua dando erro. Eu mando editar, os dados aparecem nos campos com a imagem tb... mando atualizar e dá erro:

IF opc = "atualizar" THEN
session.LCID = 1046 
Set Upload = Server.CreateObject("Persits.Upload.1") ' Criando o Objeto
Upload.Save("Caminho")
If Not Upload.Files("Campo") Is Nothing Then 
PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo
NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
End if
var_categoria = Upload.form("categoria")
titulo = Upload.form("titulo")
chamada = Upload.form("chamada")  
conteudo = Upload.form("conteudo")
exibir = Upload.form("exibir")
data_add = year(now)&"/"&month(now)&"/"&day(now)
hora_add = time()        
Set cs_inserir = Server.CreateObject("ADODB.RecordSet")
if NomeCampo = "" then
cs_inserir.open "UPDATE texto SET IdCatLinks ="&var_categoria&", titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao
else
imagem = NomeCampo 
cs_inserir.open "UPDATE texto SET IdCatLinks ="&var_categoria&", titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"', imagem='"&imagem&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao
  end if
  response.redirect("texto.asp")
END IF

Conferi o Update mas da erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 

[MySQL][ODBC 3.51 Driver][mysqld-5.0.51b-community-nt-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 

/adm/texto.asp, line 90

E na linha 90 tá o update:

cs_inserir.open "UPDATE texto SET IdCatLinks ="&var_categoria&", titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao

E agoga?

Web Design Valdeci · Dezembro 16, 2009

RESOLVIDO.

Eu tinha esquecido de fazer o request do id por isso não deu.

Vou postar o código certinho pra quem precisar. Fiz tudo na mesma página, inserir, atualizar e excluir.

Arquivo: texto.asp

banco de dados Mysql

CREATE TABLE `texto` (
  `id` int(11) NOT NULL auto_increment,
  `titulo` longtext,
  `chamada` longtext,
  `conteudo` longtext,
  `exibir` varchar(3) default NULL,
  `imagem` varchar(255) default NULL,
  `data_add` date default NULL,
  `hora_add` varchar(10) default NULL,
  `IdCatLinks` int(11) default NULL,
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1 AUTO_INCREMENT=35 ;


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../assets/conexao/conexao.asp" -->
<%
opc = request.querystring("opc")

Set cs_categoria = Server.CreateObject("ADODB.Recordset")
cs_categoria.Open "SELECT * FROM catlinks ORDER BY id asc", Conexao

Set cs_listar = Server.CreateObject("ADODB.Recordset")
cs_listar.Open "SELECT * FROM texto ORDER BY data_add desc", Conexao


IF opc = "editar" THEN
  id = request.querystring("id")
  Set cs_editar = Server.CreateObject("ADODB.Recordset")
  cs_editar.Open "SELECT * FROM texto WHERE id = "&id&"", Conexao

  While (Not cs_editar.EOF)
  var_categoria = cs_editar.Fields.Item("idCatLinks").Value
  var_titulo = cs_editar.Fields.Item("titulo").Value
  var_chamada= cs_editar.Fields.Item("chamada").Value
  var_conteudo= cs_editar.Fields.Item("conteudo").Value
  var_exibir= cs_editar.Fields.Item("exibir").Value
  var_imagem= cs_editar.Fields.Item("imagem").Value 
  var_id= cs_editar.Fields.Item("id").Value
  cs_editar.MoveNext()
  Wend
END IF

If opc="excluir" then
id = Request.QueryString("id")
funcaototal = "Delete  From texto Where id="&id
Conexao.Execute(funcaototal)
response.redirect("texto.asp")
End if


IF opc = "inserir" THEN
session.LCID = 1046 
Dim Upload, PegaNomeCampo, NomeCampo
Set Upload = Server.CreateObject("Persits.Upload.1") ' Criando o Objeto
Upload.Save("E:caminho onde está a pasta no servidor")
'VarCampo = Upload.Files("Campo").FileName

If Not Upload.Files("Campo") Is Nothing Then 
PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo
NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
End if
'For Each File in Upload.Files
'File.SaveAs Path & "\" & File.FileName
'Response.Write "File saved as " & File.Path & "<BR>"
'Next
var_categoria = Upload.form("categoria")
titulo = Upload.form("titulo")
chamada = Upload.form("chamada")  
conteudo = Upload.form("conteudo")
exibir = Upload.form("exibir")
data_add = year(now)&"/"&month(now)&"/"&day(now)
hora_add = time()        
Set cs_inserir = Server.CreateObject("ADODB.RecordSet")
if NomeCampo = "" then
cs_inserir.open "INSERT INTO texto (IdCatLinks,titulo,chamada,conteudo,exibir,data_add,hora_add) VALUES ("&var_categoria&",'"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&data_add&"','"&hora_add&"')", Conexao
else
imagem = NomeCampo 
cs_inserir.open "INSERT INTO texto (IdCatLinks,titulo,chamada,conteudo,exibir,imagem,data_add,hora_add) VALUES ("&var_categoria&",'"&titulo&"','"&chamada&"','"&conteudo&"','"&exibir&"','"&imagem&"','"&data_add&"','"&hora_add&"')", Conexao
  end if
  response.redirect("texto.asp")
END IF


IF opc = "atualizar" THEN
session.LCID = 1046 
Set Upload = Server.CreateObject("Persits.Upload.1") ' Criando o Objeto
Upload.Save("E:caminho onde está a pasta no servidor")
If Not Upload.Files("Campo") Is Nothing Then 
PegaNomeCampo = Upload.Files("Campo").FileName '  Pegando o conteúdo do campo todo
NomeCampo = Right(PegaNomeCampo, Len(PegaNomeCampo) - InstrRev(PegaNomeCampo,"\")) ' Pegar os últimos valores do campo
End if
id = Upload.form("id")
var_categoria = Upload.form("categoria")
titulo = Upload.form("titulo")
chamada = Upload.form("chamada")  
conteudo = Upload.form("conteudo")
exibir = Upload.form("exibir")
data_add = year(now)&"/"&month(now)&"/"&day(now)
hora_add = time()        
Set cs_inserir = Server.CreateObject("ADODB.RecordSet")
if NomeCampo = "" then
cs_inserir.open "UPDATE texto SET IdCatLinks ="&var_categoria&", titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao
else
imagem = NomeCampo 
cs_inserir.open "UPDATE texto SET IdCatLinks ="&var_categoria&", titulo ='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', exibir='"&exibir&"', imagem='"&imagem&"',data_add='"&data_add&"',hora_add='"&hora_add&"' WHERE id = "&id&"", Conexao
  end if
  response.redirect("texto.asp")
END IF

%>

<table width="779" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="3"> </td>
        </tr>
        <tr>
          <td width="20"> </td>
          <td width="739" class="txt_laranja_12_bold"><div align="left"><span class="sub_titulo12"> GERENCIAMENTO: CADASTRO DE CONTEÚDO PARA OS LINKS </span></div></td>
          <td width="20"> </td>
        </tr>
        <tr>
          <td width="20"> </td>
          <td width="739"> </td>
          <td width="20"> </td>
        </tr>
        <tr>
          <td width="20"> </td>
          <td width="739" class="txt_laranja_11_bold"><div align="left" class="txt_cinza_11_bold">GERENCIAMENTO DE CONTEÚDO PARA OS texto </div></td>
          <td width="20"> </td>
        </tr>
        <tr>
          <td> </td>
          <script language="JavaScript" type="text/javascript">
function Validar(form)
{
if (form.categoria.value == "0")
{ alert("Por favor selecione uma categoria "); form.categoria.focus(); return; }
form.submit();
}
                    </script>
          <td width="739"><form action="texto.asp?opc=<%if opc = "editar" then%>atualizar<%else%>inserir<%end if%>" method="post" enctype="multipart/form-data" name="form1" id="form1" onSubmit="javascript:if (Validar(this)) return true; else return false;">
              <table width="739" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td class="txt_laranja_11"> </td>
                  <td valign="top"> </td>
                  <td width="240" rowspan="7" valign="top"><div align="center">
                    <% if opc = "editar" then %>
                    <% if var_imagem <> "" then %>
                    <img src="../assets/img/images/<%=var_imagem%>" height="140" border="1">
                      <%end if%>
                    <%end if%>
                  </div></td>
                </tr>
                <tr>
                  <td class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Selecione o nome do link  </span></div></td>
                  <td width="340" rowspan="2" valign="top"><select name="categoria" class="txt" id="categoria">
                      <option value="0" <%if opc <> "editar" then%>selected<%end if%>>Selecione uma Categoria</option>
                      <%
While (not cs_categoria.EOF)
varseg = cint(cs_categoria.Fields.Item("id").Value)
%>
                      <option <%if opc = "editar" then%><%if varseg = var_categoria then%>selected<%end if%><%end if%> value="<%=(cs_categoria.Fields.Item("id").Value)%>"><%=(cs_categoria.Fields.Item("nome").Value)%></option>
                      <%
  cs_categoria.MoveNext()
  Wend
%>
                    </select>
                      <input name="id" type="hidden" id="id" value="<% if opc = "editar" then %><%=var_id%><%end if%>">
                      <div align="left">
                        <input name="titulo" type="text" class="txt" id="titulo" value="<% if opc = "editar"then %><%=var_titulo%><% end if %>" size="50" />
                    </div></td>
                </tr>
                <tr>
                  <td width="159" valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Título</span> </div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Chamada</span> </div></td>
                  <td valign="top"><div align="left">
                      <input name="chamada" type="text" class="txt" id="chamada" value="<% if opc = "editar"then %><%=var_chamada%><% end if %>" size="50" />
                  </div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Conteúdo</span> </div></td>
                  <td valign="top"><div align="left">
                    <textarea id="conteudo" name="conteudo" rows="15" style="width: 100%;"><% if opc = "editar"then %><%=var_conteudo%><% end if %>
                    </textarea>
                  </div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right"><span class="txt_cinza_11">Exibir</span> </div></td>
                  <td valign="top"><div align="left">
                      <input name="exibir" type="radio" value="Sim" <% if opc = "editar"then %><% if var_exibir = "Sim" then %>checked<% end if %><% end if %>>
                      <span class="txt_cinza_11">Sim</span> 
                      <input name="exibir" type="radio" value="Não" <% if opc = "editar"then %><% if var_exibir = "Não" then %>checked<% end if %><% end if %>>
                      <span class="txt_cinza_11">Não</span></div></td>
                </tr>
                <tr>
                  <td valign="top" class="txt_laranja_11"><div align="right" class="txt_cinza_11">Arquivo </div></td>
                  <td valign="top"><input name="campo" type="file" class="txt" id="campo"></td>
                </tr>
                <% if opc = "editar" then %>
                <tr>
                  <td height="20" valign="middle"><div align="right">
                      <input name="Button2" type="button" class="botao" value="novo" onClick="MM_goToURL('parent','texto.asp');return document.MM_returnValue"/>
                     </div></td>
                  <td height="20" colspan="2" valign="middle"><div align="left">
                      <input name="Submit23" type="submit" class="botao" value="atualizar" />
                     
                    <input name="Submit32" type="button" class="botao" value="excluir" onClick="MM_goToURL('parent','texto.asp?opc=excluir&id=<%=var_id%>');return document.MM_returnValue"/>
                  </div></td>
                </tr>
                <% end if %>
                <% if opc <> "editar" then %>
                <tr>
                  <td height="20" valign="middle"><div align="right"></div></td>
                  <td height="20" colspan="2" valign="middle"><div align="left">
                      <input name="Submit222" type="submit" class="botao" value="inserir" />
                  </div></td>
                </tr>
                <% end if %>
              </table>
          </form>
              <strong></strong></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td><div align="left"><span class="txt_cinza_11_bold">CONTEÚDO DE texto  CADASTRADOS</span></div></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td><table width="779" border="0" cellspacing="2" cellpadding="0">
              <tr>
                <td width="47" bgcolor="#DFDFDF" class="txt_cinza_11_bold"> </td>
                <td width="136" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Links Associado </div></td>
                <td width="419" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Título</div></td>
                <td width="43" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Exibir</div></td>
                <td width="122" bgcolor="#DFDFDF" class="txt_cinza_11_bold"><div align="left"> Adicionada</div></td>
              </tr>
              <%			
			cont = 0
			While (Not cs_listar.EOF)
			var_titulo = cs_listar.Fields.Item("titulo").Value
			var_exibir = cs_listar.Fields.Item("exibir").Value
			var_adicionado = cs_listar.Fields.Item("data_add").Value&" - "&cs_listar.Fields.Item("hora_add").Value
			var_id = cs_listar.Fields.Item("id").Value
			var_idCat = cs_listar.Fields.Item("idCatLinks").Value
			Set CsCatLinks = Server.CreateObject("ADODB.Recordset")
			CsCatLinks.Open "SELECT * FROM CatLinks Where id = "&var_idCat&"", Conexao
			While not CsCatLinks.EOF
			var_NomeCategoria = CsCatLinks.Fields.Item("nome").Value
			CsCatLinks.MoveNext()
			Wend
			if cont mod 2 = 0 then
			cor_fundo = "#F2F2F2"
			else
			cor_fundo = "#FFFFFF"
			end if
%>
              <tr>
                <td bgcolor="<%=cor_fundo%>"><div align="center"><a href="texto.asp?opc=editar&id=<%=var_id%>" class="link_cinza_under">editar</a></div></td>
                <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_NomeCategoria%></div></td>
                <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_titulo%></div></td>
                <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_exibir%></div></td>
                <td bgcolor="<%=cor_fundo%>"><div align="left" class="txt_cinza_11"> <%=var_adicionado%></div></td>
              </tr>
              <%
			cont = cont + 1
			cs_listar.MoveNext()
			Wend
%>
              <% if cont = 0 then %>
              <tr>
                <td colspan="5" bgcolor="#EAEAEA"><div align="center" class="txt_laranja_11">Não há  notícias cadastradas!!! </div></td>
              </tr>
              <% end if %>
          </table></td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td> </td>
          <td> </td>
        </tr>
        <tr>
          <td> </td>
          <td width="739"><div align="left"><a href="menu.asp" class="link_laranja_under">voltar</a></div></td>
          <td> </td>
        </tr>
      </table>

xanburzum · Dezembro 16, 2009

beleza

Arquivado

[Resolvido] Problemas com o Persits.Upload

Recommended Posts

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Web Design Valdeci 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

PHP+Codeigniter - Dúvida referente a PDV

PHP+Codeigniter - Dúvida em Relação a Teclas

Fóruns

Tempo Real

Informação importante