[Resolvido] Alterar um campo imagem com upload sem componente

dedindol · July 3, 2008

Galera,

To com um problemão num adm que to desenvolvendo...

é o seguinte...

o adm faz inclusão de notícias e nas noticias existem imagens que faço upload com um upload sem componente que peguei aqui no forum....

o problema é que na hora de alterar alguma notícia, não estou conseguindo alterar os campos das imagens....todo o resto altera, mas se coloco o campo das imagens da erro...

a inclusão funciona certinho...o pau é só na alteração mesmo...

a página de inclusão é essa:

<!--#Include file="upload.asp"-->

<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<script>
function vazio(){

	var titulo = document.form.titulo.value;
	var chamada = document.form.chamada.value;
	var conteudo = document.form.conteudo.value;

	if(titulo == ""){
	   alert("Informe o Titulo da notícia");
	   document.form.titulo.focus();
	   return false;
	}	

		if(chamada == ""){
	   alert("Digite a Chamada da notícia");
	   document.form.chamada.focus();
	   return false;
	}	
	
		if(conteudo == ""){
	   alert("Digite o Conteudo da notícia");
	   document.form.conteudo.focus();
	   return false;
	}	

}
</script>

<form name="form" id="form" method="post" action="incluinoticiafinal.asp" onsubmit="return vazio()" enctype="multipart/form-data">
<table border="0" align="left" width="330">
<tr>
	<td align="right" valign="top" class="caixa_texto">Título:</td>
	<td><input name="titulo" type="text" class="caixa_texto" size="63" maxlength="255" /></td>
</tr>

<tr>
	<td align="right" valign="top" class="caixa_texto">Chamada:</td>
	<td><input name="chamada" type="text" class="caixa_texto" size="63" maxlength="255" /></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Conteudo:</td>
	<td><textarea name="conteudo" cols="62" rows="12" class="caixa_texto"></textarea></td>
</tr>
<tr>
  <td align="right" valign="top" class="caixa_texto">Imagem:</td>
  <td><input name="foto" type="file" class="caixa_texto" id="foto" /></td>
</tr>
<tr>
  <td align="right" valign="top" class="caixa_texto">Habilitar:</td>
  <td><select name="ativa" class="caixa_texto">
	<option value="s">Sim</option>
	<option value="n">Não</option>
  </select></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Destaque</td>
	<td><select name="destaque" class="caixa_texto" id="destaque">
	  <option value="s">Sim</option>
	  <option value="n" selected="selected">Não</option>
		</select></td>
</tr>
<tr>
	<td colspan="2" align="right">
	<input type="submit" class="caixa_texto" value="Incluir Notícia" />	</td>
</tr>
</table>
</form>

e essa:

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<!--#Include file="upload.inc"-->

<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<%

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

dim Titulo, Conteudo, Ativa, cfoto, destaque, dtNoticia

' Recuperando os Dados Digitados ----------------------
Titulo = Replace(UploadRequest.Item("titulo").Item("Value"),"'","")
Chamada = Replace(UploadRequest.Item("chamada").Item("Value"),"'","")
Conteudo = Replace(UploadRequest.Item("conteudo").Item("Value"),"'","")
Ativa = UploadRequest.Item("ativa").Item("Value")
destaque = UploadRequest.Item("destaque").Item("Value")


If Ativa = "s" Then
Ativa = "1"
Else
ativa = "0"
End If

If destaque = "s" Then
destaque = "1"
Else
destaque = "0"
End If

' 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("/fotos/")
nome_foto = "/"&nome_foto


' pasta + nome dos arquivos
cfoto = 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


'ABRIR A CONEXÃO
Call AbreConn()

' INSERIR AS NOTICIAS NO BANCO DE DADOS
	sql = "INSERT INTO tbNoticia (titulo, chNoticia, dtNoticia, vcNoticia, imagem, ynNoticia, destaque) " &_
				"VALUES ('" & titulo & "', '" & chamada & "', Now(), '" & conteudo & "', '" & cfoto & "', " & ativa & ", " & destaque & ")"
				

'EXECUTAR A INSTRUÇÃO NO BANCO DE DADOS
	Conn.Execute(sql)

'FECHAR A CONEXÃO
Call FechaConn

%>

<div align="center" class="azul">
<%if ativa = "1" then%>
<%Response.Write("A notícia está disponível no site!")%><br><br>
<%else%>
<%Response.Write("A noticia foi incluída, mas não está disponível no site!")%><br><br>
<%end if%>
</div>

