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