Hej!

Jag har ett litet problem här.

Jag vill från ett formulär kunna ladda upp en fil till en mapp på min server. Till den filen hör en beskrivning och den kategori som filen tillhör.

När filen så är uppladdad ska den presenteras på en annan sida som en klickbar länk.

1. Det fungerar fint att ladda upp filen till katalogen.
2. Det går även bra att skriva in beskrivningen och kategorin på filen i databasen.
3. Det går mindre bra att få in filnamnet i databasen.

Jag har sökt information här på forumet ang. separera filnamn men jag får det inte att fungera.

Koden jag har idag ser ut såhär (jag visar bara det som är relevant för problemet, andra frågor som säkerhet osv. har jag fixat redan). Allting ligger på samma sida i den ordning det presenteras nedan.

Frågan jag då behöver få svar på är hur jag drar fram filnamnet ur sökvägen så att jag kan skriva in den i databasen?


<%'Tar bort post om det alternativet valdes. Fungerar bra!
If Request.QueryString("Delete") <> "" Then
SQL = "Delete From Documents Where id = " & Request.QueryString("Delete")
Connection.Execute(SQL)
Response.Redirect "readadmin.asp"
End If

'Lägger till post om det alternativet valdes. Fungerar mindre bra!
If Request.QueryString("do") = "add" Then

Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("F:\sökväg_till_mappen_där_filen_ligger")

'URL = ??? Här behöver jag veta filnamnet
Description = Upload.Form("Description")
Category = Upload.Form("Category")

SQL = "Insert Into Documents(URL, Description, Category) Values('" & URL & "', '" & Description & "', '" & Category & "')"

Connection.Execute(SQL)

Connection.Close
Set Connection = nothing
Response.Redirect "readadmin.asp"
End If
%>

Formuläret som skickar iväg datat:

<form name="form2" method="post" ENCTYPE="multipart/form-data" action="readadmin.asp?do=add">
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<b>Dokument:</b><br>
<INPUT TYPE="FILE" SIZE="40" NAME="URL"><p>

<b>Beskrivning:</b><br>
<input type="text" name="Description" size="54"><p>

<b>Dokumentkategori:</b><br>
<select name="Category">
<option></option>
<option value="befattningsbeskrivningar">Befattningsbeskrivningar</option>
<option value="manadsbrev">Månadsbrev</option>
<option value="protokoll">Protokoll</option>
<option value="stadanvisningar">Städanvisningar</option>
<option value="arsredovisningar">Årsredovisningar</option>
<option value="ovriga">Övriga dokument</option>
<option value="lilla">Lillas dokument</option>
<option value="stora">Storas dokument</option>
</select>

<p>

<input type="submit" name="Submit2" value="Lägg till">
</font>
</form>

Mvh/Magnus

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 2090000, True 'om du vill ha en maxtillåten filstorlek. Här 2MB
Upload.Save 'sparar filen temporrät i minnet på servern

Set TheFile = Upload.Files("FILE1") 'byt FILE1 mot vad namnet är i type=file 
URL= TheFile.OriginalFileName

'om du vill så ta bort lite mellanslag och tecken som kan strula till det annars använd bara URL
filename= TheFile.OriginalFileName
filename = replace(filename,",","-")
filename = replace(filename," ","_")
filename = replace(filename,"ö","o")
filename = replace(filename,"ä","a")
filename = replace(filename,"å","a")
TheFile.SaveAs "F:\sökväg_till_mappen_där_filen_ligger\"&URL 'eller filename

Description = Upload.Form("Description")
Category = Upload.Form("Category")

SQL = "Insert Into Documents(URL, Description, Category) Values('" & URL & "', '" & Description & "', '" & Category & "')"
Connection.Execute(SQL)
%>

Tackar! Det fungerar bra. Jag har faktiskt tittat i manualen för ASPUpload, men måste ha missat det.

Mvh/Magnus