Her er koden:
FORM.ASP
<FORM METHOD="POST" ACTION="uploadkliplink.asp" ENCTYPE="multipart/form-data">
Vælg filmklip destination
<select name="visnyhed">
<option value="1">Forside nyheder</option>
<option value="2">Filmklip</option>
</select>
Vælg kategori:
<select name="kategori">
<option value="1">Film</option>
<option value="2">Billede</option>
<option value="streetracing">Streetracing</option>
</select>
Flash Link
<select name="flash">
<option value="1">Nej</option>
<option value="2">Ja</option>
</select>
Beskrivelse
<textarea name="beskrvelse"</textarea><br><br>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</form>
Filmklip
<textarea name="target"</textarea><br><br>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</form>
UPLOAD.ASP
<%
Server.ScriptTimeout = 220
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 900048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/upload/data"))
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<CENTER>
<% If Err <> 0 Then %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<H3>The following error occured while uploading:</h3>
</FONT>
<FONT SIZE=3 FACE="Arial" COLOR=#FF2020>
<h2>"<% = Err.Description %>"</h2>
</FONT>
<FONT SIZE=2 FACE="Arial" COLOR="#0020A0">
Please <A HREF="aspupload.asp">try again</A>.
</FONT>
<% Else %>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<h2>Success! <% = Count %> file(s) have been uploaded.</h2>
</FONT>
<FONT SIZE=3 FACE="Arial" COLOR=#0020A0>
<TABLE BORDER=1 CELLPADDING=3 CELLSPACING=0>
<TH BGCOLOR="#FFFF00">Uploaded File</TH><TH BGCOLOR="#FFFF00">Size</TH><TH BGCOLOR="#FFFF00">Original Size</TH><TR>
<% For Each File in Upload.Files
filename = File.FileName %>
<TD><B><% = File.OriginalPath %></B></TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.Size %> bytes</TD>
<TD ALIGN=RIGHT VALIGN="TOP"><% =File.OriginalSize %> bytes</TD><TR>
<%
' Formaterer teksten
strbeskrivelse = Replace(Upload.Form("beskrivelse"),"'","´")
strbeskrivelse = Replace(strbeskrivelse,vbCrLf,"<br />")
' Tilfojer til databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/datadb/database.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM seneste "
rs.Open Addera, Connect, 3, 3
rs.addnew
rs("filnavn") = File.FileName
rs("beskrivelse") = strbeskrivelse
rs("visnyhed") = Upload.form("visnyhed")
rs("flash") = Upload.form("flash")
rs("target") = strTarget
rs("kategori") = Upload.form("kategori")
response.write("Filen er nu tilføjet til databasen")
Next
End if
%>
</TABLE>
</FONT>
<P>
<FONT SIZE=2 FACE="Arial" COLOR=#0020A0>
<META HTTP-EQUIV=Refresh CONTENT="1; URL=http://www.hyggestedet.dk/upload.aspx?navn=<%=rs("filnavn")%>">
<%
rs.update
rs.close
%>
</FONT>
</CENTER>
</BODY>
</HTML>
