Jeg har brug for lidt hjælp til at komme videre.
Er meget i tvivl omkring de rigtige syntakser (jeg benytter AspSmartUpload) og om hvordan jeg sikrer mig, at jeg får extension gemt i hhv. c1e, c2e og c3e.
Hér er hvad jeg har lavet foreløbig...
----------------
<%
Session.LCID = 1030
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<title></title>"
Response.Write "<link rel='stylesheet' href='layout/3.css' type='text/css' media='screen'>"
Response.Write "<link rel='stylesheet' href='layout/3p.css' type='text/css' media='print'>"
Response.Write "</head>"
Response.Write "<body>"
Response.Write "<div id='menu'>"
%>
<!--#include virtual='/oddsrus/discoteket.asp'-->
<%
Response.Write "</div>"
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
medie = UpLoad.Form("medie")
Select Case medie
Case "CD"
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tabel WHERE (CD_id = 0)"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("baser/medie-test-db.mdb")
rstemp.Open strSQL, strDSN, 1, 3
strKunstner = Upload.Form("kunstner")
strTitel = Upload.Form("titel")
strTekst = Upload.Form("Tekst")
strKategori = Upload.Form("kategori")
strAar = Upload.Form("aar")
strLaengde = Upload.Form("laengde")
strKommentar = Upload.Form("kommentar")
strURL = Upload.Form("url")
strDiscs = Upload.Form("discs")
strKopi = Upload.Form("kopi")
strMp3konv = Upload.Form("mp3_konv")
strC1 = rs("id")
strC2 = rs("id")
strC3 = rs("id")
strC1e = file(1).Ext
strC2e = file(2).Ext
strC3e = file(3).Ext
rs.AddNew
CD_id = rs("id")
rs("init") = Session("loginid")
rs("kunstner") = strKunstner
rs("titel") = strTitel
rs("kategori") = strKategori
rs("aar") = strAar
rs("laengde") = strLaengde
rs("url") = strURL
rs("vurdering") = strVurdering
rs("kommentar") = strKommentar
rs("dato_insert") = Date() & " " & Time()
rs("dato_update") = Date() & " " & Time()
rs("discs") = strDiscs
if strKopi = "on" then
rs("kopi") = True
else
rs("kopi") = False
end if
if strMp3konv = "on" then
rs("mp3_konv") = True
else
rs("mp3_konv") = False
end if
rs("c1") = strC1
rs("c2") = strC2
rs("c3") = strC3
rs("c1e") = strC1e
rs("c2e") = strC2e
rs("c3e") = strC3e
rs.Update
Set file = myUpload.Files("file1")
file.SaveAs "discoteket/covers/" & medie & "/" & id & "f." & file.Ext
Set file = myUpload.Files("file2")
file.SaveAs "discoteket/covers/" & medie & "/" & id & "f." & file.Ext
Set file = myUpload.Files("file3")
file.SaveAs "discoteket/covers/" & medie & "/" & id & "f." & file.Ext
link = "discoteket_start.asp"
response.redirect (link)
Case Else
Response.Write "Ukendt medie!"
End Select
%>
</body>
</html>
