Jump to content

Archived

This topic is now archived and is closed to further replies.

dedindol

[Resolvido] Alterar um campo imagem com upload sem componente

Recommended Posts

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

Share this post


Link to post
Share on other sites

Que erro que apresenta?

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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...

Share this post


Link to post
Share on other sites

huahuahu Cara pq o seu caminho da pasta está assim

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

Share this post


Link to post
Share on other sites

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...

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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???

Share this post


Link to post
Share on other sites

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

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

Share this post


Link to post
Share on other sites

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...

Share this post


Link to post
Share on other sites

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%>">

Share this post


Link to post
Share on other sites

mas eu fiz isso...

 

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

 

promeira linha depois do <form....>

 

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

Share this post


Link to post
Share on other sites

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%>">

Share this post


Link to post
Share on other sites

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>

Share this post


Link to post
Share on other sites

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.