<!-- SCRIPT QUE APRESENTA UMA MENSAGEM DE NOTICIA GRAVADA COM SUCESSO E DIRECIONA PARA A PÁGINA QUE LISTA TODAS AS NOTÍCIAS -->

<script type="text/javascript">
	alert("Notícia Inserida com Sucesso!");
	window.location="noticias.asp";
</script>

as de alteração são essas:

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<%
dim Vid, sql, rs, sel, dest

Vid = Request.QueryString("id")

Call AbreConn()

sql = "Select * From tbNoticia Where inNoticia = " & Vid

Set rs = conn.Execute (sql)

%>

<script>
function vazio(){

	var titulo = document.form.titulo.value;
	var conteudo = document.form.conteudo.value;

	if(titulo == ""){
	   alert("Informe o Titulo da notícia");
	   document.form.titulo.focus();
	   return false;
	}	

	if(conteudo == ""){
	   alert("Informe o Conteudo da notícia");
	   document.form.conteudo.focus();
	   return false;
	}	
}
</script>


<link href="inc/estilo.css" rel="stylesheet" type="text/css">
<form name="form" id="form" method="post" action="alteranoticiafinal.asp" onsubmit="return vazio()">
<input type="hidden" name="id" value="<%=Vid%>">
<table border="0" align="left" width="330">
<tr>
  <td align="right" valign="top" class="caixa_texto">Titulo:</td>
  <td><input name="titulo" type="text" class="caixa_texto" id="titulo" value="<%=rs("titulo")%>" size="63" maxlength="255" /></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Chamada:</td>
	<td><input name="chamada" type="text" class="caixa_texto" id="chamada" value="<%=rs("chNoticia")%>" size="63" maxlength="255" /></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Conteudo:</td>
	<td><textarea name="conteudo" cols="62" rows="12" class="caixa_texto"><%=rs("vcNoticia")%></textarea></td>
</tr>
<tr>
  <td align="right" valign="top" class="caixa_texto">Habilitar:</td>
  <td><select name="ativa" class="caixa_texto" selected="<%
If rs("ynNoticia") = false Then
	sel = "selected='selected'"
End If
%>">
	<option value="s">Sim</option>
	<option value="n"<%=sel%>>Não</option>
  </select></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Destaque:</td>
	<td><select name="destaque" class="caixa_texto" id="destaque" selected="<%
If rs("destaque") = false Then
	dest = "selected='selected'"
End If

Call FechaConn()
%>">
	  <option value="s">Sim</option>
	  <option value="n"<%=dest%>>Não</option>
	</select></td>
</tr>
<tr>
	<td colspan="2" align="right">
	<input type="submit" class="caixa_texto" value="Alterar Notícia" />	</td>
</tr>
</table>
</form>

e essa:

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->
<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<%
Dim rs, sq, Vid, titulo

Vid = Request.Form("id")
titulo = Replace(Request("titulo"),"'","")
Vchamada = Replace(Request("chamada"),"'","")
Vconteudo = Replace(Request("conteudo"),"'","")
Vativa = Request.Form("ativa")
Vdestaque = Request.Form("destaque")

if Vativa = "s" then
	Vativa = "true"
else
	Vativa = "false"
end if

if Vdestaque = "s" then
	Vdestaque = "true"
else
	Vdestaque = "false"
end if


Call AbreConn()
sq = "Update tbNoticia Set" & _
			" titulo = '" & titulo & "'" & _
			", chNoticia = '" & Vchamada & "'" & _
			", vcNoticia = '" & Vconteudo & "'" & _
			", ynNoticia = " & Vativa & _
			", destaque = " & Vdestaque & _
			" Where inNoticia=" & Vid

conn.execute(sq)

Call FechaConn()
%>
<div align="center" class="azul">Atualizando a notícia, Aguarde!!!</div>

<script type="text/javascript">
alert("Notícia Alterada com sucesso!!!")
window.location="noticias.asp"
</script>

essas páginas de alteração nao tem os campos de imagens para alterar, sem esses campos funcionam certinho...

alguém pode me ajudar a colocar os campos de imagens para fazer o update na tabela?

obrigado galera...

abraços

Salgado · July 4, 2008

Que erro que apresenta?

dedindol · July 4, 2008

O erro que dá é esse:

Active Server Pages error 'ASP 0113'

Script timed out

/novo/adm/alteranoticiafinal.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

As páginas que eu postei acima estão funcionando por que estão sem a alteração da imagem,

as que estão alterando a imagem e dão erro são essas:

alteranoticia.asp

CODE

<!--#Include File="session.asp"--><!--#Include File="conexao.asp"-->
<%
dim Vid, sql, rs, sel, dest
 
