aspSmartUpload problem!
Hej EksperterJeg har følgende form:
<form action="kalend.asp?action=opret" method="post" enctype="multipart/form-data">
<span class="overskrift">Opret arrangement i kalenderen</span><br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr height="19">
<td align="left" valign="top" class="tekst" width="125" height="19">Overskrift:</td>
<td align="left" valign="top" class="tekst" height="19"><input type="text" name="overskrift" class="felt"></td>
</tr>
<tr height="19">
<td align="left" valign="top" class="tekst" width="125" height="19">Billed:</td>
<td align="left" valign="top" class="tekst" height="19"><input type="file" name="billed" class="felt"></td>
</tr>
<tr height="94">
<td align="left" valign="top" class="tekst" width="125" height="94">Tekst:</td>
<td align="left" valign="top" class="tekst" height="94"><textarea name="tekst" class="felt2"></textarea></td>
</tr>
<tr height="19">
<td align="left" valign="top" class="tekst" width="125" height="19">Dato: (dd-mm-åååå)</td>
<td align="left" valign="top" class="tekst" height="19"><input type="text" name="dato" class="felt"></td>
</tr>
<tr height="19">
<td align="left" valign="top" class="tekst" width="125" height="19"> </td>
<td align="left" valign="top" class="tekst" height="19"><input type="submit" value="Opret" class="knap"></td>
</tr>
</table>
</form>
Og på kalend.asp har jeg så følgende kode:
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("sti/navn.mdb") & ";UID=;PWD=;"
%>
<% if request("action") = "opret" then %>
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
mySmartUpload.AllowedFilesList = "gif,jpg,jpeg"
intCount = mySmartUpload.Save("sti")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From database"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("overskrift") = mySmartUpload.form("overskrift")
rs("billed") = mySmartUpload.form("billed")
rs("tekst") = mySmartUpload.form("tekst")
rs("dato") = mySmartUpload.form("dato")
rs.Update
rs.Close
Set rs = Nothing
%>
<span class="overskrift">Arrangementet er oprettet</span>
<% end if %>
Det virker også fint den uploader filen og tilføjer det den skal til databasen undtagen "file"-feltet med navnet "billed". Den kommer ik med nogen fejl-meddelse, så har ik rigtig nogen ide til hvad jeg kan gøre for at rette op på det!
Er der nogen der har nogle ideer?
Thomas Clausen
