Ricette Regionali Ricette Cucina: Austria Ricette Internazionali Antipasti Primi Carne Pollame Pesce Contorni Dessert Bevande Salse

Austria - Belgio - Brasile - Cina - Egitto - Finlandia - Francia - Germania - Giappone - Gran Bretagna - Grecia - Messico - Portogallo - Romania - Russia Spagna - Stati Uniti - Turchia <%Else%> <%If objRs.EOF Then%> Nessun Risultato! <%=Paging(intPage, objRs.PageCount, objRs.RecordCount)%> <% If objRs.PageCount < intPage Then intPage = objRs.PageCount objRs.AbsolutePage = intPage Dim strRowColor strRowColor = "#ffffff" Do While Not objRs.EOF And intRecord <= intPageSize %>   ','smaltoweb','fullscreen=no,toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=510,height=500,top=30,left=30').focus();"><%=objRs("Nome").Value%> <% If strRowColor = "#ffffff" Then strRowColor = "F8F8FA" Else strRowColor = "#ffffff" intRecord = intRecord + 1 objRs.MoveNext Loop %>

<%=Paging(intPage, objRs.PageCount, objRs.RecordCount)%> <%End If%> <% 'Object cleanup If IsObject(objRs) Then If Not objRs Is Nothing Then If objRs.State = adStateOpen Then objRs.Close Set objRs = Nothing End If End If If IsObject(objCn) Then If Not objCn Is Nothing Then If objCn.State = adStateOpen Then objCn.Close Set objCn = Nothing End If End If %>