seguinte: to fazendo um sistema de upload de imagens e precisaria renomear o arquivo com um valor randomico... ficaria esse valor seguido do nome original da imagem
por exemplo:
92938_nome.jpg
91928_nome2.jpg
e assim por diante
ate ai td bem, ele realmente muda o valor da variavel da imagem, salva no banco td certinho com esse valor aleatorio, mas a imagem nao renomeia... tentei de diversas formas mas nao tem jeito...
alguem pode dar um help?
Function GerarChave(Valores)
Dim teste_Array(9)
teste_Array(0) = "0"
teste_Array(1) = "1"
teste_Array(2) = "2"
teste_Array(3) = "3"
teste_Array(4) = "4"
teste_Array(5) = "5"
teste_Array(6) = "6"
teste_Array(7) = "7"
teste_Array(8) = "8"
teste_Array(9) = "9"
Randomize
Do While Len(Chave) < 06
Num = teste_array(Int(9 * Rnd ))
Chave = Chave + Num
Loop
GerarChave = Chave
End Function
varChave = GerarChave(6)
Server.ScriptTimeout=1000000000
On Error Resume Next
Set Upload = Server.CreateObject("ASPSmartUpload.SmartUpload")
Upload.AllowedFilesList = "gif,jpg"
Upload.MaxFileSize = 1000000
Upload.TotalMaxFileSize = 4000000
Upload.Upload
For each File in Upload.Files
If File.Size > 0 Then
imagem = varChave & "_" & File.FileName
Upload.Save("/img_produtos")
produto = request.querystring("produto_id")
sqlString = "INSERT INTO imagens"&_
"(imagem, produto) VALUES ( '" & imagem & "','" & produto & "')"
Conn.Execute sqlString
Else
Response.Write "O arquivo enviado é inválido"
End if
Next
If Err Then
Response.Write "Houve um erro: " & Err.Description
End if
Set Upload = Nothing
este code está funcionando, mas qdo uso um dos comando abaixo pra renomar a imagem ele da erro
file.SaveAs("/img_produtos" & imagem)
ou
Upload.Save("/img_produtos/"&imagem)
erro:
Unable to save file
