Håller på lite med [Dundas upload här för uppladdning av bilder men jag får det inte riktigt att fungera.
Hur får jag ut filnamnet på filen som jag laddar upp?
ElseIf Request("page") = "add" Then
If Request("action") = "" Then
%>
<form name="addform" method="post" action="logos.asp?page=add&action=addlogo" enctype="multipart/form-data">
<table cellspacing="0" cellpadding="2" border="0">
<tr>
<td>
Välj bild(775x75px):
</td>
<td>
<input type="file" name="file">
</td>
</tr>
<tr>
<td colspan="2">
<a href="javascript:addform.submit()">Ladda upp</a>
</td>
</tr>
</table>
</form>
<%
ElseIf Request("action") = "addlogo" Then
'On Error Resume Next
Set objUpload = Server.CreateObject ("Dundas.Upload.2")
objUpload.UseVirtualDir = true
If Err.Number <> 0 Then
Response.Write(Err.Description)
Else
Dim strFile
[blue]strFile = objUpload.Files
'Här ovan vill jag altså ha filnamnet.[/blue]
Set rs = Connect.Execute("SELECT filename FROM logos WHERE filename = '" & strFile & "'")
If NOT rs.EOF Then
Response.Write("Det finns redan en loggo med namnet " & strFile & "!<br><br style=""line-height: 4px;""><a href=""logos.asp?page=add""><-- Tillbaka</a>")
Else
objUpload.Save "../images/logos"
Response.Write(strFile & " har blivit uppladdad!<br><br style=""line-height: 4px;""><a href=""logos.asp?page=add""><-- Tillbaka</a>")
End If
rs.Close
Set rs = Nothing
End If
Set objUpload = Nothing
End If
Säg gärna till om ni skulle se någon annan konstig kod också för jag är inte allt för insatt i den här komponenten.](http://www.dundas.com)