<% SQL_query= "SELECT * FROM guida WHERE ID='"& request.querystring("ID") &"'" Set rs = MyConn.Execute(SQL_query) SQL_query= "SELECT * FROM guidalondra_boxes WHERE puntaID='"& CInt(request.querystring("ID")) &"' ORDER BY cat" Set rsbox = MyConn.Execute(SQL_query) %> |
|
<%lunghezza=len(rs("testo"))
if lunghezza>800 then
break=500
else
break=lunghezza
end if
secondaparte=lunghezza-break
if break=lunghezza then %>
<%=LongTextToHTML(rs("testo"))%>
<% else %> <%=LongTextToHTML(left(rs("testo"),break))%> <%=LongTextToHTML(right(rs("testo"),secondaparte))%> <%end if%>
|
<%do while not rsbox.EOF%>
<%rsbox.movenext loop randomize randomnum=Int((9999999) * Rnd()) %>
|
<% cat="attr" subcat=request.querystring("ID") larghezza=400 colonne=40 righe=15 %>