<% DataSource = "Fredacious" Set DataConnection = Server.CreateObject("ADODB.Connection") DataConnection.Open DataSource if (IsNumeric(Request.QueryString("Section")) and trim(Request.QueryString("Section")) <> "") then sectionID = Request.QueryString("Section") else sectionID = 1 end if %> King Fred Computer Systems -- Car Audio Specials





<%else %>
Section was not found
<%end if %>

<% dataString = "SELECT * FROM Titles WHERE TitleID = " & sectionID Set RS = Server.CreateObject("ADODB.Recordset") Set RS = DataConnection.Execute (dataString) if not (RS.EOF) then %>
<%= RS("DisplayTitle") %>
<% dataString = "SELECT * FROM Products WHERE TitleID = " & sectionID Set RS = Server.CreateObject("ADODB.Recordset") Set RS = DataConnection.Execute (dataString) while not(RS.EOF) if (isNull(RS("ProductDesc")) or RS("ProductDesc") = "") then strLinkInfoBegin = "" strLinkInfoEnd = "" else strLinkInfoBegin = "" strLinkInfoEnd = "" end if %> <% RS.MoveNext wend %>
Description Price
<%= strLinkInfoBegin %><%= RS("ProductName")%><%= strLinkInfoEnd %> <%= FormatCurrency(RS("ProductPrice"))%>




Main Page Products Services
News Feedback Contents
<% if (isObject(DataConnection)) then DataConnection.Close Set DataConnection = nothing end if %>