Erro...

Fabio_Porps · Dezembro 5, 2012

Quando vou postar alguma noticia com imagem está aparecendo esse erro...

Microsoft OLE DB Provider for SQL Server error '80040e57'

String or binary data would be truncated.

/adm/adm_noticias.asp, line 167

Noticia sem imagem eu consigo cadastrar normalmente...

Código está da seguinte forma...

<%if session("autorizado") = true then%>
<!--#include file="inicio.asp"-->
<%
'***************************************************INICIO CORPO DE TEXTO
'response.Write(session("temp_noticia"))
%>
<%opcao = request("opcao")%>

<%if opcao = "exclui" then
id_noticia = request("id_noticia")

' apaga arquivo foto principal
strsql = "select foto_principal from tbl_noticias where id_noticia="&id_noticia
set consulta = conexao.execute(strsql)
arquivo = consulta("foto_principal")
set consulta = nothing

if len(arquivo)>0 then
	'apaga arquivo
	SET fso = Server.CreateObject("Scripting.FileSystemObject")
	FSO.DeleteFile (endereco_fisico_dados & "imagens\"&arquivo), true
	'"
	Set fso = Nothing
end if

'apaga banco
strsql = "delete tbl_noticias from tbl_noticias where id_noticia="&id_noticia
conexao.execute(strsql)

'apaga arquivo de figura

strsql = "select * from tbl_noticiasXimagens where cod_noticia="&id_noticia
set consulta = conexao.execute(strsql)
do while not consulta.eof
SET fso = Server.CreateObject("Scripting.FileSystemObject")
	pasta = endereco_fisico_dados & "imagens/" 'selecione a pasta
	set listar = fso.getfolder(pasta)
		For each x in listar.files
			if lcase(consulta("figura")) = lcase(x.name) then
				FSO.DeleteFile (endereco_fisico_dados&"\imagens\"&consulta("figura")), true
			'"
			end if
		Next
set fso = nothing
consulta.movenext
loop
set consulta = nothing

strsql = "delete tbl_noticiasXimagens from tbl_noticiasXimagens where cod_noticia="&id_noticia
conexao.execute(strsql)

response.write "Operação Realizada com Sucesso!"
%>
<br />
<a href="adm_noticias.asp?opcao=incluir" target="_self" style="font-family:Verdana, Geneva, sans-serif; font-size:14px; color:#333;">Incluir nova</a>
<%

end if%>

<%if opcao = "altera" then
session("erro") = false
id_noticia = valida_q(request("id_noticia"),"CÓDIGO DA NOTÍCIA")
titulo = valida_q(request("titulo"),"TITULO")
texto = valida_nq(request("texto"))
clipping = valida_a(request("clipping"))
ativo = valida_a(request("ativo"))
olho = valida_nq(request("olho"))
home = valida_a(request("home"))
destaque = valida_a(request("destaque"))
data_noticia = request("data_noticia")
fonte = valida_a(request("fonte"))
'data_noticia = cdate(converte_dt(data_noticia,"ing"))
tipo = valida_q(request("tipo"),"TIPO")
sobre_img = request("sobre_img")
foto_antiga = request("foto_antiga")
categoria = request("categoria")

if session("erro") = false then
strsql  = "update tbl_noticias set titulo='"&titulo&"',olho='"&olho&"',ativo="&ativo&",clipping="&clipping&",fonte="&fonte&",home="&home&",destaque="&destaque&",texto='"&texto&"',data_noticia='"&data_noticia&"',tipo='"&tipo&"' where id_noticia="&id_noticia
conexao.execute(strsql)

strsql = "delete tbl_noticiasXcat from tbl_noticiasXcat where cod_noticia="&id_noticia
conexao.execute(strsql)

if len(categoria)>0 then
y= 1
cat = trim(replace(categoria," ",""))&","
do while len(cat) <> 0
y= instr(cat,",")
categ_inclui=replace(mid(cat,1,y),",","")
strsql = "insert into tbl_noticiasXcat(cod_noticia,cod_categoria)values("&id_noticia&","&categ_inclui&")"
conexao.execute(strsql)
total = total +1
cat=mid(cat,y+1,len(categoria))
loop
end if


select case sobre_img
case "excluir"
if len(foto_antiga)>0 then
	'apaga arquivo
	SET fso = Server.CreateObject("Scripting.FileSystemObject")
	FSO.DeleteFile (endereco_fisico_dados & "imagens\"&foto_antiga), true
	'"
	Set fso = Nothing
end if
strsql  = "update tbl_noticias set foto_principal='' where id_noticia="&id_noticia
conexao.execute(strsql)
%>
Operação Realizada com Sucesso!<br />
<a href="adm_noticias.asp?opcao=incluir" target="_self" style="font-family:Verdana, Geneva, sans-serif; font-size:14px; color:#333;">Incluir nova</a>
<%
case "alterar"
%>
<b>Enviar imagem para ser utilizada:</b>
  <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="grava_img.asp?tipo=noticia&id=<%=id_noticia%>">
<br><font face=arial size=2>Imagem: <BR> 
<INPUT TYPE="FILE" SIZE="10" NAME="File1"><BR></font>
  <INPUT TYPE=SUBMIT VALUE="Enviar Imagem">
  </FORM>
<%
case else
if len(session("temp_noticia"))>0 then
session("temp_noticia") =  session("temp_noticia") + 1
end if

if session("temp_noticia") > 1 and session("temp_noticia") < 4 then

  set ultimo = conexao.execute("select top 1 id_noticia from tbl_noticias where home = 1 and destaque = 1 and ativo = 1 order by id_noticia")
   if not ultimo.eof then
	    noticia_id = ultimo("id_noticia")
	 end if
 set ultimo = nothing

 conexao.execute("update tbl_noticias set ativo = 0 where id_noticia = "&noticia_id)

end if
%>
Operação Realizada com Sucesso!<br />
<a href="adm_noticias.asp?opcao=incluir" target="_self" style="font-family:Verdana, Geneva, sans-serif; font-size:14px; color:#333;">Incluir nova</a>
<%
end select
else
response.write "<p>É necessário voltar e corrigir os erros acima para prosseguir"
end if
end if%>

<%if opcao="grava" then
session("erro") = false
titulo = valida_q(request("titulo"),"TITULO")
texto = valida_nq(request("texto"))
clipping = valida_a(request("clipping"))
tipo = valida_q(request("tipo"),"TIPO")
ativo = valida_a(request("ativo"))
home = valida_a(request("home"))
destaque = valida_a(request("destaque"))
olho = valida_nq(request("olho"))
fonte = valida_a(request("fonte"))
'data_noticia = converte_dt(request("data_noticia"),"ing")
data_noticia = request("data_noticia")
sobre_img = request("sobre_img")
categoria = request("categoria")

if session("erro") = false then
strsql  = "insert into tbl_noticias(titulo,olho,data_inclusao,texto,cliques,home,destaque,ativo,data_noticia,tipo,clipping,fonte)values('"&titulo&"','"&olho&"',getdate(),'"&texto&"',0,"&home&","&destaque&","&ativo&",'"&data_noticia&"','"&tipo&"',"&clipping&","&fonte&")"
[s]conexao.execute(strsql)[/s]

strsql = "select max(id_noticia) as maximo from tbl_noticias"
set consulta = conexao.execute(strsql)
id_noticia = consulta("maximo")
set consulta = nothing

if len(categoria)>0 then
y= 1
cat = trim(replace(categoria," ",""))&","
do while len(cat) <> 0
y= instr(cat,",")
categ_inclui=replace(mid(cat,1,y),",","")
strsql = "insert into tbl_noticiasXcat(cod_noticia,cod_categoria)values("&id_noticia&","&categ_inclui&")"
conexao.execute(strsql)
total = total +1
cat=mid(cat,y+1,len(categoria))
loop
end if

select case sobre_img
case "sim"
%>
<b>Enviar imagem para ser utilizada:</b>
  <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="grava_img.asp?tipo=noticia&id=<%=id_noticia%>">
<br><font face=arial size=2>Imagem: <BR> 
<INPUT TYPE="FILE" SIZE="10" NAME="File1"><BR></font>
  <INPUT TYPE=SUBMIT VALUE="Enviar Imagem">
  </FORM>
<%
case else
session("temp_noticia") =  session("temp_noticia") + 1
%>
Operação Realizada com Sucesso!<br />
<a href="adm_noticias.asp?opcao=incluir" target="_self" style="font-family:Verdana, Geneva, sans-serif; font-size:14px; color:#333;">Incluir nova</a>
<%
end select
else
response.write "<p>É necessário voltar e corrigir os erros acima para prosseguir"
end if
end if%>

<%if opcao="incluir" then%>

<%
if len(session("temp_noticia") ) = 0 then
  session("temp_noticia") = 1
end if
%>

<form method=post action=adm_noticias.asp?opcao=grava>
<table style="font-size: 10pt;">



<tr>
<td>Titulo</td>
<td><input type="text" name="titulo" size=50></td>
</tr>
<tr><td colspan=2>
Olho:<Br>
<textarea name="olho" style="width:450; height:300"></textarea>
</td></tr>
<TR>
<Td>Tipo</td>
<TD>
<input type="radio" name="tipo" value="noticia" checked> Notícia
<input type="radio" name="tipo" value="imprensa"> Imprensa
<input type="radio" name="tipo" value="evento"> Eventos Realizados
</td>
</tr>
<tr>
<td><b>Foto Principal:</b> </td>
<td><input type="radio" name="sobre_img" value="nao" <% if  session("temp_noticia") >=3 then response.Write("checked=""checked""") end if %>> Sem Imagem <input type="radio" name="sobre_img" value="sim" <% if  session("temp_noticia") <= 2 then response.Write("checked=""checked""") end if %>> Com Imagem </td>
</tr>
<tr>
<td>Categoria</td>
<td>
<%
strsql = "select * from tbl_categorias where v_noticia=1 order by nome"
set consulta = conexao.execute(strsql)
do while not consulta.eof
%>
<br><input type="checkbox" name="categoria" value="<%=consulta("id_categoria")%>"> <%=consulta("nome")%>
<%
consulta.movenext
loop
set consulta=nothing

%>
</select>	
</td></tr>
<tr><td colspan=2>
Texto:<Br>

<script>
	chamaHTML("texto");
</script>


<textarea name="texto" id="texto" style="width:450px; height:500px"></textarea>
</td></tr>
<tr><td colspan="2">
<%
function fnt(fonte)
vez = session("temp_noticia")
  if vez <=2 and fonte = "estadão.com.br" then
    fnt = "selected=""selected"""
 elseif vez >=3 and fonte = "ambientebrasil.com.br" then
    fnt = "selected=""selected"""
 else
    fnt = ""
 end if    
end function

set sql = conexao.execute("select * from tbl_noticias_fonte")
  if not sql.eof then
%>
  Fonte: <select name="fonte" style="font-size:17px; min-width:257px;">
 <%do while not sql.eof%>
    <option value="<%=sql("id_fonte")%>" <%=fnt(lcase(sql("fonte")))%>>  <%=sql("fonte")%></option>
	<%
	    sql.movenext
			loop
	%>
 </select> 
<%
  end if
set sql = nothing
%>
</td></tr>
<tr><td colspan=2> <input type="checkbox" name="home" value="1" <% if  session("temp_noticia") <=2 then response.Write("checked=""checked""") end if %>> Home </td></tr>
<tr><td colspan=2> <input type="checkbox" name="destaque" value="1" <% if  session("temp_noticia") <=2 then response.Write("checked=""checked""") end if %>> Destaque </td></tr>
<tr><td colspan=2> <input type="checkbox" name="clipping" value="1" checked> Clipping </td></tr>
<tr><td colspan=2> <input type="checkbox" name="ativo" value="1" checked> Ativo </td></tr>
</table>
<p>Data da Notícia: <input type="text" name="data_noticia" value="<%=converte_dt(date(),"br")%>" size="15">
<p><input type="submit" name="Gravar" value="Gravar">
</form>





<%end if%>


<%if opcao="abre" then


if len(request("id_imagem"))>0 then
'apaga arquivo
SET fso = Server.CreateObject("Scripting.FileSystemObject")
strsql  = "select figura from tbl_noticiasXimagens where id_imagem="&request("id_imagem")
set consulta = conexao.execute(strsql)
arquivo = consulta("figura")
set consulta = nothing
FSO.DeleteFile (endereco_fisico_dados & "imagens\"&arquivo), true
'"
Set fso = Nothing
strsql = "delete tbl_noticiasXimagens from tbl_noticiasXimagens where id_imagem="&request("id_imagem")
conexao.execute(strsql)
end if



id_noticia = request("id_noticia")
strsql = "select * from tbl_noticias where id_noticia="&id_noticia

set consulta2 = conexao.execute(strsql)
%>
<!--#include virtual="include/arqui.asp"-->
<table><tr><td valign=top>
<form method=post action=adm_noticias.asp?opcao=altera><table style="font-size: 10pt;">
<tr>
<input type="hidden" name="id_noticia" value="<%=consulta2("id_noticia")%>">
<td>Título</td>
<td><input type="text" name="titulo" size=50 value="<%=consulta2("titulo")%>"></td>
</tr>
<tr><td colspan=2>
Olho:
<textarea name="olho" style="width:450; height:300"><%=consulta2("olho")%></textarea>
</td>
</tr>
<TR>
<Td>Tipo</td>
<TD>
<input type="radio" name="tipo" value="noticia" <%if consulta2("tipo") = "noticia" then response.write "checked" end if%>> Notícia
<input type="radio" name="tipo" value="imprensa" <%if consulta2("tipo") = "imprensa" then response.write "checked" end if%>> Imprensa
<input type="radio" name="tipo" value="evento" <%if consulta2("tipo") = "evento" then response.write "checked" end if%>> Eventos Realizados
</td>
</tr>
</tr>

<tr>
<td><b>Foto Principal:</b>
<BR><input type="radio" name="sobre_img" value="excluir"> Excluir Imagem 
<Br><input type="radio" name="sobre_img" value="manter" checked> Manter Imagem 
<BR><input type="radio" name="sobre_img" value="alterar"> Alterar Imagem</td>
<td><%if len(consulta2("foto_principal"))>0 then%> <img src="../imagens/<%=consulta2("foto_principal")%>" alt="" border=0><%else%> <i>Nenhuma figura cadastrada</i><%end if%></td>
</tr><input type=hidden name=foto_antiga value="<%=consulta2("foto_principal")%>">
<tr>
<td>Categoria</td>
<td>
<%
strsql = "select * from tbl_categorias where v_noticia=1 order by nome"
set consulta = conexao.execute(strsql)

do while not consulta.eof
%>
<br><input type="checkbox" name="categoria" value="<%=consulta("id_categoria")%>" 
<% 
set consulta3 = conexao.execute("select cod_noticia from tbl_noticiasXcat where cod_noticia="&consulta2("id_noticia")&" and cod_categoria="&consulta("id_categoria"))
if not consulta3.eof then
response.write "checked"
end if
set consulta3=nothing
%>> 
<%=consulta("nome")%>
<%
consulta.movenext
loop
set consulta=nothing
%>
</td>
</tr>
<tr><td colspan=2>
Texto:

<script>
	chamaHTML("texto");
</script>

<textarea name="texto" id="texto" style="width:450; height:300"><%=consulta2("texto")%></textarea>
</td>
</tr>
<tr><td colspan="2">
<%
set sql = conexao.execute("select * from tbl_noticias_fonte")
  if not sql.eof then
%>
  Fonte: <select name="fonte" style="font-size:17px; min-width:257px;">
    <option></option>
 <%do while not sql.eof%>
    <option value="<%=sql("id_fonte")%>" <% if sql("id_fonte") = consulta2("fonte") then response.Write("selected=""selected""") %>>  <%=sql("fonte")%></option>
	<%
	    sql.movenext
			loop
	%>
 </select> 
<%
  end if
set sql = nothing
%>
</td></tr>
</table>
<font size=2>
<input type="checkbox" name="home" value="1" <%if consulta2("home") then response.write "checked" end if%>> Home 
<BR><input type="checkbox" name="destaque" value="1" <%if consulta2("destaque") then response.write "checked" end if%>> Destaque
<br> <input type="checkbox" name="clipping" value="1" <%if consulta2("clipping") then response.write "checked" end if%>> Clipping
<BR><input type="checkbox" name="ativo" value="1" <%if consulta2("ativo") then response.write "checked" end if%>> Ativo 
<p>Data da Notícia: <input type="text" name="data_noticia" value="<%=converte_dt(consulta2("data_noticia"),"br")%>" size="15">
<p>
<input type="submit" name="Gravar" value="Gravar">
</form>





</td><td valign=top>
<b>Imagens disponíveis para utilização:</b>
<p><font size=2>Para você utilizar as imagens abaixo no seu texto é muito fácil. Você deve apenas clicar na imagem que deseja utilizar, depois é só ir na ferramenta de inserção de imagens no editor de texto e "colar" no endereço da url da imagem.</font>
<%
set consulta2 = nothing

strsql = "select * from tbl_noticiasXimagens where cod_noticia="&id_noticia
set consulta2 = conexao.execute(strsql)
%>
<table width=200><tr>
<%
cont_linha = 0
do while not consulta2.eof
if cont_linha = 4 then
cont_linha = 0
%>
</tr><tr>
<%end if
cont_linha = cont_linha + 1
%>
<Td align=center>
<%
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objF = objFSO.GetFolder(endereco_fisico_dados&"\imagens\")
 Set objFC = objF.Files

arquivo = consulta2("figura")

  if instr(ucase(arquivo), ".JPG") or instr(ucase(arquivo), ".GIF") then

      if gfxSpex(endereco_fisico_dados&"\imagens\"&arquivo, w, h, c, strType) = true then
	largura = w
	altura = h
      else
         response.write " "
      end if

  end if

 set objFC = nothing
 set objF = nothing
 set objFSO = nothing

if largura > 50 then%>
<a href="javascript:ClipBoard('<%=endereco_site%>imagens/<%=consulta2("figura")%>');"><img src="<%=endereco_site%>imagens/<%=consulta2("figura")%>" alt="" border=0 width="40"></a>
<BR><a href=adm_noticias.asp?opcao=abre&id_imagem=<%=consulta2("id_imagem")%>&id_noticia=<%=id_noticia%>><font size=1>Excluir</font></a>
<%
else 
if altura > 40 then%>
<a href="javascript:ClipBoard('<%=endereco_site%>imagens/<%=consulta2("figura")%>');"><img src="<%=endereco_site%>imagens/<%=consulta2("figura")%>" alt="" border=0 height="40"></a>
<BR><a href=adm_noticias.asp?opcao=abre&id_imagem=<%=consulta2("id_imagem")%>&id_noticia=<%=id_noticia%>><font size=1>Excluir</font></a>
<%else%>
<a href="javascript:ClipBoard('<%=endereco_site%>imagens/<%=consulta2("figura")%>');"><img src="<%=endereco_site%>imagens/<%=consulta2("figura")%>" alt="" border=0></a>
<BR><a href=adm_noticias.asp?opcao=abre&id_imagem=<%=consulta2("id_imagem")%>&id_noticia=<%=id_noticia%>><font size=1>Excluir</font></a>
<%
end if
end if
%>
</td>
<%
consulta2.movenext
loop
set consulta2 = nothing
%>
</tr></table>
<hr>
<b>Enviar imagem para O ÁLBUM DE FOTOS desta notícia:</b>
<form method=post action='grava_img.asp?tipo=noticias&id=<%=id_noticia%>' enctype="multipart/form-data" name="form1">
<br><font face=arial size=2>Imagem: <input type="file" name="File1"></font>
<br><input type="submit" name="Submit" value="Enviar">
</form>
</td></tr></table>
<hr>
<a href=adm_noticias.asp?opcao=exclui&id_noticia=<%=id_noticia%>><font color=red><b>Desejo Excluir esta notícia</b></font></a>
<%end if%>

<%if opcao = "acha" then
data_de = request("data_de")
data_ate = request("data_ate")
palavra = request("palavra")
codigo = request("codigo")
tipo = request("tipo")

select case tipo
case "data"
strsql = "select id_noticia,titulo from tbl_noticias where data_inclusao>='"&converte_dt(data_de,"ing")&"' and data_inclusao<='"&converte_dt(data_ate,"ing")&"' order by id_noticia desc"
case "codigo"
strsql = "select id_noticia,titulo from tbl_noticias where id_noticia="&codigo&" order by id_noticia desc"
case else
strsql = "select id_noticia,titulo from tbl_noticias where (titulo like '%"&palavra&"%' or olho like '%"&palavra&"%' or texto like '%"&palavra&"%') order by id_noticia desc"
end select

set consulta = conexao.execute(strsql)
if not consulta.eof then
%><p><b>Resultado da sua busca:</b><%
do while not consulta.eof
%>
<br> - <a href=adm_noticias.asp?opcao=abre&id_noticia=<%=consulta("id_noticia")%>><%=consulta("titulo")%></a>
<%
consulta.movenext
loop
else
response.write "<p>Nenhum resultado para a sua busca"
end if
set consulta = nothing
end if%>

<%'*************************************************FIM CORPO DE TEXTO%>
<%else ' nao autorizado
response.redirect("default.asp")
end if%>
<!--#include file="fim.asp"-->

A linha de erro está com uma linha no meio do código

xanburzum · Dezembro 5, 2012

Normalmente, isso é causado pela tentativa de inserir muitos caracteres em uma coluna definida. Por exemplo:

CREATE TABLE #teste(bar CHAR(5)) 
INSERT #teste(bar) VALUES('xxxxxx')

você pode usar métodos client-side (por exemplo MAXLENGTH ou JavaScript) para impedir que esses dados sejam submetidos ou ajustando a definição de coluna para acomodar o comprimento dos dados, ou também ajustar os dados de entrada para a definição de coluna, por exemplo:

 <% 
       bar = replace(left(request.form("bar"),5),"'","''") 
       sql = "INSERT #teste(bar) VALUES('" & bar & "')" 
       ' ... 
   %>

Gilberto Jr · Dezembro 6, 2012

Eu uso o seguinte código.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'inicio upload
function mask_data( obj )
	obj = CDAte( obj )
	dia = Day( obj  )
	mes = Month( obj )
	ano = Year( obj )

		if dia < 10 then
			dia = "0" & dia
		end if

		if mes < 10 then
			mes = "0" & mes
		end if

	 mask_data = ano &"-"& mes &"-"& dia
end function

dim conn, rs, nome_foto, Consulta, rs3, anonascimento, senha, ct, insert, rs2, codigo, mensagememail, login
'dim arraymodulos()
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection") 

'Abrimos uma conexão com o banco de dados - [iMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=mysqlbd;PORT=3306;DATABASE=bancodedados;USER=user;PASSWORD=pass;OPTION=3;")
'arquivo que checa se existe o login e a senha do usuario que esta tentando logar

	'Instancia o componente
	SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp") 
	server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores

		'Configura o caminho onde arquivo será salvo
		SaFileUp.Path = Server.MapPath("../img/logo_clube/Mini_100_100/")
                       'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\

		'Você pode usar também o caminho relativo se preferir
		'SaFileUp.Path = Server.MapPath("./upload/")

		'Caso o usuário não indique um arquivo para upload, informa erro.
		If SaFileUp.IsEmpty Then
				'response.write "<center>Por favor, indique um arquivo para upload.</center><br>"

			dataformacao = SaFileUp.Form("ano")&"-"&SaFileUp.Form("mes")&"-"&SaFileUp.Form("dia")


			Set Consulta = conn.execute("SELECT * FROM clubes WHERE  nome='"&SaFileUp.Form("nome")&"' and idcategoria='"&SaFileUp.Form("categoria")&"'")

if   not Consulta.eof then
		response.write("<script>alert('Já existe clube cadastrado com esses dados!'); location='cadclube.asp?Incluir=On';</script>")
		set Consulta = nothing

else

set rs = conn.execute("insert into clubes(nome,datafundacao,escudo25_25,escudo35_35,escudo50_50,historico,fotoformacao,idedicao,idcategoria,email,tecnico,dataregistro,ultimaatualizacao)values('"&SaFileUp.Form("nome")&"','"&dataformacao&"','semfoto.jpg','semfoto.jpg','semfoto.jpg','"&SaFileUp.Form("historico")&"','semfoto.png','"&SaFileUp.Form("edicao")&"','"&SaFileUp.Form("categoria")&"','"&SaFileUp.Form("email")&"','"&SaFileUp.Form("tecnico")&"','"&mask_data(Date)&"','"&mask_data(Date)&"')")

END IF			
'caso o campo foto nao esteja vazio entao faz isso
		Else
			'Salva o arquivo no servidor
		SaFileUp.Save

			nome_foto = Right(SaFileUp.Form("img"),Len(SaFileUp.Form("img"))-InstrRev(SaFileUp.Form("img"),"\"))




			dataformacao = SaFileUp.Form("ano")&"-"&SaFileUp.Form("mes")&"-"&SaFileUp.Form("dia")

			Set Consulta = conn.execute("SELECT * FROM clubes WHERE  nome='"&SaFileUp.Form("nome")&"' and idcategoria='"&SaFileUp.Form("categoria")&"'")

if   not Consulta.eof then
		response.write("<script>alert('Já existe clube cadastrado com esses dados!'); location='cadclube.asp?Incluir=On';</script>")
		set Consulta = nothing

else

set rs = conn.execute("insert into clubes(nome,datafundacao,escudo25_25,escudo35_35,escudo50_50,historico,fotoformacao,idedicao,idcategoria,email,tecnico,dataregistro,ultimaatualizacao)values('"&SaFileUp.Form("nome")&"','"&dataformacao&"','"&nome_foto&"','"&nome_foto&"','"&nome_foto&"','"&SaFileUp.Form("historico")&"','semfoto.png','"&SaFileUp.Form("edicao")&"','"&SaFileUp.Form("categoria")&"','"&SaFileUp.Form("email")&"','"&SaFileUp.Form("tecnico")&"','"&mask_data(Date)&"','"&mask_data(Date)&"')")


END IF			




end if

conn.Close()
'Destruímos o objeto
Set conn = Nothing

response.write ("<script>alert('Clube cadastrado com sucesso!');location='cadclube.asp?Incluir=On&idcategoria="&SaFileUp.Form("edicao")&"';</script>")

%>

xanburzum · Dezembro 6, 2012

ou salve o caminho da imagem em um campo tipo texto e depois concatene ele na tag <img>

e se não houver imagem faz um if simples para ele inserir uma imagem padrão.

Gilberto Jr · Dezembro 8, 2012

Tem que verificar se a pasta onde esta sendo salva as imagens esta com permissão de escrita.

xanburzum · Dezembro 8, 2012

geralmente o erro de perrmissão seria outro. não este apresentado

Entrar

Arquivado

Erro...

Recommended Posts

Fabio_Porps 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

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

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

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante