<%Response.Redirect("index.asp")%> Women's Shoes Wholesale, Women's Shoe Wholesale <% Function CheckRemoteURL(fileURL) Dim xmlhttp Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "HEAD", fileURL, False xmlhttp.send xmlStatus = Cint(xmlhttp.status) Select Case Cint(xmlhttp.status) Case 200, 202, 302 Set xmlhttp = Nothing DoesFileExist = "Yes" If IsArray(prodNum) Then response.write "" & VbCrLf response.write "" & VbCrLf response.write "
" & VbCrLf Else response.write "" & VbCrLf response.write "" & VbCrLf End If Case Else Set xmlhttp = Nothing DoesFileExist = "No" End Select End Function Function RemDups(byVal anArray) dim d, item, thekeys set d = CreateObject("Scripting.Dictionary") d.removeall d.CompareMode = 0 for each item in anArray if not d.Exists(item) then d.Add item, item next thekeys = d.keys set d = nothing RemDups = thekeys end function '********************** 'Author: Tyson Craemer 'Date: 10.22.02 '********************** 'get category shoeCat = "Cheska" If shoeCat = "" Then Response.Redirect "index.asp" End If '********* 'Database '********* Set cnn = CreateObject("ADODB.Connection") cnn.Open str SQL = "SELECT * FROM " & shoeCat & " WHERE prodStock > 0 ORDER BY prodNum" Set rs = CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.ActiveConnection = cnn rs.Open SQL '******* 'Paging '******* 'Number of records per page rs.PageSize = 5 If Request.Querystring("pageNum") = "" Then intPageNum = 1 Else intPageNum = CInt(Request.Querystring("pageNum")) End If Function rsPaging() For i = 1 To rs.PageCount If intPageNum = i Then Response.Write i Else Response.Write " " & i & " " End If Next End Function 'function produces current page and max pages Function pageInfo() maxPages = rs.PageCount currentPage = intPageNum Response.Write currentPage & " of " & maxPages & VbCrLf End Function maxPages = rs.PageCount 'previous page number pagePrev = intPageNum - 1 If pagePrev < 1 Then pagePrev = 1 End If 'next page number pageNext = intPageNum + 1 If pageNext > maxPages Then pageNext = 1 End If 'If no records were found If rs.Eof or rs.Bof Then Response.Write "

No records available...Go Home

" & VbCrLf Response.end End If 'function to see if file exists Function CheckFileExists(sFileName) Dim FileSystemObject Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject") If (FileSystemObject.FileExists(sFileName)) Then CheckFileExists = True Else CheckFileExists = False End If Set FileSystemObject = Nothing End Function %>

Women's Shoes Wholesale,
Women's Shoe Wholesale
   

Women's Shoes Wholesale, Women's Shoe Wholesale

Home

<%=Pcase(shoeCat)%>

Page <%=pageInfo()%>

<< Previous | <%=rsPaging()%> | Next >>

Shipping & Handling within the Continental US is paid by Star Supply.
 
<% rs.AbsolutePage = intPageNum For intCount = 1 To rs.PageSize indexNum = rs("indexNum") prodName = rs("prodName") prodNum = rs("prodNum") 'if prod Name has a comma, then split it into two names If inStr(prodNum,",") Then prodNum = split(prodNum,",") End If prodPrice = rs("prodPrice") prodEachPrice = CDbl(prodPrice) / 12 prodEachPrice = FormatCurrency(prodEachPrice) '****************************** prodColor = rs("prodColor") swatchColor = prodColor 'if there are more than one color, split into array If inStr(prodColor,",") Then prodColor = split(prodColor,",") swatchColor = split(swatchColor,",") End If %>
<% If IsArray(prodNum) Then For i = Lbound(prodNum) to Ubound(prodNum) prodNum(i) = Ltrim(prodNum(i)) prodNumTemp = prodNum(i) CheckRemoteURL("http://www.starsupplyonline.com/pics_thumb/" & prodNumTemp & ".jpg") Next Else CheckRemoteURL("http://www.starsupplyonline.com/pics_thumb/" & prodNum & ".jpg") End If %>

