[Resolvido] Gravar campos no DB

[Ed Rossoni 0]

Amigos,

 

Fiz algumas alterações nesse código, só que não consigo gravar os campos: nome, contato, email e telefone no banco. O que está faltando?

 

CODE

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

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

<%

 

Dim objUpload, strUploadPath, strMsg, strFileExtensions

segundo = second(time)

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

 

 

Set UploadRequest = CreateObject("Scripting.Dictionary")

 

BuildUploadRequest RequestBin

 

 

contentType = UploadRequest.Item("arquivo").Item("ContentType")

filepathname = UploadRequest.Item("arquivo").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

value = UploadRequest.Item("arquivo").Item("Value")

'pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

'path = Server.mappath("../fotografias/")

 

diretorio = "fotos"

if Lcase(right(filename,3)) = "jpg" or Lcase(right(filename,3)) = "gif" then

certo = "sim"

end if

 

if certo = "sim" then

 

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

 

 

'Set MyFile = ScriptObject.CreateTextFile("d:\caminho_dapasta\"&filename)

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(diretorio & "\" & filename))

 

 

 

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next

MyFile.Close

 

pequena = day(date)&"_"&month(date)&"_"&year(date)&"_alt_"&segundo&"_mini_" & filename

grande = day(date)&"_"&month(date)&"_"&year(date)&"_alt_"&segundo&"_big_" & filename

 

'Criando o thumbnail:

path = Server.mappath(diretorio & "\" & filename)

 

Set Jpeg = Server.CreateObject("Persits.Jpeg")

 

 

'Caminho da Imagem

'Path = diretorio&"\"&filename

 

 

'Busca a Imagem

Jpeg.Open path

 

L = 600

If jpeg.OriginalWidth > 600 Then

jpeg.Width = L

jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth

else

jpeg.Width = jpeg.OriginalWidth

jpeg.Height = jpeg.OriginalHeight

End If

 

Jpeg.Quality = 90

'Apply sharpening if necessary, this argument must be greater than 100

Jpeg.Sharpen 1, 120

 

Jpeg.Save Server.mappath(diretorio & "\" & day(date)&"_"&month(date)&"_"&year(date)&"_alt_"&segundo&"_big_" & filename)

 

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor

 

set Jpeg = nothing

 

Set Jpeg = Server.CreateObject("Persits.Jpeg")

 

 

'Caminho da Imagem

'Path = diretorio&"\"&filename

 

 

'Busca a Imagem

Jpeg.Open path

 

If jpeg.OriginalWidth > 200 and jpeg.OriginalHeight > 200 then

If jpeg.OriginalWidth > jpeg.OriginalHeight Then

jpeg.Width = 200

jpeg.Height = jpeg.OriginalHeight * 200 / jpeg.OriginalWidth

Else

jpeg.Height = 200

jpeg.Width = jpeg.OriginalWidth * 200 / jpeg.OriginalHeight

End If

 

Jpeg.Quality = 90

Jpeg.Crop 0, 0, 130, 130

 

else

Jpeg.Quality = 90

jpeg.Width = 130

jpeg.Height = 130

end if

 

'Jpeg.Width = 130

'Jpeg.Height = 130

'Esse método é opcional, usado para melhorar o visual da imagem

Jpeg.Sharpen 1, 150

 

'Cria um thumbnail e o grava no caminho abaixo

Jpeg.Save Server.mappath(diretorio & "\" & day(date)&"_"&month(date)&"_"&year(date)&"_alt_"&segundo&"_mini_" & filename)

set Jpeg = nothing

 

Set fs=Server.CreateObject("Scripting.FileSystemObject")

'On error resume next

Set f=fs.GetFile(Server.mappath(diretorio&"\"&filename))

f.Delete

 

 

 

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:

'Response.Write jpeg.SendBinary

 

 

if (URequest("data")) <> "" then

data = (URequest("data"))

else

data = day(date)&"/"&month(date)&"/"&year(date)

end if

legenda = (URequest("legenda"))

libera = (URequest("libera"))

 

 

if (URequest("album")) <> "" then

album = (URequest("album"))

 

sqlA = " Insert into album (titulo, libera) "

sqlA = sqlA + " values('"+album+"',"

sqlA = sqlA + " '"+libera+"')"

Call Abre

set rsA = conexao.execute(sqlA)

Call Fecha

set rsA = nothing

 

else

album = (URequest("album_existente"))

end if

 

 

sql = " Insert into fotografias (foto, data, legenda, foto_menor, libera, nome, contato, email, telefone album) "

sql = sql + " values('"+grande+"',"

sql = sql + " '"+data+"',"

sql = sql + " '"+legenda+"',"

sql = sql + " '"+pequena+"',"

sql = sql + " '"+libera+"',"

sql = sql + " '"+nome+"',"

sql = sql + " '"+contato+"',"

sql = sql + " '"+email+"',"

sql = sql + " '"+telefone+"',"

sql = sql + " '"+album+"')"

Call Abre

set rsUpload = conexao.execute(sql)

Call Fecha

set rsUpload = nothing

 

 

 

response.write("Arquivo Enviado com Sucesso.")

response.redirect("fotos/mostra.asp")

 

else

response.Write("<div align='center'>O arquivo deve estar no formato JPG ou GIF.<br><a href=""java script:history.back(1);"">Clique aqui para retornar.</a></div>")

end if

 

 

%>

Obrigado. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

[Salgado 4]

Aparece alguma mensagem de erro?

[Mário Monteiro 179]

exato, o que está havendo para atacarmos a razao do erro?

[Ed Rossoni 0]

Não, não há mensagem de erro. No final da operação tenho a mendagem de sucesso e sou redirecionado. Quando vou consultar o banco, os campos estão em branco.

Abraço

[hargon 64]

Verifica os dois includes.

 

Talvez um deles possui a linha On Error Resume Next. Se possuir, remove para fazer o teste, pois ela não mostra os erros diretamente.

[Ed Rossoni 0]

hargon

 

Essa linha existe e já está comentada.

 

Observei o seguinte: No codigo orignal tem os campos (foto, data, legenda, foto_menor, libera, album), quando estão somente esse campos, funciona tudo perfeitamente. Agora se eu adicionar um outro campo, mela tudo.

 

Abraço.

[Ed Rossoni 0]

Amigos...

 

Eu esqueci de fazer o request do campo.

 

Descuplem...rsrs

[Mário Monteiro 179]

Funcionou?

[Ed Rossoni 0]

Funcionou?

Funcionou perfeitamenta.rs

 

Obrigado