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?
------------------
Mvh
Patrik
aka Brimba