Click photo(s) to enlarge
 

Style Name:

<%=prodName%>

Style Number(s):

<% If IsArray(prodNum) Then For i = Lbound(prodNum) to Ubound(prodNum) ' get size runs If InStr(prodNum(i),"12E") Then sizeRun = "12E" ElseIf InStr(prodNum(i),"12F") Then sizeRun = "12F" ElseIf InStr(prodNum(i),"12D") Then sizeRun = "12D" Else sizeRun = "12E" End If prodNum(i) = trim(prodNum(i)) %> <% If IsArray(prodColor) Then response.write Left(prodNum(i),trimStr) & " " & "(" & prodColor(i) & ")" & " " & sizeRun & "
" & VbCrLf Else response.write Left(prodNum(i),trimStr) & " " & "(" & prodColor & ")" & " " & sizeRun & "
" & VbCrLf End If Next Else ' get size runs If InStr(prodNum,"12E") Then sizeRun = "12E" ElseIf InStr(prodNum,"12F") Then sizeRun = "12F" ElseIf InStr(prodNum,"12D") Then sizeRun = "12D" Else sizeRun = "12E" End If prodNum = trim(prodNum) %> <% If IsArray(prodColor) Then For i = Lbound(prodColor) to Ubound(prodColor) response.write Left(prodNum,trimStr) & " " & "(" & prodColor(i) & ")" & " " & sizeRun & "
" & VbCrLf Next Else response.write Left(prodNum,trimStr) & " " & "(" & prodColor & ")" & " " & sizeRun & VbCrLf End If End If %>


PRICING
EACH: <%=prodEachPrice%>
BOX: $<%=prodPrice%>

Available Size Run(s):
<% sizeCheck = "" If IsArray(prodNum) Then For i = Lbound(prodNum) to Ubound(prodNum) prodNum(i) = trim(prodNum(i)) ' get size runs If InStr(prodNum(i),"12E") Then sizeRun = "12E" ElseIf InStr(prodNum(i),"12F") Then sizeRun = "12F" ElseIf InStr(prodNum(i),"12D") Then sizeRun = "12D" Else sizeRun = "12E" End If If InStr(sizeCheck,sizeRun) Then Else Response.Write "" & VbCrLf response.write sizeRun & "
" & VbCrLf End If sizeCheck = sizeCheck & " " & sizeRun Next Else ' get size runs If InStr(prodNum,"12E") Then sizeRun = "12E" ElseIf InStr(prodNum,"12F") Then sizeRun = "12F" ElseIf InStr(prodNum,"12D") Then sizeRun = "12D" Else sizeRun = "12E" End If Response.Write "" & VbCrLf response.write sizeRun & "
" & VbCrLf End If %> (click to see chart)

Available Color(s):

 <% If IsArray(prodColor) Then prodColor2 = RemDups(prodColor) swatchColor = RemDups(swatchColor) For i = Lbound(prodColor2) to Ubound(prodColor2) prodColor2(i) = trim(prodColor2(i)) swatchColor(i) = trim(swatchColor(i)) response.write "
" response.write "

" & VbCrLf response.write prodColor2(i) & VbCrLf response.write "

" & VbCrLf Next Else response.write "

" & VbCrLf response.write prodColor & VbCrLf response.write "" & VbCrLf End If %>



Quantity:

<% rs.MoveNext If rs.EOF Then Exit For Next %>
 

Page <%=pageInfo()%>

<< Previous | <%=rsPaging()%> | Next >>
 

*Please note that colors may vary depending upon your browser software, monitor, or o/s.
 
   
<% 'close everything rs.close Set rs = nothing cnn.close Set cnn = nothing %>