e ele sobrescre a imagem dessa maneira, cara se nao pra ajudar então não fica aqui imaginando o que as pessoas fazem.
Tira as conclusões por ti?
Agente linhares, não deu pra fazer como eu gostaria, mas ainda assim, funcionou, se desse pra controlar cada upload seria melhor, os arquivos são assim 00-0000.pdf e dai eu tiro o codigo do arquivo.
bom é isso, valeu pela ajuda.
<%
Function Mover(Arquivo, Destino)
Dim fso, arq_nome, var_tmp, arq_original_nome
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set arq_nome = fso.GetFile(Server.MapPath("pdf/" & Arquivo))
arq_original_nome = Right(arq_nome, (Len(arq_nome)-(inStr(arq_nome,"}_")+2)))
arq_nome.Move(Server.MapPath("pdf/") & "\" & Destino & arq_original_nome)
Set arq_nome = Nothing
Set fso = Nothing
Mover = arq_original_nome
End Function
'On Error Resume Next
Dim objUpload
Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseVirtualDir = True
objUpload.UseUniqueNames = True
objUpload.Save "pdf"
If Err <> 0 Then
Response.Write("Houve um erro e o upload dos arquivos não foi efetuado.<br>")
Response.Write("Descrição do erro: " & Err.Description)
Response.Write("<br>Número do erro: " & Err.Number)
Response.End()
Else
Dim varFispq(4)
Dim varBt(4)
Dim varArqF(4)
Dim varArqB(4)
Dim varArqFO(4)
Dim varArqBO(4)
Dim varDescr(4)
For i = 1 To 5
varFispq(i-1) = objUpload.Form("valfispq" & i)
' Response.Write(objUpload.Form("valfispq" & i) & "<br />")
varBt(i-1) = objUpload.Form("valbt" & i)
' Response.Write(objUpload.Form("valbt" & i) & "<br />")
varDescr(i-1) = Replace(objUpload.Form("descri" & i),"'","''")
' Response.Write(objUpload.Form("descri" & i) & "<br />")
Next
varCount = 0
For i = 0 To 4
If varFispq(i) = "1" Then
varArqF(i) = objUpload.GetFileName(objUpload.Files(varCount).Path)
varArqFO(i) = Mover(varArqF(i), "ficha\")
varCount = varCount + 1
End If
If varBt(i) = "1" Then
varArqB(i) = objUpload.GetFileName(objUpload.Files(varCount).Path)
varArqBO(i) = Mover(varArqB(i), "boletim\")
varCount = varCount + 1
End If
Next
AbreBanco
For i = 0 To 4
If varFispq(i) = "1" Or varBt(i) = "1" Then
If varArqFO(i) <> "" Then
varRef = Mid(varArqFO(i),3,Len(varArqFO(i))-6)'00-0000.pdf
ElseIF varArqBO(i) <> "" Then
varRef = Mid(varArqBO(i),3,Len(varArqBO(i))-6)
End If
objCon.Execute("insert into pdf (id_pdf, ficha, boletim, descricao) values ('" & varRef & "','" & varArqFO(i) & "','" & varArqBO(i) & "','" & varDescr(i) & "')")
End If
Next
FechaBanco
Set objUpload = Nothing
End If
' Response.Write("<p>Final do Arquivo.</p>")
For i = 0 To 4
' Response.Write("<p><strong>" & i & ".</strong> Fisp: " & varArqFO(i) & "<br />")
' Response.Write("Boletim: " & varArqBO(i) & "<br />")
' Response.Write("Descrição: " & varDescr(i) & "</p>")
Next
Response.write "Uploads eftuados com sucesso!"
response.write "<br><br>Você será redirecionado em 1 segundos..<br>"
response.write "<script language=""JavaScript"">"
response.write "alert(""Upload Efetuado com sucesso"")"
response.write "</script>"
response.write "<meta http-equiv='refresh' content='0; url=fisp.asp'/>"
%>
