Ola

Alguem pode me ajudar?

Preciso fazer um upload de imagens pra um BD e inserir o registro das imagens na tabela para serem exibidas posteriormente na pagina.

eu consigo fazer o upload belezinha , o problema ta em gravar o registro da imagem (caminho) na tabela e exbir na tela depois

 

para listar uma imagem onde na tabela fique apenas o nome do arquivo

 

            <table width="460">
              <%
      while not rst.eof
     %>
              <tr>
                <td width="115" align="left" class="formulario_tr2"><p><img src="Figuras/<% = rst("Imagem") %>" align="top"></p>
                  <p><font class="Texto1"> </font></p></td>
                <td width="115" align="left" valign="top" class="formulario_tr3"><p><font class="TextoPadrao">
                    <% = rst("Descricao do produto") %>
                    </font></p>
                  <p><a href="Default_Promocao_Detalhes.asp?Codigo=<% = rst("Codigo do produto") %>" class="LinkPadrao"><font color="#0000FF" onmouseover="MM_displayStatusMsg('CenterSul Inform&aacute;tica - Detalhes do Produto');return document.MM_returnValue">Detalhes</font></a></p>
                  <p><font class="Texto1"> </font></p></td>
                <%
        if not rst.eof then
          rst.movenext
        end if
       %>
                <td width="115" align="left" class="formulario_tr2"><p><img src="Figuras/<% = rst("Imagem") %>" align="top"></p>
                  <p><font class="Texto1"> </font></p></td>
                <td width="115" align="left" valign="top" class="formulario_tr2" onMouseOver="MM_displayStatusMsg('CenterSul Inform&aacute;tica - Detalhes do Produto');return document.MM_returnValue">
<p><font class="TextoPadrao">
                    <% = rst("Descricao do produto") %>
                    </font></p>
                  <p><a href="Default_Promocao_Detalhes.asp?Codigo=<% = rst("Codigo do produto") %>" class="LinkPadrao"><font color="#0000FF">Detalhes</font></a></p></td>
              </tr>
              <%
      if not rst.eof then
           rst.movenext
      end if
      wend  
     %>
            </table></td>

Tá certo

mas como eu gravo o caminho da imagem no BD

tipo Eu fui fiz o upload (Locaweb,componente Dundas ,ou SaFileup,ou até sem componente)

mas eu não consigo gravar o caminho na tabela Insert Into num vai.:(

tem como?

 

dá uma olhada neste exemplo:

 

<!--#include file="./Conexao_bd_adm.asp" -->
<%
  if session ("Usuario") = "" then
    Response.Redirect("Login.asp")
  end if
%>
<% 
  on error resume next
 Dim Descricao, Grupo, Caracteristicas, Garantia, Estoque, Ativo, Imagem, SQL, rst, Erro
 Dim rst1, SQL1, Upload, rst2, SQL2, Filename
  Set Upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  Upload.Upload
  For each file In Upload.Files
    Filename = File.filename
  'se for maior que 15kb
  if file.Size > 15000 then
     Erro = 7
     Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro) 
  'se não for jpg ou jpeg ou gif não deixa gravar
  elseif (file.FileExt <> "jpg" and file.FileExt <> "jpeg" and file.FileExt <> "gif") then
     Erro = 8
     Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
  end if
  exit for
  Next
  Upload.Save(server.MapPath("../Figuras"))  
  Descricao = Upload.form("Descricao")
  Grupo = Upload.form("Grupo")
 Caracteristicas = Upload.form("Caracteristicas")
 Garantia = Upload.form("Garantia")
 Estoque = upload.form("Estoque")
 Ativo = upload.form("Ativo")
  Descricao = ucase(trim(Descricao))
 Caracteristicas = ucase(trim(Caracteristicas))
 Garantia = ucase(trim(Garantia)) 
 'tabela produtos
 SQL = "Select * From Produtos"
  Set rst = server.createobject("adodb.recordset")
  rst.open SQL, vgdb, 2, 2
 'tabela produtos (verificar se já tem outro produto com a descricao informada)
 SQL1 = "Select [Codigo do produto] From Produtos Where [Descricao do produto] = '"&Descricao&"'"
  Set rst1 = server.createobject("adodb.recordset")
  rst1.open SQL1, vgdb, 1, 1
 'tabela grupo de produtos (verificar se existe o grupo)
 SQL2 = "Select * From Grupo_de_produtos Where [Codigo do grupo] = "&Grupo
  Set rst2 = server.createobject("adodb.recordset")
  rst2.open SQL2, vgdb, 1, 1
 if Descricao = "" then
   Erro = 1 'a descricao não pode ser em branco
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing
  set Upload = nothing 
  Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
 elseif Caracteristicas = "" then
   Erro = 2 'a caracteristica não pode ser em branco
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing
  set Upload = nothing 
  Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
 elseif Garantia = "" then
   Erro = 3 'a garantia não pode ser em branco
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing
  set Upload = nothing     
  Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
 elseif Estoque = "" then
   Erro = 4 'o estoque não pode ser em branco
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing
  set Upload = nothing     
  Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
  elseif rst1.eof = False then
   Erro = 5 'já existe algum produto com a mesma descricao
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing
  set Upload = nothing     
  Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
  elseif rst2.eof then
   Erro = 6 'o grupo do produto não existe
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing      
  set Upload = nothing
  Response.Redirect("Inserir_Produtos_Erro.asp?Erro="&Erro)
  else 'está tudo ok, vamos cadastrar
    rst.addnew
   rst("Descricao do produto") = Descricao
  rst("Codigo do grupo") = Grupo
  rst("Caracteristicas") = Caracteristicas
  rst("Garantia") = Garantia
  rst("Estoque") = Estoque
  If Ativo = 1 then
    rst("Ativo") = True
  else
     rst("Ativo") = False
  end if
  rst("Em promocao") = false 
   rst("Imagem") = Filename
   rst.update 
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
   rst2.close
   set rst2 = nothing
  set Upload = nothing     
  Response.Redirect("Default.asp") 
 end if
%>

O phoda e que meu server(locaweb) não suporta ASPSmartUpload,

no caso em Dundas ou SAFILEUP , muda muita coisa não?

Obrigado