Request i Xupload

Er der virkelig ikke nogen der kan hjælpe, der er mange point... :-)

Det her virker, det er godt nok ikke med en access db men en mysql.
Du skal bare skifte mysql ud med access.

Det her er upload.asp:

<!--#include virtual="/secure/connection.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
%>

Her er default.asp:

<SCRIPT LANGUAGE="VBScript">
Sub Select_OnClick
  UploadCtl.Select
End Sub
Sub Remove_OnClick
  UploadCtl.RemoveHighlighted
End Sub

Sub RemoveAll_OnClick
  UploadCtl.RemoveAll
End Sub

Sub Upload_OnClick
  UploadCtl.Upload
End Sub
</SCRIPT>
<input type="hidden" name="MAX_FILE_SIZE" value="10000000000">

<OBJECT WIDTH=100% HEIGHT=200
  ID="UploadCtl"
  CLASSID="CLSID:E87F6C8E-16C0-11D3-BEF7-009027438003"
  CODEBASE="XUpload.ocx">
<PARAM NAME="Server" VALUE="www.xxxxxx.dk">
<PARAM NAME="Script" VALUE="/videogalleri/upload.asp?galleriID=<%=request.QueryString("galleriID")%>">
<PARAM NAME="ViewServerReply" VALUE="false">
<PARAM NAME="EnablePopupMenu" VALUE="True">
<PARAM NAME="MaxFileSize" VALUE="5000000">
<PARAM NAME="MaxTotalSize" VALUE="50000000">
<PARAM NAME="MaxFileCount" VALUE="50">
<PARAM NAME="Extensions" VALUE="avi">
<PARAM NAME="Redirect" VALUE="True">
<PARAM NAME="RedirectURL" VALUE="http://www.xxxxx.dk/videogalleri/default.asp">
</OBJECT>
<INPUT TYPE=BUTTON NAME="SELECT" VALUE="Find Videoer">
<INPUT TYPE=BUTTON NAME="REMOVE" VALUE="Fjern">
<INPUT TYPE=BUTTON NAME="REMOVEALL" VALUE="Fjern Alle">
<INPUT TYPE=BUTTON NAME="UPLOAD" VALUE="Upload">

Hvis du er i tvivl om noget skal du bare spørge :o)

Er du der??

Yes! Tak for hjælpen har fået det til at fungerer ved at lave de almindelige request fra asp-upload. Vi deler pointene :-)

smid et svar

ok, her er et svar :o)