Another Example
•<%@ Language=VBScript %>
•<HTML>
•<HEAD>
•<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
•</HEAD>
•<BODY>
•<%
•‘I  have not shown variable declarations to save space—see the previous example
•‘Application("conStr")="Provider=SQLOLEDB;User ID=yana;Password=myPassword;Data Source=ISQL01"
• set dbCon=Server.CreateObject("ADODB.Connection")
• dbCon.Open Application("conStr")
• q="select Title from MOVIES"
• Set rs=Server.CreateObject("ADODB.Recordset")
• rs.Open q,dbCon
• do while not rs.EOF
• Response.write(rs("Title")& "<P>")
• rs.MoveNext
• loop
•rs.close
•Set rs=nothing
•dbCon.Close
•set dbCon=nothing
•%>
•</BODY>
•</HTML>
•