Inserir novo campo no cadastro

[Prof. Jonatas]

Galera,

Não consigo colocar um novo campo no cadastro do produto no sistema virtualstore. :unsure:

O campo seria de imagem, igual aos campos, imagem grande, imagem pequena.

Para quem não conhece este sistema, estes campso são de bt para anexar arquivo, aí o sistema faz o upload da img para a pasta certa.

Estou tentando colocar um novo campo deste, aluém pode me dizer o que estou fazendo de errado !? :blink:

valeu galera segue abaixo o código, espero que alguma alma caridosa consiga me ajudar, rs.

Segue:

Case "gravanovo"

Response.Expires = 0

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'variaveis

nome = Trim(UploadRequest.Item("nomeprod").Item("Value"))

categ = Trim(UploadRequest.Item("categ").Item("Value"))

peso = Trim(UploadRequest.Item("peso").Item("Value"))

precov = Trim(UploadRequest.Item("precv").Item("Value"))

precon = Trim(UploadRequest.Item("precn").Item("Value"))

parcelamento = Trim(UploadRequest.Item("parc").Item("Value"))

juros = Trim(UploadRequest.Item("juro").Item("Value"))

juropor = Trim(UploadRequest.Item("jurodia").Item("Value"))

fabricante = Trim(UploadRequest.Item("fabri").Item("Value"))

descricao = Trim(UploadRequest.Item("descri").Item("Value"))

estoq = Trim(UploadRequest.Item("estoq").Item("Value"))

figurg = Trim(UploadRequest.Item("figurag").Item("Value"))

figurp = Trim(UploadRequest.Item("figurap").Item("Value"))

'este é o novo campo

infnut = Trim(UploadRequest.Item("infnt").Item("Value"))

If parcelamento = "v" Then

juros = "0"

Else

juros = juros

End If

'aqui o novo campo aparece também

If nome = "" Or peso = "" Or precov = "" Or precon = "" Or parcelamento = "" Or juros = "" Or juropor = "" Or fabricante = "" Or descricao = "" Or estoq = "" Or figurg = "" Or figurp = "" Or infnut = "" Then

'não me encontrei para adaptar o novo campo na lista de erros

If parcelamento = "" Then

erro14 = "sim"

Else

erro14 = parcelamento

End If

If juropor = "" Then

erro13 = "sim"

Else

erro13 = juropor

End If

If categ = "" Then

erro10 = "sim"

Else

erro10 = categ

End If

If estoq = "" Then

erro11 = "sim"

Else

erro11 = estoq

End If

If figurg = "" Then

erro8 = "sim"

Else

erro8 = figurg

End If

If figurp = "" Then

erro9 = "sim"

Else

erro9 = figurp

End If

If nome = "" Then

erro1 = "sim"

Else

erro1 = nome

End If

If peso = "" Then

erro2 = "sim"

Else

erro2 = peso

End If

If precov = "" Then

erro3 = "sim"

Else

erro3 = precov

End If

If precon = "" Then

erro4 = "sim"

Else

erro4 = precon

End If

If fabricante = "" Then

erro5 = "sim"

Else

erro5 = fabricante

End If

If descricao = "" Then

erro6 = "sim"

Session("adm_descprod") = ""

Else

Session("adm_descprod") = descricao

End If

If juros = "" Then

erro12 = "sim"

Else

erro12 = juros

End If

Response.Redirect "?link=produtos&acao=inserir&erro14=" & erro14 & "&erro88=" & erro88 & "&erro99=" & erro99 & "&erro10=" & erro10 & "&erro11=" & erro11 & "&erro12=" & erro12 & "&erro13=" & erro13 & "&erro1=" & erro1 & "&erro2=" & erro2 & "&erro3=" & erro3 & "&erro4=" & erro4 & "&erro5=" & erro5 & "&erro6=" & erro6 & "&erro8=" & erro8 & "&erro9=" & erro9

End If

strString = descricao

strString = Codifica(strString)

descricao = ""

descricao = strString

Set selectfig = conexao.Execute("SELECT * FROM produtos WHERE imgra = '" & FileName & "';")

ContentType = UploadRequest.Item("figurag").Item("ContentType")

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

FileName = Right(filepathname, Len(filepathname) - InStrRev(filepathname, "\"))

Set selectfig = conexao.Execute("SELECT * FROM produtos WHERE imgra = '" & FileName & "';")

Value = UploadRequest.Item("figurag").Item("Value")

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

numero1 = instrrev(Request.servervariables("Path_Info"), "/")

var3 = left(Request.servervariables("Path_Info"),numero1)

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(var3) & "\produtos\g_" & FileName)

For i = 1 To LenB(Value)

MyFile.Write Chr(AscB(MidB(Value, i, 1)))

Next

MyFile.Close

contentType2 = UploadRequest.Item("figurap").Item("ContentType")

filepathname2 = UploadRequest.Item("figurap").Item("FileName")

filename2 = Right(filepathname2, Len(filepathname2) - InStrRev(filepathname2, "\"))

value2 = UploadRequest.Item("figurap").Item("Value")

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

numero2 = instrrev(Request.servervariables("Path_Info"), "/")

var32 = left(Request.servervariables("Path_Info"),numero2)

Set MyFile2 = ScriptObject.CreateTextFile(Server.mappath(var32) & "\produtos\p_" & filename2)

For i = 1 To LenB(value2)

MyFile2.Write Chr(AscB(MidB(value2, i, 1)))

Next

MyFile2.Close

'aqui é a programação para o novo campo

contentType3 = UploadRequest.Item("infnt").Item("ContentType")

filepathname3 = UploadRequest.Item("infnt").Item("FileName")

filename3 = Right(filepathname3, Len(filepathname3) - InStrRev(filepathname3, "\"))

value3 = UploadRequest.Item("infnt").Item("Value")

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

numero3 = instrrev(Request.servervariables("Path_Info"), "/")

var33 = left(Request.servervariables("Path_Info"),numero3)

Set MyFile3 = ScriptObject.CreateTextFile(Server.mappath(var33) & "\produtos\n_" & filename3)

For i = 1 To LenB(value3)

MyFile3.Write Chr(AscB(MidB(value3, i, 1)))

Next

MyFile3.Close

aqui ele aparece também

textosql = "INSERT INTO produtos (nome, fabricante, detalhe, preço, precovelho, parcela" _

& ", juro, aomes, estoque, idsessao, data, peso, imgra, impeq, iminf, status) VALUES ('" & nome & "', " _

& "'" & fabricante & "', '" & descricao & "', '" & precon & "', '" & precov & "', '" & parcelamento & "'" _

& ", '" & juros & "', '" & juropor & "', '" & estoq & "', '" & categ & "', '" & dia & "/" & mez & "/" & Year(Date) & "'," _

& " '" & peso & "', 'g_" & FileName & "', 'p_" & filename2 & "', 'n_" & filename3 & "', 'não')"

Set gravaprod = conexao.Execute(textosql)

Editado Fevereiro 19, 2010 por bareta

[bareta]

da erro, não faz nada o q acontece???

[Prof. Jonatas]

Olá Bareta, obrigado pela força...

Aparece este erro:

Erro no Sistema!

N°. do erro:424

Descrição do erro:Object required

Se você estiver inserindo dados em sua loja NÃO use: aspas simples ('), barra (/) e parêntes (())

Voltar para página anterior

[bareta]

procura um on error resume next ai e remova ele, rode o código novamente

[Prof. Jonatas]

Ao longo da programação são vários on error resume next que se encontra, devo remover todos ?

[bareta]

se você quer saber realmente onde está cada erro sim....