Upload 2 filer i stedet for en
Jeg har følgende kode hvor jeg uploader en fil til min server og tilføjer navnet til min database og lidt andre småting.Jeg vil gerne have at man kan vælge 2 filer og uploade dem og tilføje hvert navn til hvert sit felt, i stedet for at kun upload en 1 fil.
Nogle der kan hjælpe mig?
Jeg har følgende kode:
<FORM METHOD="POST" ACTION="uploadkatalog.asp" ENCTYPE="multipart/form-data">
<textarea name="overskrift" style="width:443; height:31;"></textarea
Billedefil:</font><font face="Verdana" size="4"><br>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="54
<textarea name="kommentar" style="width:440; height:108;"></textarea><br>
<br>
</font>
<font face="Verdana">Vælg kategori:</font><font face="Verdana" size="4"><br>
<select name="spilkategori">
<option value="arkade">arkade</option>
<option value="action">action</option>
<option value="shoot">shoot'em up</option>
<option value="sport">sport</option>
<option value="puzle">puzle</option>
<option value="bræt">bræt</option>
<option value="bil">bil</option>
<option value="adventure">adventure</option>
</select>
<textarea name="target" style="width:442; height:50;"></textarea><br><br>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</form>
Og selve Uploadfunktionen:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
On Error Resume Next
Upload.SetMaxSize 10048576 ' Limit files to 1MB
Count = Upload.Save(Server.MapPath("/images"))
%>
<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
strKommentar = Replace(Upload.Form("kommentar"),"'","´")
strKommentar = Replace(strKommentar,vbCrLf,"<br />")
strTarget = Replace(Upload.Form("target"),"'","´")
strTarget = Replace(strTarget,vbCrLf,"<br />")
strOverskrift = Replace(Upload.Form("overskrift"),"'","´")
strOverskrift = Replace(strOverskrift,vbCrLf,"<br />")
' Tilfojer til databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("/datadb/db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM seneste "
rs.Open Addera, Connect, 3, 3
rs.addnew
rs("pic") = File.FileName
rs("beskrivelse") = strKommentar
rs("target") = strTarget
rs("kategori") = Upload.Form("kategori")
rs("overskrift") = strOverskrift
rs.update
rs.close
response.write("Billedet er nu tilføjet til databasen")
Next
End if
%>
</TABLE>
</BODY>
</HTML>
Mvh
Henrik
