Refresh The Value Of Dim Variable

I am using many Dim variable within the loop.

So i want the value of the variable will be refreshed everytime when the loop is start.

For example

Code:

---

<%
While (NOT recordset.eof) %>

dim apple, fruit

<%  recordset.MoveNext()
      Wend
%>

---

Is there any syntax that will refresh the apple and fruit variable everytime when the while loop starts.

If dim type variable do not work, pls suugest me what should i use