<%@LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Dim ID ID = Request.QueryString("ID") Dim quote quote = chr(34) Dim cnn set cnn = Server.CreateObject("ADODB.CONNECTION") cnn.ConnectionString = conn_shan cnn.Open Function GetRecords(sSQL) Dim rst Set rst = Server.CreateObject("ADODB.RECORDSET") set rst.ActiveConnection = cnn rst.CursorType = 3 rst.CursorLocation = 3 rst.LockType = 3 rst.Open sSQL ',adOpenStatic, adLockReadOnly Set GetRecords = rst END Function Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub %> Browse PCD by Pathway Name --- BIDD
 
  BIDD Pharmainformatics Databases
Pathway Crosstalk Database
National University of Singapore, Science Faculty, Computational Sci Dept
 
   
   

<% Dim StrSQL, rst StrSQL = "SELECT * FROM entityinfo" Set rst = GetRecords(StrSQL) Dim TDField1, TDField2, swap TDField1 = "" Do While fld < 3 %> <% Response.Write TDField1 %>

"><%=Server.HTMLEncode(rst.Fields("ET").value)%>

<% fld = fld + 1 swap = TDField1 TDField1 = TDField2 TDField2 = swap rst.MoveNext IF rst.EOF THEN IF fld < 3 THEN Response.Write TDField1 fld = fld + 1 swap = TDField1 TDField1 = TDField2 TDField2 = TDField1 END IF END IF Loop Loop %>

Browse by Pathway Name

" TDField2 = "" Dim fld Do While Not rst.EOF fld = 0 Response.Write "

Back    Search    Guestbook >

 

Please kindly sign our Guest book, or report any bugs to liuxin@nus.edu.sg .


Prof. Chen Yuzong
BIDD Group, Department of Pharmacy
Centre for Computational Science & Engineering, NUS.
All rights reserved.
 
   
           
 
Computer-aided Drug Design
about BIDD |  databases |  software |  teaching |  research |  links

Department of Computational Science | National University of Singapore | Blk S17, 3 Science Drive 2, Singapore 117543
<% set cnn = nothing %>