quote:

---

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'SetConfigValue'

/admin_config_colors.asp, line 56

---

<%
	if Request.Form("Method_Type") = "Write_Configuration" then 
			for each key in Request.Form 
				if left(key,3) = "str" or left(key,3) = "int" then
					strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLstring"))
				end if
			next


		Application(strCookieURL & "ConfigLoaded") = ""

%>

<%
	if Request.Form("Method_Type") = "Write_Configuration" then 
			for each key in Request.Form 
				if left(key,3) = "str" or left(key,3) = "int" then
					strSql = "UPDATE " & strTablePrefix & "CONFIG_NEW "
					strSql = strSql & " SET C_VALUE = '" & ChkString(Request.Form(key),"SQLstring") & "'"
					strSQL = strSQL & " WHERE C_VARIABLE = '" & key & "' "
					my_Conn.Execute (strSql)
				end if
			next


		Application(strCookieURL & "ConfigLoaded") = ""

%>