Vid = Request.QueryString("id")
 
Call AbreConn()
 
sql = "Select * From tbNoticia Where inNoticia = " & Vid
 
Set rs = conn.Execute (sql)
 
%>
 
<script>
function vazio(){
 
	var titulo = document.form.titulo.value;
	var conteudo = document.form.conteudo.value;
 
	if(titulo == ""){
	   alert("Informe o Titulo da notícia");
	   document.form.titulo.focus();
	   return false;
	}	
 
	if(conteudo == ""){
	   alert("Informe o Conteudo da notícia");
	   document.form.conteudo.focus();
	   return false;
	}	
}
</script>
 
 
<link href="inc/estilo.css" rel="stylesheet" type="text/css">
<form name="form" id="form" method="post" action="alteranoticiafinal.asp" onsubmit="return vazio()">
<input type="hidden" name="id" value="<%=Vid%>">
<table border="0" align="left" width="330">
<tr>
  <td align="right" valign="top" class="caixa_texto">Titulo:</td>
  <td><input name="titulo" type="text" class="caixa_texto" id="titulo" value="<%=rs("titulo")%>" size="63" maxlength="255" /></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Chamada:</td>
	<td><input name="chamada" type="text" class="caixa_texto" id="chamada" value="<%=rs("chNoticia")%>" size="63" maxlength="255" /></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Conteudo:</td>
	<td><textarea name="conteudo" cols="62" rows="12" class="caixa_texto"><%=rs("vcNoticia")%></textarea></td>
</tr>
<tr>
  <td align="right" valign="top" class="caixa_texto">Imagem:</td>
  <td><input name="foto" type="file" class="caixa_texto" id="foto" /></td>
</tr>
<tr>
  <td align="right" valign="top" class="caixa_texto">Habilitar:</td>
  <td><select name="ativa" class="caixa_texto" selected="<%
If rs("ynNoticia") = false Then
	sel = "selected='selected'"
End If
%>">
    <option value="s">Sim</option>
    <option value="n"<%=sel%>>Não</option>
  </select></td>
</tr>
<tr>
	<td align="right" valign="top" class="caixa_texto">Destaque:</td>
	<td><select name="destaque" class="caixa_texto" id="destaque" selected="<%
If rs("destaque") = false Then
	dest = "selected='selected'"
End If
 
Call FechaConn()
%>">
      <option value="s">Sim</option>
      <option value="n"<%=dest%>>Não</option>
    </select></td>
</tr>
<tr>
	<td colspan="2" align="right">
	<input type="submit" class="caixa_texto" value="Alterar Notícia" />	</td>
</tr>
</table>
</form>

alteranoticiafinal.asp

CODE

<!--#Include File="session.asp"--><!--#Include File="conexao.asp"-->
<!--#Include file="upload.inc"-->
<link href="inc/estilo.css" rel="stylesheet" type="text/css">
 
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
 
Dim rs, sq, Vid, titulo, cfoto
 
Vid = UploadRequest.Item("id").Item("Value")
titulo = Replace(UploadRequest.Item("titulo").Item("Value"),"'","")
Vchamada = Replace(UploadRequest.Item("chamada").Item("Value"),"'","")
Vconteudo = Replace(UploadRequest.Item("conteudo").Item("Value"),"'","")
Vativa = UploadRequest.Item("ativa").Item("Value")
Vdestaque = UploadRequest.Item("destaque").Item("Value")
 
if Vativa = "s" then
	Vativa = "true"
else
	Vativa = "false"
end if
 
if Vdestaque = "s" then
	Vdestaque = "true"
else
	Vdestaque = "false"
end if
 
' 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("/fotos/")
nome_foto = "/"&nome_foto
 
 
' pasta + nome dos arquivos
cfoto = 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
 
Call AbreConn()
sq = "Update tbNoticia Set" & _
			" titulo = '" & titulo & "'" & _
			", chNoticia = '" & Vchamada & "'" & _
			", vcNoticia = '" & Vconteudo & "'" & _
			", ynNoticia = " & Vativa & _
			", destaque = " & Vdestaque & _
			" Where inNoticia=" & Vid
 
conn.execute(sq)
 
Call FechaConn()
%>
<div align="center" class="azul">Atualizando a notícia, Aguarde!!!</div>
 
<script type="text/javascript">
alert("Notícia Alterada com sucesso!!!")
window.location="noticias.asp"
</script>

será que dá pra me ajudar?

abraço

dedindol · July 4, 2008

O estranho é que a parte de inclusão está com o mesmo timout e nao dá erro...só na alteração que dá...

Jow Xavier · July 4, 2008

