Librarium

Image Retrival Engine

<% Dim objContentRotr Dim strSelHTMLContent Set objContentRotr = Server.CreateObject("MSWC.ContentRotator") strSelHTMLContent = objContentRotr.ChooseContent ("quotes.txt") %> Thought for the day :

<%=strSelHTMLContent%>

<% Dim ObjDB Dim ObjRS Dim Sql Sql = "SELECT * FROM images ORDER by dtDate, szImageName, ID" Set ObjDB = Server.CreateObject("ADODB.Connection") sConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" sMapPath = Server.MapPath("\") sMapPath = Mid(sMapPath, 1, InStrRev(sMapPath,"\")-1) & "\database\imagelib.mdb;" sConnString = sConnString & sMapPath ObjDB.Open(sConnString) Set ObjRS = ObjDB.Execute(Sql) If objRS.EOF Then Response.Write("No Record were found") Else %> <% ObjRS.MoveFirst Do While Not objRS.EOF %> <% objRS.MoveNext Loop %>

Image

Information

">">.jpg" border="0">

Name : <% response.write (Objrs("szImageName"))%>

Class : <% response.write (Objrs("szClass"))%>

Date : <% response.write (FormatDateTime(Objrs("dtDate"),1))%>

Comment :
<% response.write (Objrs("szComment"))%>

<% End if objRS.Close objDB.Close Set objRS = Nothing Set objDB = Nothing %>

 

<Return to Primary Interface>

<message:- chieflibrarian@vulkansforge,org><Legal Documentation> <2/127999.M41>