RahulV 16 Junior Poster in Training

--URGENT--

Ive written a code in VBScript in ASP where back end is SQL. Here I want to display all the records with the data of the selected field of the table "Users" but it displays only the first record repetitively for the total number of records in the table times.

<html>
<body>

<%
dim con, rec, str, id, name, passwd
str="select * from users"

set con=createObject("ADODB.Connection")
con.Open "Provider=SQLOLEDB.1;Data Source=.;Initial Catalog=ComputerWorkshop","sa",""

set rec=CreateObject("ADODB.Recordset")
rec.Open str, con

id=rec("biID")
name=rec("vUserName")
passwd=rec("vPassword")

Response.write "biID : vUserName : vPassword "
Response.write "<hr>"

do until rec.EOF
Response.write id & " : " & name & " : " & passwd
response.write "<br>"
rec.MoveNext
loop

rec.close
con.close
%>

</body>
</html>

Please help me to display all the records with the selected fields data of the table.
Thank you in advance.