Cara lá no laboratório de scripts tem um código q eu adaptei q tem Update de imagens q está funcionando certinho, será q isso ñ te ajuda ???

http://forum.imasters.com.br/index.php?showtopic=292520

dedindol · July 4, 2008

Então cara,

O pior é que está igual ao seu...

eu fiz esse meu a partir do seu....a única cois que alterei foi a inclusão de mais campos de texto...

não sei por que está dando esse erro doido...

Jow Xavier · July 4, 2008

huahuahu Cara pq o seu caminho da pasta está assim

pasta = Server.MapPath("/fotos/")

dedindol · July 4, 2008

As imagens devem ser salvas na pasta fotos que fica dentro da raíz do servidor...

na inclusão das noticias tem esse caminho e funciona aí eu pensei que colocando o mesmo na alteração funcionaria...

será que é esse o problema?

como será que devo colocar?

na inclusão ta assim e funciona...

Jow Xavier · July 4, 2008

olha só qd você salva uma foto o banco de dados dá um caminho certo, qual? O caminho deverá ser algo do tipo fotos/imagem.jpg ...

Tira isso da sua página de inserção e alteração:

pasta = Server.MapPath("/fotos/")

por

pasta = Server.MapPath("fotos/")

e tbm toque isso:

' pasta + nome dos arquivos
cfoto = nome_foto

por

' pasta + nome dos arquivos 
cfoto = "fotos" + nome_foto

obs: Altere na página de inserção e de alteração

dedindol · July 4, 2008

eu tirei da página de inclusão e deu o seguinte erro ao cadastrar uma nova noticia:

Microsoft VBScript runtime error '800a004c'

Path not found

/novo/adm/incluinoticiafinal.asp, line 60

na página de alteração nao mudou nada....

fica carregando e dá o erro de timeout

Jow Xavier · July 4, 2008

entendi ixi agora o erro é no caminho da imagen ... como estava salvando no banco qual era o caminho ?

dedindol · July 4, 2008

Então...na verdade da forma como estava antes o caminho estava funcionando

assim nao dá erro ó:

pasta = Server.MapPath("/fotos/")

na parte de inclusão funciona perfeitamente...

só na alteração que não vai...

acho que não é o caminho não....mas tbm nao faço ideia do que pode ser...

a página de alteração está igualzinho a de inclusão....

só mudei que na inclusão faz um insert e na alteração faz um update...o resto ta igual....

como pode uma funcionar e outra nao???

Jow Xavier · July 4, 2008

Agora q vi no seu formulário da página de update faltou você incluir o upload

dedindol · July 4, 2008

Pior que não cara...

está lá sim ó...

essa página é a que tem o formulário:

alteranoticia.asp

CODE

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->

<!--#Include file="upload.inc"-->

<%

dim Vid, sql, rs, sel, dest
 
Vid = Request.QueryString("id")
 
Call AbreConn()
 
sql = "Select * From tbNoticia Where inNoticia = " & Vid
 
Set rs = conn.Execute (sql)
 
%>
 
<script>

function vazio(){
 
	var titulo = document.form.titulo.value;

	var conteudo = document.form.conteudo.value;
 
	if(titulo == ""){

	   alert("Informe o Titulo da notícia");

	   document.form.titulo.focus();

	   return false;

	}	
 
	if(conteudo == ""){

	   alert("Informe o Conteudo da notícia");

	   document.form.conteudo.focus();

	   return false;

	}	

}

</script>
 
<link href="inc/estilo.css" rel="stylesheet" type="text/css">

<form name="form" id="form" method="post" action="alteranoticiafinal.asp" onsubmit="return vazio()">

<input type="hidden" name="id" value="<%=Vid%>">

<table border="0" align="left" width="330">

<tr>

  <td align="right" valign="top" class="caixa_texto">Titulo:</td>

  <td><input name="titulo" type="text" class="caixa_texto" id="titulo" value="<%=rs("titulo")%>" size="63" maxlength="255" /></td>

</tr>

<tr>

	<td align="right" valign="top" class="caixa_texto">Chamada:</td>

	<td><input name="chamada" type="text" class="caixa_texto" id="chamada" value="<%=rs("chNoticia")%>" size="63" maxlength="255" /></td>

</tr>

<tr>

	<td align="right" valign="top" class="caixa_texto">Conteudo:</td>

	<td><textarea name="conteudo" cols="62" rows="12" class="caixa_texto"><%=rs("vcNoticia")%></textarea></td>

</tr>

<tr>

  <td align="right" valign="top" class="caixa_texto">Imagem:</td>

  <td><input name="foto" type="file" class="caixa_texto" id="foto" /></td>

