Request com ASP Upload

[designmix 0]

galera tenho esse script com 5 campos de file e manda para pasta ate ai sussa mais preciso fazer esse mesmo script um INSERT INTO.

 

Como faço um reques.form usando aspUpload

 

area = Request.Form("area")

categoria = Request.form("categoria")

 

<%' Variáveis' **********Dim mySmartUploadDim intCount' ObjetosDim objUploadSet objUpload = Server.CreateObject("Persits.Upload")' Tamanho máximo do arquivo, em bytesobjUpload.SetMaxSize 150000, Truex = objUpload.SaveVirtual("foto")Response.Write "Upload efetuado com sucesso"Set objUpload = Nothing%>

[Salgado 4]

Normalmente é ObjetoUpload.FORM("NomedoCampo")

[designmix 0]

se coloco nome1 = ObjetoUpload.FORM("nome")me da esse erro Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /admin/teste/b.asp, line 17

[Salgado 4]

Foi só um exemplo, troque: ObjetoUpload pelo nome que você SETou o seu objeto de Upload.

[designmix 0]

Eu sei .. troquei mais nda .. coloquei ate ma mesma pag mais da o mesmo erro

 

erro

Erro de tempo de execução do Microsoft VBScript erro '800a01a8' Objeto necessário: '' /admin/teste/t.asp, line 11

<%if Request.ServerVariables("REQUEST_METHOD") = "POST" thenDim objUploadSet Upload = Server.CreateObject("Persits.Upload.1")Upload.IgnoreNoPost = TrueUpload.OverwriteFiles = trueUpload.SetMaxSize 3048576Upload.SaveToMemoryx = objUpload.SaveVirtual("foto")language =  Upload.Form("language")response.Write languageresponse.End() else%><form method="post" action="t.asp" enctype="multipart/form-data"><input type="checkbox" name="language" value="English" checked>English<br><input type="submit" name="submit" value="submit"></form><%Set objUpload = Nothing%><% end if %>

[Salgado 4]

Esse erro é de outra coisa, veja a linha que aparece na mensagem de erro.

[designmix 0]

ok depois de varios erro consegui... hehehe

 

Mais agora como faço para pegar o nome as imagens que esta no campo file

 

mandei imprimi mais nda

 

INSERT INTO imoveis ( categoria, area, endereco, foto1)values ('12','12','12','')

 

<%Dim mySmartUploadDim intCountDim objUploadSet objUpload = Server.CreateObject("Persits.Upload")objUpload.SetMaxSize 150000, Truex = objUpload.SaveVirtual("foto")area		  = objUpload.Form("area")categoria	 = objUpload.Form("categoria")endereco	  = objUpload.Form("endereco")foto1			  = objUpload.Form("a")Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")strSQL = "INSERT INTO imoveis ( categoria, area, endereco, foto1)"strSQL = strSQL & "values ('" & categoria & "','" & area  & "','" & endereco & "','"& foto1 &"')"Response.Write strSQL response.End()'Response.Write "Upload efetuado com sucesso"Set objUpload = Nothing%>

[designmix 0]

estou mudando os scritp e ate agora nada

 

pequei o valor de x veio 1 seria o campo 1 se coloco pego 2 campos mostra 2

 

<%Dim mySmartUploadDim intCountDim objUploadSet objUpload = Server.CreateObject("Persits.Upload")objUpload.SetMaxSize 150000, Truex = objUpload.SaveVirtual("foto")if objUpload.Form("destaque") = "Yes" then   destaque = "Yes"else   destaque = "No"end ifcategoria	 = objUpload.Form("categoria")area		  = objUpload.Form("area")endereco	  = objUpload.Form("endereco")Set conexao = Server.CreateObject("ADODB.Connection")conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")strSQL = "INSERT INTO imoveis ( categoria, area, endereco, destaque)"strSQL = strSQL & "values ('" & categoria & "','" & area  & "','" & endereco & "','"& destaque &"')"Response.Write strSQL response.End()'Response.Write "Upload efetuado com sucesso"Set objUpload = Nothing%>

[designmix 0]

Achei na net falando para pegar assimFileName = File.FileNameo que acontece é que ele pega todos os nomes na imagem numa variavel so como separa por campo ??estou procurando sobre isso grato

[Salgado 4]

Um exemplo de multicampos no UPLOAD:

		Set Upload = Server.CreateObject("Persits.Upload")
	Upload.OverwriteFiles = False 
	Upload.Save CaminhoUpload

	Set Foto1 = Upload.Files("Foto1")
	Set Foto2 = Upload.Files("Foto2")
	Set Foto3 = Upload.Files("Foto3")
	Set Foto4 = Upload.Files("Foto4")
	Set Foto5 = Upload.Files("Foto5")

Response.Write Foto1.FileName &"<br>"
Response.Write Foto2.FileName &"<br>"
Response.Write Foto3.FileName &"<br>"
Response.Write Foto4.FileName &"<br>"
Response.Write Foto5.FileName &"<br>"

[Evandro Sousa 0]

faz mais facilUsa o FreeASPUpload

[designmix 0]

o f*** que no servidor so aceita esse upload

[designmix 0]

Valeu salgado ... tinha feito assim Foto1 = Upload.Files("Foto1") esqueci de colocar o set ehheheh valeu mesmograto bela ajuda