<%@ LANGUAGE="VBSCRIPT" %> <% Stop_Flag=0 Set DBConnection = Server.CreateObject("ADODB.Connection") DBConnection.ConnectionTimeout = Session("DBConnection_ConnectionTimeout") DBConnection.CommandTimeout = Session("DBConnection_CommandTimeout") DBConnection.Open Session("DBConnection_ConnectionString"), Session("DBConnection_RuntimeUserName"), Session("DBConnection_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set DataCommand1 = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT no,title1,title2 WHERE digital'" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DBConnection DataCommand1.Open cmdTemp, , 0, 1 V_no=DataCommand1("no") V_title1=DataCommand1("title1") V_title2=DataCommand1("title2") DataCommand1.Close DBConnection.Close Set DdtaCommand1=Nothing Set DBConnection=Nothing %> -----------------------------------------