Bör min kod byggas om?

Problem igen, får det inte att fungera.

Försökte med detta:

'-------------------- SUB ---------------------------
Sub InsertDB(id,namn,ant,exkl)
	If Request.Form(id) <> "" Then
		RSObj(id) = Request.Form(id)
		RSObj(namn) = Server.HTMLEncode(Request.Form(namn))
		RSObj(ant) = Request.Form(ant)
		TAL = Request.Form(exkl)
			For i = 1 To Len(TAL)
				If Asc(Mid(TAL,i,1)) > 47 AND Asc(Mid(TAL,i,1)) < 58 then
				var = var & Mid(TAL,i,1)
				End If
			Next 
		RSObj(exkl) = var
	Else
	End If
End Sub

'-------------------- Anropa SUB och lägg in allting ---------------------------

InsertDB CPUID,CPU,CPUAnt,CPUExkl

Det fungerar inte. får felmeddelande:

Expecting string input

/kategori/addpaket.asp, line 33

The function expects a string as input.

Jag provade med
If Request.Form(" & id & ") <> "" Then

Men då får jag inget värde riktigt?

Hej igen!

Detta är nu löst.

Gjorde så här:

InsertDB "CPUID","CPU","CPUAnt","CPUExkl"

Tack!