ændre fra aspupload til aspsmartupload
hej, jeg har et script der skal uploade 3 lydfiler til en mappe, og lægge stien med nyt navn og nogle tekst felter i en access db .. det gik så godt med aspupload ..men det vil det webhotel vi nu hoster på ikke understøtte .. så jeg skal basically lave det om til aspsmartupload .. og det går ad h ..til ..Gider I kigge på koden ?
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload
' ******
mySmartUpload.Upload
'Upload.ProgressID = Request.QueryString("PID")
'Upload.SetMaxSize 3000000, True
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_connStaarm_STRING
descr1=Replace( mySmartUpload.Form("inpContent"),"strong>","b>")
descr2=Replace((descr1),"em>","i>")
'descr3=Replace((descr2),"&","%26")
descr=Replace((descr2),"p>","br>")
set titel= mySmartUpload.Form("titel")
set check= mySmartUpload.Form("user")
set hvilken = mySmartUpload.Form("id")
set dato = mySmartUpload.Form("dato")
set lyd_titel= mySmartUpload.Form("lyd_titel")
set lyd_tekst= mySmartUpload.Form("lyd_tekst")
set lyd_link= mySmartUpload.Form("lyd_link")
set lyd_link= mySmartUpload.Form("tekst_link")
dag = Day(Date)
mdr = Month(Date)
aar = Year(Date)
ctime = Hour(Time)
min = Minute(Time)
sek = Second(Now)
TIDNU = aar & mdr & dag & ctime & min & sek
function lavPassword(antal)
tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
str = ""
randomize
for j = 1 to antal
index = Int(rnd * len(tilladtkarakter))+1
str = str & Mid(tilladtkarakter,index,1)
next
lavPassword = str
end function
CountFiles = mySmartUpload.Save
if CountFiles < 3 then response.redirect "dk_st_new.asp?message=Du skal have valgt en 3 lydfiler med gennemse"
'for each file in Upload.Files
fn = lcase(Right(File.ExtractFileName, 4))
imageerror="dk_st_new.asp?message=Du må kun uploade lydfiler af typen .mp3"
if imageerror <> "" then
Ext = lcase(Right(File.ExtractFileName, 3))
If not (Ext = "mp3") Then
File.Delete
Response.Redirect imageerror
End if
End if
filnavn = Session("MM_Username") & TIDNU & lavpassword(5)
if (lyd_titel) <> "" then
File.SaveAs "/dictionary/heropdaterervi/assets/lyde_ordbog/" & filnavn & "_titel" & fn
end if
if (lyd_tekst) <> "" then
File.SaveAs "/dictionary/heropdaterervi/assets/lyde_ordbog/" & filnavn & "_tekst" & fn
end if
if (lyd_link) <> "" then
File.SaveAs "/dictionary/heropdaterervi/assets/lyde_ordbog/" & filnavn & "_link" & fn
end if
'Next
' SQL sætning opbygges
strSQL = "INSERT INTO dk_data(titel, tekst, dato, af, lyd_titel, lyd_tekst, lyd_link, tekst_link)"
strSQL = strSQL & " VALUES('" & (titel) & "', '" & (descr) & "', '" & (dato) & "', '" & (af) & (lyd_titel) & (lyd_tekst) & (lyd_link) & (tekst_link) &"');"
' strSQL = strSQL & " Where Id=" & (hvilken)
' SQL sætning eksekveres
Conn.Execute(strSQL)
Response.write (strSQL)
Response.end
response.redirect "dklist.asp?message=Du har lavet et nyt opslag kaldet " & (titel)
%>