webForumDet fria alternativet

problem med Softartisans upload

0 svar · 200 visningar · startad av rollo

rolloMedlem sedan aug. 2001203 inlägg
#1

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

133 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)