<% Dim sScriptName sScriptName = Request.ServerVariables("SCRIPT_NAME") 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 'When Record is Open, adUseClient CursorLocation 'will check all records 'adUseServer allows to use CacheSize 'rst.CursorLocation = adUseServer 'When using AdUseServer£¨CacheSize 'limits the lines we are fetching. We only fetch what is 'needed to display - iRowsPerPage 'rst.CacheSize = iRowsPerPage 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 %> <% Dim sSQL,rst Dim StrSQL %> <% Response.Expires = 0 Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(".\Counter\hits.txt")'use the file inside the counter folder. Response.write("counter file name:" & HitsFile) Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Response.write("new hits:" & cstr(newhits)) InStream.Close Set OutStream= FileObject.CreateTextFile (HitsFile, True)'now working by enabling write permission for "Web Anonymous Users" OutStream.WriteLine(NewHits) OutStream.Close %> TTD: Target Validation Information
Therapeutic Targets Database
BIDD Pharmainformatics Databases


Search Target with Target Validation Information

Search by target name:

Search by cell line:


Target Validation Information

TTD Version 4.3.02 starts to provide drug target validation information that include drug potency against target, drug potency against disease model, and the results of target gene knockout/genetic variation in animal models. Currently, TTD provides complete or partial validation information for 932 targets (351 successful, 252 clincial trial, 34 discontinued and 295 research targets).


<% Dim L,i,num,Display L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %> visits since 2002 .........


Welcome to sign our Guestbook.

If you find any error in data or bug in web service, please kindly report it to Dr. Zhu.

Dr. Chen Yuzong

Deputy Director of Center for Computational Science and Engineering
Professor in Department of Pharmacy
National University of Singapore, Singapore

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