| SHOPS |
<%=Ucase(Rs(1))%>
<% Else sHref = " " sHref2 = Replace(sHref, " ", "^^") %> - <%=sHref%> <% AppoSTR = Trim(Rs(0)) If len(Trim(AppoSTR)) > 20 Then AppoRS = "" i = 0 Redim aStr(1) iPos = 1 iPosSave = 0 Do While Not (Trim(AppoSTR) = "") i = i + 1 Redim Preserve aStr(i) iPos = Instr(1, Trim(AppoSTR), " ") If iPos = 0 Then If len(Trim(AppoSTR)) > 20 Then aStr(i) = Mid(Trim(AppoSTR), 1, 19) & "." Exit Do Else aStr(i) = Mid(Trim(AppoSTR), 1) Exit Do End If Else aStr(i) = Mid(Trim(AppoSTR), 1, iPos - 1) If Len(aStr(i)) > 20 Then aStr(i) = Mid(Trim(aStr(i)), 1, 19) & "." End If AppoSTR = Mid(Ltrim(AppoSTR), iPos + 1) End If Loop For y = 1 to i If (iPosSave + Len(aStr(y))) > 20 Then AppoRS = trim(AppoRS) & "" & "
" & sHref2 & aStr(y) iPosSave = 0 Else AppoRS = AppoRS & aStr(y) & " " iPosSave = iPosSave + Len(aStr(y)) + 1 End If Next AppoRS = Replace(AppoRS, " ", " ") AppoRS = Replace(AppoRS, "^^", " ") Else AppoRS = Trim(AppoSTR) End If Response.Write AppoRS %>
<% End if end if Rs.MoveNext Loop Else End If on error resume next Rs.Close set Rs = nothing dbConn.close set dbConn = nothing %>
<%
Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & miadir & "\shops.mdb"
set Rs= Server.CreateObject("ADODB.Recordset")
Rs.Open "Select Nome_" & Session("JSLinkLeng") & ", Sito_" & Session("JSLinkLeng") & ",tipo From Categorie order by tipo",dbConn,1, 2
If Rs.RecordCount > 0 Then
Do While Not Rs.EOF
if Rs(2)>=300 then
if Rs(1) <> sGruppo Then
sGruppo = Rs(1)
%>
<%=Ucase(Rs(1))%>
<%
Else
sHref = " "
sHref2 = Replace(sHref, " ", "^^")
%>
<%=sHref%>
<%
AppoSTR = Trim(Rs(0))
Response.Write AppoSTR
%>
||
<%
End if
end if
Rs.MoveNext
Loop
Else
End If
on error resume next
Rs.Close
set Rs = nothing
dbConn.close
set dbConn = nothing
%>