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.

Help with Code Tags
(Toggle Plain Text)

<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>

<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.