Mangler hjælp ved en Poll

Hej!

Kan du hjælpe mig med dette??

<%
Dim tabel, sambinding, sambind
Dim valA, valB, valC, valD, valE, valH,

valA = request.form("velA")
valB = request.form("velB")
valC = request.form("velC")
valD = request.form("velD")
valE = request.form("velE")
valH = request.form("velH")

Set sambinding = Server.CreateObject("ADODB.Connection")
sambind = "DRIVER={Microsoft Access Driver (*.mdb)};"
sambind = sambind & " DBQ= db2.mdb"
sambinding.Open (sambind)

Set tabel = server.createobject("ADODB.recordset")
tabel.open "tblflokkar", sambinding, 1, 2

vel = Request.Form("val")

tabel.movefirst
While not tabel.eof
  if vel = "velA" Then
  tabel.write
  tabel("A") = tabel("A")+1

elseif vel = "velB" Then
  tabel.write
  tabel("B") = tabel("B")+1

end if
tabel.close
set tabel = nothing
sambinding.close
set sambinding = nothing

%>

Problemet er at den siger fejl ved linje 10 og det
-> Dim valA, valB, valC, valD, valE, valH,

På forhånd tak

--> floetti