<%@ LANGUAGE="VBSCRIPT" %> <% response.buffer=true %> <% 'on error resume next dim rsrecord,cnter,mfg1 dim rec(15) DIM intPageRecords, intRecords, intRecordCount, intCurrentPage DIM intNumberOfPages, intDisplayPage cnter=1 const strCnn = "DRIVER={MySQL ODBC 3.51 Driver};Server=localhost;DATABASE=corbin;UID=root;PWD=" Set rsrecord = Server.CreateObject("ADODB.Recordset") rsrecord.CursorLocation = 3 rsrecord.CursorType = 1 intPageRecords = Request.Querystring("page") mfg1=Request.Querystring("mfg") rsrecord.open "select * from prod order by productid" , strcnn if mfg1="Andy_Benson" then rsrecord.filter= "productid like '%abs%'" else if mfg1="Task" then rsrecord.filter= "productid like '%task%'" end if end if IF intPageRecords = "" THEN intPageRecords = 1 : intRecords = 1 intRecords = intPageRecords intPageRecords = ((intPageRecords - 1) * 15) +1 intRecordCount = 0 IF NOT rsrecord.EOF THEN rsrecord.Move (intPageRecords -1) DO WHILE intRecordCount < 15 and NOT rsrecord.EOF rec(cnter)=rsrecord("productid") cnter=cnter+1 rsrecord.movenext intRecordCount = intRecordCount +1 Loop END IF intCurrentPage = Request.Querystring("page") if intCurrentPage=<1 then intCurrentPage=1 %> Stylish Furnishings Home of Sea Tropics

Home n Product Gallery n Contact Us n About us
   

 

<% case "Task" %> Previous n Next <% Case else %> Previous n Next <% end select %> <%if rec(1)="" then %> <%else%> <%end if %> <%if rec(2)="" then %> <%else%> <%end if %> <%if rec(3)="" then %> <%else%> <%end if %> <%if rec(1)="" then%> <%else%> <%end if%> <%if rec(2)="" then%> <%else%> <%end if%> <%if rec(3)="" then%> <%else%> <%end if%> <%if rec(4)="" then %> <%else%> <%end if %> <%if rec(5)="" then %> <%else%> <%end if %> <%if rec(6)="" then %> <%else%> <%end if %> <%if rec(4)="" then%> <%else%> <%end if%> <%if rec(5)="" then%> <%else%> <%end if%> <%if rec(6)="" then%> <%else%> <%end if%> <%if rec(7)="" then %> <%else%> <%end if %> <%if rec(8)="" then %> <%else%> <%end if %> <%if rec(9)="" then %> <%else%> <%end if %> <%if rec(7)="" then%> <%else%> <%end if%> <%if rec(8)="" then%> <%else%> <%end if%> <%if rec(9)="" then%> <%else%> <%end if%> <%if rec(10)="" then %> <%else%> <%end if %> <%if rec(11)="" then %> <%else%> <%end if %> <%if rec(12)="" then %> <%else%> <%end if %> <%if rec(10)="" then%> <%else%> <%end if%> <%if rec(11)="" then%> <%else%> <%end if%> <%if rec(12)="" then%> <%else%> <%end if%> <%if rec(13)="" then %> <%else%> <%end if %> <%if rec(14)="" then %> <%else%> <%end if %> <%if rec(15)="" then %> <%else%> <%end if %> <%if rec(13)="" then%> <%else%> <%end if%> <%if rec(14)="" then%> <%else%> <%end if%> <%if rec(15)="" then%> <%else%> <%end if%>

<% select case mfg1 case "Andy_Benson" %> Previous n Next

 Product ID: <%=rec(1)%>Product ID: <%=rec(2)%>Product ID: <%=rec(3)%> 
   
 
 Product ID: <%=rec(4)%>Product ID: <%=rec(5)%>Product ID: <%=rec(6)%> 
   
 Product ID: <%=rec(7)%>Product ID: <%=rec(8)%>Product ID: <%=rec(9)%> 
   
 Product ID: <%=rec(10)%>Product ID: <%=rec(11)%>Product ID: <%=rec(12)%> 
   
 Product ID: <%=rec(13)%>Product ID: <%=rec(14)%>Product ID: <%=rec(15)%> 
   
 

<%=intPageRecords+(intRecordCount-1)%> of <%=(rsrecord.RecordCount)%> Products <% IF intCurrentPage = "" THEN intCurrentPage = 1 intNumberOfPages = int(rsrecord.RecordCount \ 15) IF rsrecord.RecordCount MOD 7 <> 0 THEN intNumberOfPages = intNumberOfPages + 1 Response.Write("Pages: [") FOR intDisplayPage = 1 TO intNumberOfPages IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN Response.Write " " & intDisplayPage & " " ELSE if mfg1="Andy_Benson" then Response.Write " " & intDisplayPage & " " else if mfg1="Task" then Response.Write " " & intDisplayPage & " " else Response.Write " " & intDisplayPage & " " end if end if END IF NEXT Response.Write ("]") %>

Stylish Furnishings The Home of Sea Tropics n 500 President Clinton Ave Suite 500 n Little Rock, AR 72201

Tel: 501-372-6064 n Fax: 501-372-3968 n Information@seatropics.com
<% Set rsrecord = nothing %>