<% On Error Resume Next FileLocation =Server.MapPath("\") & "\counter.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set TextFile = fs.OpenTextFile(FileLocation) TotalHits = CInt(TextFile.ReadLine) TextFile.Close If Session("TotalHits") = "" Then Session("TotalHits") = TotalHits TotalHits = (TotalHits + 1) Set TextFile = fs.CreateTextFile(FileLocation, True) TextFile.WriteLine(TotalHits) TextFile.Close End If %> Chippower experts in low power, high efficiency conversion

Profile
Services
Products
Applications
Technology
  Publications
News
Contact Us

Hardware Publications
    <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=Publications" Set Rs = Server.CreateObject("ADODB.Recordset") RsSQL = "SELECT * FROM Hardware ORDER BY [PubDate] DESC;" Rs.Open RsSQL, Conn, adOpenStatic, adLockReadOnly Do While Not Rs.EOF %>
  1. <% If LCase(Trim(Rs("DocType"))) = "pdf" Then %> <% End If %> <% If LCase(Trim(Rs("DocType"))) = "doc" Then %> <% End If %> "> <%=Trim(Rs("Title"))%>
    Author:<%=Trim(Rs("Authors"))%>

  2. <% Rs.MoveNext Loop Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>

To view the publications you may need to download Acrobat Reader or Word Viewer

 

 

Home|Profile|Services|Products|Applications|Technology|News|Contact Us
© Copyright 2000 Chippower

Chippower Home Page