2 replies to this topic

[rede3d]

Boa noite a todos... Amigos, trabalho a pouco com ASP, pelo tempo e polo curso que fiz estou indo até bem. O problema da minha vida é fazer um UPDATE para imagens funcionar... O trem só carrega e não sai do lugar.

Vou postar as duas partes do código...

PRIMEIRA PÁGINA REPONSÁVEL POR TRAZER AS INFORMAÇÕES JÁ EXISTENTES NO BANCO:

<% while not objrs.eof %>

<form action="bd_maquinas_altera.asp" method="post" name="form1">
<table width="750" border="1" cellspacing="1" cellpadding="1">
<tr align="center" valign="middle" bgcolor="#000000">
<td colspan="2"><strong><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">CONSULTA
E/OU ALTERA&Ccedil;&Atilde;O DE EQUIPAMENTOS</font></strong></td>
</tr>
<tr bgcolor="#f4f4f4">
<td width="472" bgcolor="#f4f4f4"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
Nome:<br>
<input name="nome" type="text" id="nome" value="<%=objrs("nome")%>" size="65">
</font></strong></td>
<td width="265" bgcolor="#f4f4f4"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Destaque:
<% dim destaque
destaque=objrs("destaque")%>
<%if destaque="sim" then%>
<input type="radio" name="destaque" value="sim" checked>
<%else%>
<input type="radio" name="destaque" value="sim" >
<%end if%>
</strong> Sim
<%if destaque="nao" then%>
<input type="radio" name="destaque" value="nao" checked>
<%else%>
<input type="radio" name="destaque" value="nao" >
<%end if%>
N&atilde;o</font></td>
</tr>
</table>
<table width="750" border="1" cellpadding="3" cellspacing="1" bgcolor="#f4f4f4">
<tr>
<td width="365" valign="middle"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Detalhes:</strong></font><br>
<textarea name="detalhe" cols="40" rows="8" id="detalhe"><%=objrs("detalhe")%></textarea>
</td>
<td width="364" valign="middle"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>V&iacute;deo
da M&aacute;quina:</strong></font><br>
<textarea name="video" cols="40" rows="8" id="video"><%=objrs("video")%></textarea></td>
</tr>
</table>
<table width="750" height="46" border="1" cellpadding="1" cellspacing="1">
<tr>
<td bgcolor="#f4f4f4">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="113" align="right"> <strong><font face="Verdana, Arial, Helvetica, sans-serif"><font size="2">Foto:
</font></font></strong></td>
<td width="625"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<input name="foto1" type="file" id="foto1" size="70">
</font></strong></td>
</tr>
</table>
<img src="Imagens/maquinas/<%=objrs("foto1")%>" width="134" height="100"><br>
</td>
</tr>
</table>
<table width="750" height="40" border="0" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<td width="342"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font color="#FF0000">*</font></strong>
Campos de preenchimento obrigat&oacute;rio.</font></td>
<td width="408" align="right">
<input type="submit" name="Submit" value="Alterar Dados">
<input name="codigo" type="hidden" id="codigo" value="<%=objrs("codigo")%>">
</td>
</tr>
</table>
</form>

<%
objrs.movenext
wend
'as linhas abaixo limpam as variáveis de conexão
objrs.close
objconn.close
set objrs=nothing
set objconn=nothing
%>

SEGUNDA PÁGINA REPONSÁVEL POR ATUALIZAR AS INFORMAÇÕES JÁ EXISTENTES:

<!-- #include file = "upload_funcoes.asp" -->

<%
Response.Expires = - 1
Server.ScriptTimeout = 6000
%>

<%

' Chamando Funções, que lipman apostrofo, caractéres especiais e espaço em branco
function TiraAspas(str)
str = replace(str,"'","")
TiraAspas = str
End function

Function RemoveAcentos(ByVal Texto)
Dim ComAcentos
Dim SemAcentos
Dim Resultado
Dim Cont
'Conjunto de Caracteres com acentos
ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç "
'Conjunto de Caracteres sem acentos
SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc-"
Cont = 0
Resultado = Texto
Do While Cont < Len(ComAcentos)
Cont = Cont + 1
Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))
Loop
RemoveAcentos = Resultado
End Function

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

' Recuperando os Dados Digitados ----------------------
nome = TiraAspas(UploadRequest.Item("nome").Item("Value"))
'detalhe = TiraAspas(UploadRequest.Item("detalhe").Item("Value"))
'video = TiraAspas(UploadRequest.Item("video").Item("Value"))
'destaque = UploadRequest.Item("destaque").Item("Value")
'datas=now

' Tipo de arquivo que esta sendo enviado
tipo_foto1 = UploadRequest.Item("foto1").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto1 = UploadRequest.Item("foto1").Item("FileName")

' Nome dos arquivos enviados
nome_foto1 = RemoveAcentos(Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\")))

' Conteudo binario dos arquivos enviados
foto1 = UploadRequest.Item("foto1").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("Imagens/maquinas/")
nome_foto1 = "/"&nome_foto1

' pasta + nome dos arquivos
cfoto1 = nome_foto1

' Fazendo o Upload do arquivo selecionado
if foto1 <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
For i = 1 to LenB(foto1)
MyFile.Write chr(AscB(MidB(foto1,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DBQ=D:/Trab/Web/Poly/Dados/banco.mdb;driver={microsoft access driver (*.mdb)}"


'Declarando as variaveis
codigo = UploadRequest.Item("codigo").Item("Value")

' cadastra os dados no banco de dados
sql = "UPDATE maquinas SET nome='"&nome&"', foto' ='"&cfoto1&"' where codigo="&codigo
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write " SUCESSO !!"

' Redireciona após 2 segundos
response.write "<meta http-equiv='refresh' content='2; url=maquinasCcons.asp'/>"

%>

Neste caso tento atualizar o nome e a foto e nada acontece...

Obrigado a todos.

[looners]

' Mostra Mensagem de Confirmação na Tela
Response.write " SUCESSO !!"

[rede3d]

' Mostra Mensagem de Confirmação na Tela
Response.write " SUCESSO !!"

Não mostra nada... o trem fica processando e ñ faz nada.