Trådstart#1
<%
response.buffer=true
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save("e:\tanakawebb.com\dweb\intern\docs")
Set File = Upload.Files(1)
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/dweb/db/database.mdb")
SQLStmt = "Insert into docs "
SQLStmt = SQLStmt & " (namn, beskrivning, kategori) "
SQLStmt = SQLStmt & " Values('" & upload.Form("FILE2") & "', '" & upload.Form("DESCRIPTION") & "', '" & upload.Form("CATEGORY") & "')"
Connection.Execute(SQLStmt)
SET SQLStmt = Nothing
SQLStmt = "Select Max(Id) as senasteid from docs"
SET RS = Connection.Execute(SQLStmt)
senasteid = RS("senasteid")
RS.Close
SET SQLStmt = Nothing
Extension = "doc"
filen=upload.Form("FILE2")
filnamn = filen & senasteid & "." & Extension
File.CopyVirtual "\dweb\intern\docs\" & senasteid & "." & Extension
SQLStmt = "Update docs "
SQLStmt = SQLStmt & " SET namn = '" & Filnamn & "'"
SQLStmt = SQLStmt & " Where Id = " & senasteid
Connection.Execute(SQLStmt)
SET SQLStmt = Nothing
Connection.Close
response.redirect "default.asp"
%>
Som det är nu så blir filnamnet det senaste idnumret.doc men jag skulle vilja få hjälp med att ändra det så att filnamnet är samma som det var på hårddisken. Är det nån som vet hur man gör det samt att det bara ska gå att ladda upp filer med ändelsen .doc eller pdf.