dette eksempel bruger Persist.Upload
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="billeder_include/upload_billeder.asp">
<INPUT TYPE="hidden" SIZE="40" NAME="billede_sti" value="d:\web\ditdomain.dk\www\billeder\">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="33%">
<p align="right"><font face="Verdana" size="2" color="#FFFFFF">Billede serie :</font></td>
<td width="33%"><select size="1" name="Billedeserie">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
</select></td>
<td width="34%"> </td>
</tr>
<tr>
<td width="33%">
<p align="right"><font face="Verdana" size="2" color="#FFFFFF">Billedefil
til upload</font></td>
<td width="33%"><INPUT TYPE="FILE" SIZE="40" NAME="FILE1"></td>
<td width="34%"> </td>
</tr>
<tr>
<td width="33%">
<p align="right"><font face="Verdana" size="2" color="#FFFFFF">Billede
beskrivelse</font></td>
<td width="33%"><INPUT TYPE="tekst" SIZE="40" NAME="tekst1"><input type="submit" value="Submit" name="B1"></td>
<td width="34%"> </td>
</tr>
</table>
</FORM>
<%system = "d:\web\ditdomain.dk\database\system.mdb"
Set rsbilleder = Server.CreateObject("ADODB.Connection")
Rsbilleder.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&system
%>
<HTML>
<body bgcolor="#7D8D4C">
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
%>
Files:<BR>
<%
path = "d:\web\ditdomain.dk\www\Billeder"
Beskrivelse = Upload.form("tekst1")
Serie = Upload.Form("Billedeserie")
Upload.CreateDirectory Path&"\"&serie, True
Set File = Upload.Files("FILE1")
If Not File Is Nothing Then
' Obtain file name
Filename = file.Filename
' check if file exists in c:\upload under this name
If Upload.FileExists("d:\web\aahansen.dk\www\Billeder\"&serie&"\" & filename ) Then
Response.Write "File with this name already exists."
Else
' otherwise save file
File.SaveAs "d:\web\ditdomain.dk\www\Billeder\"&serie&"\"& File.Filename
Response.Write "File saved as " & File.Path
End If
Else ' file not selected
Response.Write "File not selected."
End If
strsql="insert into billeder (billedesti, billedenavn, billedetekst, serie) Values ('"&path&"','"&Filename&"','"&beskrivelse&"','"&serie&"')"
rsbilleder.execute(strsql)
%>
<%
rsbilleder.close
set rsbilleder = Nothing
response.redirect("
http://www.ditdomain.dk/administration/billeder.asp?funktio=opret")%>
</BODY>
</HTML>
