<%
Response.Write "| License holder: Try Out | "
%>
<%
Response.Write "Package: Try Out | "
%>
|
|
Please try out the selected examples if you are new to
the CERA Databank. If you need further information or an introduction to
the CERA Databank, please click here. |
| |
<%
Dim strP, strR, strT,strDescription
strP = Request.form("P")
strR = Request.form("R")
strT = Request.form("T")
strDescription = Request.form("Description")
Dim Str
Dim rsOffshoreDB
Set rsOffshoreDB = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM OffshoreDB WHERE (Description LIKE '%" & strDescription & "%') AND (P LIKE '%" & strP & "%') AND (R LIKE '%" & strR & "%') AND (T LIKE '%" & strT & "%') ORDER BY Itemno"
rsOffshoreDB.Open strSQL, objConn
if rsOffshoreDB.EOF Then
response.write " | No matching entries found... | "
Else
While (Not rsOffshoreDB.Eof)
If nummer=1 then
farge="white"
Else
farge="#D3D3D3"
End if
If rsOffshoreDB("TryOut") Then
Response.write "| " & rsOffshoreDB("P") & " | "
Response.write "" & rsOffshoreDB("R") & " | "
Response.write "" & rsOffshoreDB("T") & " | "
Response.write "" & rsOffshoreDB("Description") & " | "
Else
Response.write "| " & rsOffshoreDB("P") & " | "
Response.write "" & rsOffshoreDB("R") & " | "
Response.write "" & rsOffshoreDB("T") & " | "
Response.write "" & rsOffshoreDB("Description") & " | "
End If
If nummer=1 Then
nummer=nummer-1
Else
nummer=nummer+1
End If
rsOffshoreDB.MoveNext
Wend
End if
%>
|
