Skifte fra AspSmartUpload til AspUpload- hjælp søges?!

Hejsa har du set følgende Script som er frit og gratis.

asp upload:
http://www.freeaspupload.net/freeaspupload/download.asp

Hej

Nej det kender jeg ikke. Det er efterhånden en del år siden, at jeg har rodet med andet end basis html, så jeg ville helst undgå, hvis jeg skulle til at rode mig ud i noget kompliceret.

Det er dog helt sikkert værd at kigge nærmere på, hvis det ikke lykkes at finde en, som kan fikse det lynhurtigt.

Den kode som jeg umiddelbart tror er det eneste som skal rettes, ser således ud. Tænker at det sikkert kun er nogle enkelte ting som skal tilpasses for at skifte komponent.

"If mode = "2" Then

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload
Const adOpenKeyset = 1
Const adLockOptimistic = 3

If mySmartUpload.files("billede").Size > 204800 Then
Set mySmartUpload = Nothing
Response.Redirect "skrivnyhed.asp?message=2"
End If

If Not mySmartUpload.files("billede").IsMissing Then
If LCase(mySmartUpload.files("billede").FileExt) <> "jpg" And LCase(mySmartUpload.files("billede").FileExt) <> "jpeg" And LCase(mySmartUpload.files("billede").FileExt) <> "gif" Then
Set mySmartUpload = Nothing
Response.Redirect "skrivnyhed.asp?message=1"
End If
End If

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\db\20links00.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM nyheder"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
dato = now

rs.AddNew
rs("overskrift") = mySmartUpload.form("overskrift")
rs("forfatter") = mySmartUpload.form("forfatter")
rs("beskrivelse") = mySmartUpload.form("beskrivelse")
rs("dato") = dato
rs("billede") = ""
rs("nyhed") = mySmartUpload.form("nyhed")
rs.Update
If Not mySmartUpload.files("billede").IsMissing Then
rs("billede") = rs("id") & "." & mySmartUpload.files("billede").FileExt
rs.Update
mySmartUpload.files("billede").SaveAs Server.MapPath("./billeder/" & rs("id") & "." & mySmartUpload.files("billede").FileExt)
End If"

Ingen med en hurtig indsats?

Prøver lige at poppe tråden op igen i håb om, at der skulle sidde en derude med lyst til at uddele julehjælp :-)