<%@ LANGUAGE="VBScript" %> Netro Download - Mail and News Clients <% Category = request.QueryString("Category") Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\inetpub\netro\database\www.mdb;Persist Security Info=False;" SQLStmt = "SELECT * FROM Download WHERE Category = '" & Category & "' ORDER BY name" 'Response.Write(SQLStmt)' Set RS = Connection.Execute(SQLStmt) %>

<%= Category %>

<% Do While not RS.eof %>
"> " BORDER="0" width="34" height="34">
Download now 		<%= RS("Name") %> Size : <%= RS("Size") %>
<%= RS("Description") %>
" TARGET="_parent"> <%= RS("Publisher") %> Last Updated: <%= RS("LastUpdated") %>
Versions : "> <%= RS("FileDescriptionA") %> "><%= RS("FileDescriptionB") %> "><%= RS("FileDescriptionC") %>

<% RS.MoveNext Loop Connection.Close %>

Copyright © 1998 all rights reserved.