<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=SQLOLEDB;" & "Data Source=WWW.OOSI.ORG,1539\RWC_CLIENT;" & "Initial Catalog=OOSI;" & "User ID=oosi_web_user;" & "Password=driver8FlgB2KvXtZ"
'This code block will create a recordset
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "select * from tblDrivingTest"
rs.open SQL, conn
'will iterate to display the records got from the database
While Not rs.EOF
response.write(rs("id") & " " & rs("Name"))
rs.MoveNext
Wend
'closes the connection
rs.close
conn.close
Set rs = Nothing
Set conn = Nothing
%>