<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim List_Of_Subjects
Dim List_Of_Subjects_numRows
Set List_Of_Subjects = Server.CreateObject("ADODB.Recordset")
List_Of_Subjects.ActiveConnection = MM_Magnet_Inventory_STRING
List_Of_Subjects.Source = "SELECT subject FROM Magnet_Stories ORDER BY subject ASC"
List_Of_Subjects.CursorType = 0
List_Of_Subjects.CursorLocation = 2
List_Of_Subjects.LockType = 1
List_Of_Subjects.Open()
List_Of_Subjects_numRows = 0
%>
<%
Dim List_Of_Stories__subject_selected
List_Of_Stories__subject_selected = "Ceiling Hangers"
If (Request.Form("Selected_Subject") <> "") Then
List_Of_Stories__subject_selected = Request.Form("Selected_Subject")
End If
%>
<%
Dim List_Of_Stories
Dim List_Of_Stories_numRows
Set List_Of_Stories = Server.CreateObject("ADODB.Recordset")
List_Of_Stories.ActiveConnection = MM_Magnet_Inventory_STRING
List_Of_Stories.Source = "SELECT date, name, email, location, subject, story FROM Magnet_Stories WHERE subject='" + Replace(List_Of_Stories__subject_selected, "'", "''") + "' ORDER BY date"
List_Of_Stories.CursorType = 0
List_Of_Stories.CursorLocation = 2
List_Of_Stories.LockType = 1
List_Of_Stories.Open()
List_Of_Stories_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
List_Of_Stories_numRows = List_Of_Stories_numRows + Repeat1__numRows
%>
List of Magnet Uses
List of items
| Subject
| Name |
Email |
Location |
<% While ((Repeat1__numRows <> 0) AND (NOT List_Of_Stories.EOF)) %>
| <%=(List_Of_Stories.Fields.Item("subject").Value)%> |
<%=(List_Of_Stories.Fields.Item("name").Value)%> |
<%=(List_Of_Stories.Fields.Item("email").Value)%> |
<%=(List_Of_Stories.Fields.Item("location").Value)%> |
<%=(List_Of_Stories.Fields.Item("story").Value)%> |
|
|
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
List_Of_Stories.MoveNext()
Wend
%>
Now add your own Magnet Use! You can add
more uses if you would like. This is just a fraction of the uses I have heard
about. Please add your own story or magnet use. Thanks.
Back to the Home Page
<%
List_Of_Subjects.Close()
Set List_Of_Subjects = Nothing
%>
<%
List_Of_Stories.Close()
Set List_Of_Stories = Nothing
%>