Persits ASPUpload
HejEr der nogle der kan se hvorfor at dette script ikke vil uploade noget?
Det arbejder sammen med XUpload.
<!--#include virtual="/secure/connection.asp"-->
<!--#include virtual="/secure/access.asp"-->
<% Session.LCID = 1030
' Create an instance of AspUpload object
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
For Each File in Upload.Files
'--------------------------------------------------------------------
'INSERT INTO DB START
'--------------------------------------------------------------------
SQL = "insert into videogalleri (galleriID,video,godkendt,dato) values('" & request.QueryString("galleriID") & "','','0','" & now() & "')"
Conn.execute(SQL)
SQL2 = "SELECT last_insert_id() FROM videogalleri"
Set RS = Conn.Execute(SQL2)
nytID = RS(0)
nytID2 = RS(0)&".avi"
'--------------------------------------------------------------------
'INSERT INTO DB END
'--------------------------------------------------------------------
'--------------------------------------------------------------------
'CREATE VIDEO START
'--------------------------------------------------------------------
File.SaveAs "C:\websites\xxxxx.dk\images\videogalleri\" & nytID2
'--------------------------------------------------------------------
'CREATE VIDEO END
'--------------------------------------------------------------------
'--------------------------------------------------------------------
'UPDATE DB START
'-------------------------------------------------------------------
SQL = "UPDATE videogalleri SET video = '" & nytID2&"' WHERE id = '" & nytID & "'"
Conn.execute(SQL)
'--------------------------------------------------------------------
'UPDATE DB END
'-------------------------------------------------------------------
next
%>
Den sætter det første fint ind i databasen, og når den kommer til at skal gemme filen, så udføre den ikke resten af scriptet. Men den kommer ikke med nogle fejl.