home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 July & August / Pcwk78a98.iso / Micrsoft / VJ / COMMON / WIZARD98 / VIWZ1.DLL / 1033 / HTMX / 5724 < prev    next >
Text File  |  1998-02-24  |  680b  |  19 lines
  1. <% 
  2. Dim avar%%1
  3. If IsEmpty(Application(strDFName & "_Lookup_%%1")) Or strPagingMove = "Requery" Then
  4.     Set %%4 = Server.CreateObject("ADODB.Connection")
  5.     %%4.ConnectionTimeout = Session("%%4_ConnectionTimeout")
  6.     %%4.CommandTimeout = Session("%%4_CommandTimeout")
  7.     %%4.Open Session("%%4_ConnectionString"), Session("%%4_RuntimeUserName"), Session("%%4_RuntimePassword")
  8.     Set rs%%1 = %%4.Execute("SELECT DISTINCT %%2, %%3 FROM %%5")
  9.     avar%%1 = Null
  10.     On Error Resume Next
  11.     avar%%1 = rs%%1.GetRows()
  12.     Application.Lock
  13.     Application(strDFName & "_Lookup_%%1") = avar%%1
  14.     Application.Unlock
  15. Else
  16.     avar%%1 = Application(strDFName & "_Lookup_%%1")
  17. End If
  18. %>