Hej!
Stångar huvudet blodigt i mina försök att redigera en inmatning samtidigt som jag kan ladda upp en fil!
Så här ser form-sidan ut
<%if a63("bild1") ="" then%>
<input type="file" name="bild1"><br>
<%else%>
<a class=brod href="/upload/kb/<%=a63("bild1")%>" target="new_window"><%=a63("bild1")%></a> - <a class=brod href="tabort_fil.asp?id=<%=request("id")%>&fil=bild01">ta bort</a><br>
<%end if%>
Om filen saknas, bild1, så visas en file-fält så att man kan ladda upp en fil
upload och inmatningssida
Dim oFileUp
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
oFileUp.Path = Server.MapPath(Application("vroot") & "/upload/kb")
' ######### BILD1
If Not oFileUp.Form("bild1").IsEmpty Then
oFileUp.Form("bild1").Save
tmp_bild1 = oFileUp.Form("bild1").ServerName
SQL1 = "UPDATE db_i SET bild1 = '"& tmp_bild1&"' WHERE id ="& tmp_id
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open Application("koppling")
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set a61 = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = SQL1
Set cmdTemp.ActiveConnection = DataConn
a61.Open cmdTemp, , 1, 1
End If
Och detta är felmeddelandet som jag får
Microsoft VBScript runtime error '800a01a8'
Object required: 'Form(...)'
/kb/redigera_2.asp, line 10
Vad gör jag för fel? Måste fältet "bild1" finnas på form-sidan eller är det något annat som är fel?
rollo