Many thanks Tarwn and DreXor, i got this fixed by this code,
<% @Language="VBScript"%>
<%
Option Explicit
'declare all local variables
dim dcnDB, strSQL, rsData, i, Kount 'As ADO.Connection
dim arrSomething, strNTUser, DataValue, Formvalue
'Create the Connection Object
Set dcnDB =...