Looking for activeingredients

|
|
|
Search
for active ingredients |
| The
string you inserted is part of the following
synonyms (first table column); the corresponding
Common Names and CAS Numbers are listed. If the
common name is missing, then there is no such
entry in the database<%Param = Request.QueryString("Param")
Data = Request.QueryString("Data")
%><%
Session.timeout = 60
If IsObject(Session("PM_conn")) Then
Set conn = Session("PM_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "PM","",""
Set Session("PM_conn") = conn
End If
%><%sql = "SELECT Synonyms.SYNONYMS, Chemicals.CASNum, Chemicals.Substance FROM Chemicals INNER JOIN Synonyms ON Chemicals.CASNum = Synonyms.CAS WHERE (((Synonyms.SYNONYMS)Like '" & Request.QueryString("[]") & "%')) "
If cstr(Param) <> "" And cstr(Data) <> "" Then
sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data)
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%> |
| Synonym |
Substance |
CAS-Number<%On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%> |
| <%=Server.HTMLEncode(rs.Fields("Synonyms").Value)%> |
<%=Server.HTMLEncode(rs.Fields("Substance").Value)%> |
<%=Server.HTMLEncode(rs.Fields("CASNum").Value)%> |
| <%
rs.MoveNext
loop%> |
|