</tr>

<tr>

  <td align="right" valign="top" class="caixa_texto">Habilitar:</td>

  <td><select name="ativa" class="caixa_texto" selected="<%

If rs("ynNoticia") = false Then

	sel = "selected='selected'"

End If

%>">

    <option value="s">Sim</option>

    <option value="n"<%=sel%>>Não</option>

  </select></td>

</tr>

<tr>

	<td align="right" valign="top" class="caixa_texto">Destaque:</td>

	<td><select name="destaque" class="caixa_texto" id="destaque" selected="<%

If rs("destaque") = false Then

	dest = "selected='selected'"

End If
 
Call FechaConn()

%>">

      <option value="s">Sim</option>

      <option value="n"<%=dest%>>Não</option>

    </select></td>

</tr>

<tr>

	<td colspan="2" align="right">

	<input type="submit" class="caixa_texto" value="Alterar Notícia" />	</td>

</tr>

</table>

</form>

essa página aí chama a incluinoticiafinal.asp

que é essa aqui ó:

CODE

<!--#Include File="session.asp"-->
<!--#Include File="conexao.asp"-->

<!--#Include file="upload.inc"-->

<link href="inc/estilo.css" rel="stylesheet" type="text/css">
 
<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin
 
Dim rs, sq, Vid, titulo, cfoto
 
Vid = UploadRequest.Item("id").Item("Value")

titulo = Replace(UploadRequest.Item("titulo").Item("Value"),"'","")

Vchamada = Replace(UploadRequest.Item("chamada").Item("Value"),"'","")

Vconteudo = Replace(UploadRequest.Item("conteudo").Item("Value"),"'","")

Vativa = UploadRequest.Item("ativa").Item("Value")

Vdestaque = UploadRequest.Item("destaque").Item("Value")
 
if Vativa = "s" then

	Vativa = "true"

else

	Vativa = "false"

end if
 
if Vdestaque = "s" then

	Vdestaque = "true"

else

	Vdestaque = "false"

end if
 
' 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("/fotos/")

nome_foto = "/"&nome_foto
 
' pasta + nome dos arquivos

cfoto = 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
 
Call AbreConn()
 
sq = "Update tbNoticia Set" & _

			" titulo = '" & titulo & "'" & _

			", chNoticia = '" & Vchamada & "'" & _

			", vcNoticia = '" & Vconteudo & "'" & _

			", ynNoticia = " & Vativa & _

			", imagem = '" & cfoto & "'" & _

			", destaque = " & Vdestaque & _

			" Where inNoticia=" & Vid
 
conn.execute(sq)
 
Call FechaConn()

%>

<div align="center" class="azul">Atualizando a notícia, Aguarde!!!</div>
 
<script type="text/javascript">

alert("Notícia Alterada com sucesso!!!")

window.location="noticias.asp"

</script>

viu só....eu até coloquei nas duas depois que você falou só pra ver se era isso mesmo...mas tá com o mesmo erro...

Jow Xavier · July 4, 2008

você está comparando o seu id na página alteranoticiafinal.asp, mas na página alteranoticia.asp onde você está passando o id ... deve passar dentro fo formulário assim:

<input type="hidden" name="id" value="<%id%>">

dedindol · July 4, 2008

mas eu fiz isso...

dá uma olhada no código pra você ver...

promeira linha depois do <form....>

Jow Xavier · July 4, 2008

aki você está recuperando assim: Vid = UploadRequest.Item("id").Item("Value") e está passando assim: <input type="hidden" name="id" value="<%=Vid%>"> ou seja você está recuperando id e está passando <%=Vid%> você deve passar assim:

<input type="hidden" name="id" value="<%rs=("id")%>">

e ñ assim:

<input type="hidden" name="id" value="<%=Vid%>">

dedindol · July 4, 2008

Eu fiz isso e deu o seguinte erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/novo/adm/alteranoticia.asp, line 44

A linha 44 é essa aqui:

<td><input name="titulo" type="text" class="caixa_texto" id="titulo" value="<%=rs("titulo")%>" size="63" maxlength="255" /></td>

Jow Xavier · July 4, 2008

Os dados estão nessa tabela tbNoticia certo ??

dedindol · July 4, 2008

isso...

tb_noticia

Archived

[Resolvido] Alterar um campo imagem com upload sem componente

Recommended Posts

dedindol 0

Share this post

Link to post

Share on other sites

Salgado 4

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0

Share this post

Link to post

Share on other sites

Jow Xavier 0

Share this post

Link to post

Share on other sites

dedindol 0