Dynamic variable creation

for i=0 to objRS.Fields.Count - 1
execute(objRS.Fields(i).Name & "=" & CHR(34) & objRS.Fields(i).Value & CHR(34))
next
objRS.MoveNext