Filter records

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Hi

I am in the process of updating a site and I need to be able to filter the products from an SQL database to show in product code ascending order.

My knowledge and applications draw the line at Access so any help you can give me on the following code would be very helpful

Thanks

-------------------------------------------

<% Option Explicit %>
<!--#include file="top.inc" -->
<script language="JavaScript">
<!--
function doPopup() {
win = window.open('../help7.html','help','width=250,height=350');
}
//-->
</script>

<link rel="stylesheet" href="../default.css" type="text/css">

<TABLE WIDTH=712 BORDER=0 CELLPADDING=0 CELLSPACING=0 align="center">
<TR> 
<TD background="../images/layout_inside.jpg" COLSPAN=2> 
<table width="97%" border="0" cellspacing="2" cellpadding="2" align="center">
<tr> 
<td> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td valign="top"> 
<div align="center"> 
<table width="658" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td> 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td background="../images/cat_top.jpg" height="80"> 
<%
Dim objFS, thisFile, cfile, cfolder, cpic, cp2 

cfolder = Request("set")
cpic = Request("pic")

cp2 = cpic

Response.write "<img src=""pics/0" & cpic & """ border='0' vspace='10' hspace='11'>"
%>
</td>
</tr>
<tr> 
<td background="../images/cat_inside.jpg" valign="top"> 
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr> 
<td valign="top"> 
<%

Dim str, allmenu, i, temparr
ReDim allmenu(0)

cfolder = Right(cfolder, 4)
cpic = Left(cpic, Len(cpic) - 3) & "jpg"

i = -1

cfile = "set" & cfolder & ".dta"

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
Set thisFile = objFs.OpenTextFile(Server.MapPath("db_data\allsets") & "\" & cfile, 1)

Do While NOT thisFile.AtEndOfStream 

i = i + 1
str = cStr(thisFile.ReadLine())
temparr = Split(str, "|")
ReDim Preserve allmenu(i) 

allmenu(i) = temparr

Loop

thisFile.Close

Set thisFile = Nothing

Set objFS = Nothing

Dim a, b

a = Fix((RND(2) + 1) * 1000)
b = Fix((RND(a) + 1) * 1000)

%>
<%
Response.write "<br><img src=""pics/" & cpic & """ border=0></td><td width=""51%"" valign=""top"" halign = ""left""><font class='PMtitle'>Click to view: <BR><BR>"

Dim j 
for j = 0 to i
Response.write "<a class='PMLinka' href=""catalog2.asp?set=AZK" & a & cfolder & "&id=kd" & b & allmenu(j)(0) & "&cpic=" & cp2 & """> <b>" & allmenu(j)(5) & "</b> " & allmenu(j)(1) & " </a><BR>"

Next

%>
</td>
</tr>
</table>
</td>
</tr>
<tr> 
<td background="../images/cat_bottom.jpg" valign="bottom" align="right" height="55"> 
<p><a href="javascript:history.back()"><img src="../images/cat_btn.jpg" width="107" height="54" border="0"></a></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table> 
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
<!--#include file="bottom.inc" --> 