A Hva\'?
Jeg har et upload script som virker fint, indtil jeg requester filnavnet når jeg skal skrive i en database...Hvordan kan det være?
Gider en få jer eksperter ikke sætte koden sammen så den passer:
**********************Upload Script*******************
<!-- #include file=\"upload.asp\" -->
<%
Dim Uploader, File
Set Uploader = New FileUploader
Uploader.Upload()
If Uploader.Form(\"cmd\") = \"Upload\" Then
\' Check if any files were uploaded
If Uploader.Files.Count = 0 Then
Response.Write \"File(s) not uploaded.\"
Else
\' Loop through the uploaded files
For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(\"images\")
Next
%>
---------disse filer skal requestes af databasen--------
<%=Uploader.Files(\"file1\").FileName%>
<%=Uploader.Files(\"file2\").FileName%>
<%
End If
Else
%>
<Form method=\"post\" ENCTYPE=\"multipart/form-data\" action=\"<%=Request.ServerVariables.Item(\"SCRIPT_NAME\")%>\">
<input type=\"hidden\" name=\"cmd\" value=\"Upload\">
<input type=\"file\" name=\"file1\"/><br/>
<input type=\"file\" name=\"file2\"/><br/>
<input type=\"submit\" valeu=\"Upload\">
</form>
<%
End If
%>
**********************Database*******************
<form method=\"POST\" action=\"?mode=opret\">
<tr>
<td height=\"15\">
<p align=\"center\"><font face=\"Tahoma\" size=\"1\" color=\"#24344B\">
</font>
<tr>
<font face=\"Tahoma\" size=\"2\">
<td height=\"224\">
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Mærke:</b></font></td>
<td width=\"60%\"><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"Mærke\" size=\"50\"></font></td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Årgang:</b></font></td>
<td width=\"60%\"><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"Årgang\" size=\"50\"></font></td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Farve:</b></font></td>
<td width=\"60%\"><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"Farve\" size=\"50\"></font></td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Ekstra:</b></font></td>
<td width=\"60%\"><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"Ekstra\" size=\"50\"></font></td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Diverse:</b></font></td>
<td width=\"60%\"><font face=\"Tahoma\" size=\"2\"><textarea style=\"border: 1 solid #999999\" name=\"Diverse\" size=\"50\" rows=\"3\" cols=\"44\"></textarea></font>
</td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Billede:</b></font></td>
<td width=\"60%\"><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"pic1\" size=\"50\"></font></td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Billede inde fra:</b></font></td>
<td width=\"60%\"><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"pic2\" size=\"50\"></font></td>
</tr>
<tr>
<td width=\"29%\"></td>
<td width=\"11%\">
<font face=\"Tahoma\" size=\"2\">
<b>Pris:</b></font></td>
<td width=\"60%\">
<font face=\"Tahoma\" size=\"2\">
<i><font color=\"#24344B\"><input type=\"text\" style=\"border: 1 solid #999999\" name=\"Pris\" size=\"50\"></font></i></font>
</td>
</tr>
</table>
</center>
</div>
</font>
</tr>
<tr>
<td width=\"12%\" height=\"1\">
<div align=\"center\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\">
</td>
<td width=\"50%\">
<p align=\"left\"><input type=\"submit\" value=\"opret\" name=\"send\">
</td>
</tr>
</table>
</div>
</td>
</tr>
</form>
<% mode = request(\"mode\") %>
<% if mode = \"opret\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"porche.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
SQL = \"Select * From bilertilsalg\"
rs.Open SQL, Conn, 1, 3
rs.AddNew
rs(\"Mærke\") = Request.form(\"Mærke\")
rs(\"Årgang\") = Request.form(\"Årgang\")
rs(\"Farve\") = Request.form(\"Farve\")
rs(\"Ekstra\") = Request.form(\"Ekstra\")
rs(\"Diverse\") = Request.form(\"Diverse\")
rs(\"Pris\") = Request.form(\"Pris\")
rs(\"Pic1\") = Request.form(\"Pic1\")
rs(\"Pic2\") = Request.form(\"Pic2\")
rs.Update
Conn.Close
Set Conn = Nothing
response.redirect(\"opretbil.asp\")
%>
<% end if %>
