webForumDet fria alternativet

Object variable not set:(dimac upload)

6 svar · 388 visningar · startad av doggelito

doggelitoMedlem sedan juni 20003 076 inlägg
#1

har en checkbox i ett form, checkar man inte i så händer detta.
nån som stött på problemet? kan man komma undan detta?

OveRRidEMedlem sedan feb. 200112 078 inlägg
#2

Lite kod i [kod]-taggar kanske skulle underlätta?

doggelitoMedlem sedan juni 20003 076 inlägg
#3

visst, men det är specifik dimac-upload problem så känner man igen det så känner man igen det! ;)
checkar man inte i så "finns" inte w3u.form("checkboxen")
har provat med if-taggar men inte lyckats undvika detta.

Set w3u = Server.CreateObject("w3.upload")
checkboxen = w3u.form("checkboxen")
web00132Medlem sedan maj 2001797 inlägg
#4

Har samma problem och har sökt men inte hittat nåt tillfredställande svar. Skulle vilja ha en lösning som typ den som erbjuds här: http://www.webforum.nu/showthread.php?t=7641&highlight=checkbox+upload

Problemet med W3 Upload är att man får detta felmess om man kör liknande lösning som i länken ovan:
"Object doesn't support this property or method: 'exists'"

Så, vad göra?

doggelitoMedlem sedan juni 20003 076 inlägg
#5

Jag kommer inte ihåg om det har med vilken version av upload man kör men checkbox går bra att använda i den senaste i alla fall.

<%
	Dim Upload, Check
	If Request.QueryString("Action") = "send" Then
		Set Upload = Server.CreateObject("w3.Upload")
	
		Check = C_Bool(Upload.Form("Check"))
		Response.Write(Check)
		Set Upload = Nothing
	End If
%>

<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>?Action=send" enctype="multipart/form-data" method="post">
<input type="checkbox" name="Check" value="1" />
<input type="file" name="file" />
<input type="submit" value="Ok"  />
</form>

<%
	Function C_Bool(val)
		Dim RetVal
		If len(val) = 0 Then
			RetVal = False
		Else
			RetVal = True
		End If
		
		C_Bool = RetVal
	End Function
%>

Går det inte så kanske du får byta till radioknappar istället och köra nån nödlösning på ja/nej. :)

emissionMedlem sedan dec. 19996 721 inlägg
#6

Gör en liten funktion som hämtar värdet och ignorerar eventuella fel. Inte så snyggt, men om inte komponenten har det som behövs så....

function GetFormValue(uploadObject,fieldName)
   dim retVal
   retVal=""
   on error resume next
   retVal=uploadObject.Form(fieldName)
   GetFormValue=retVal
end function
web00132Medlem sedan maj 2001797 inlägg
#7

Tack ska ni ha! :bire
Doggelitos förslag funkade dock inte, jag fick samma felmess. Men jag kör på radioknappar istället, känns bekvämt.

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