sovicell
About Sovicell
Products
Contract Services
Science & Technology
News & Events
Career
Membrane Permeability
Blood-Brain Barrier
Protein Binding
Publications
Technology Services
FAQ
Trusted ADMET
products & services

News

Science & Technology

Publications

<% SQLmodules = "Select id, templateId From modules where PageID = 745 Order By LevelNum" Set GETmodules = ODBConnect.Execute(SQLmodules) While Not GETmodules.Eof Content = "" Select Case GETmodules("templateId") Case 1 SQLT1 = "Select content From T1 where moduleID = " & GETmodules("id") Set RST1 = ODBConnect.Execute(SQLT1) Content = RST1("content") ' SQLLink gets the moduleID from the Link table, and loops around the recordset ' replacing all occurrences of "LinkText" in the content text of this moduleID SQLLink = "Select * From link where ModuleID = " & GETmodules("id") Set GETLink = ODBConnect.Execute(SQLLink) While NOT GETLink.EOF LinkText = GETLink("LinkText") LinkCode = GETLink("LinkCode") LinkID = GETLink("ID") Content = Replace(Content, LinkText, LinkCode) GETLink.MoveNext Wend ' Use FileSystemObject to determine if an image is available for this moduleID ' The value of ShowImage is set according to the result ImgRef = moduleID & ".jpg" ImageName = Server.MapPath("admin\pageimages\" & ImgRef) Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(ImageName)) Then ShowImage = ImgRef Else ShowImage = "None" End If Set fso = Nothing If ImgAlign = "Left" Then margins = "0 12px 8px 0px" Else margins = "0 0px 8px 12px" IF ShowImage <> "None" Then %> <% =Title %> <% ShowImage = "" End If Content = Replace(Content, VbCrLf, "
") Response.Write "

" & Content & "

" Case 19 ' SQLLink gets the moduleID from the Link table, and loops around the recordset ' replacing all occurrences of "LinkText" in the content text of this moduleID SQL = "SELECT content, moduleID FROM T19 Where moduleId = " & GETmodules("id") Set RS = ODBConnect.Execute(SQL) If Not RS.EOF Then Response.Write "
    " Content = Replace(RS("Content"), VbCrLf, "
    ") SQLLink = "Select * From link where ModuleID = " & RS("moduleID") & "" Set GETLink = ODBConnect.Execute(SQLLink) While NOT GETLink.EOF LinkText = GETLink("LinkText") LinkCode = GETLink("LinkCode") LinkID = GETLink("ID") Content = Replace(Content, LinkText, LinkCode) GETLink.MoveNext Wend Response.Write "
  • " & Content & "
  • " Response.Write "
" End If End Select GETmodules.MoveNext Wend %>
website by
College Hill - Life Sciences
Sovicell GMBH, Deutscher Platz 5a, 04103 Leipzig, Germany    t: +49 341 520 44 0   f: +49 341 520 44 12
Imprint   Terms & Conditions