::::::::::: EmLinha na Internet

<%@ Language=VBScript %> <% Response.Expires = 0 Dim tBanner Dim p1Banner Dim p2Banner Dim p3Banner Dim nHTML tBanner=GetTopBanner p1Banner=Get1ProductBanner p2Banner=Get2ProductBanner p3Banner=Get3ProductBanner 'Menu Dim main_menu Dim menu_proc Dim l_section Dim l_quiz Session("BackAddress")="news.asp" ' Menu main_menu=GetMenu menu_proc=GetMenuProc ' Login section l_section=GetLoginFrame l_quiz=GetQuiz Dim nB Dim Rds Dim Rds1 Set Rds=Server.CreateObject("ADODB.Recordset") if Request("ID")<>"" then Rds.Open "SELECT * FROM News WHERE ID='" & Request("ID") & "'", Application("conStr") Set Rds1=Server.CreateObject("ADODB.Recordset") nB="" If Not Rds.EOF then nB=nB & "" nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & "

" & FormatDateTime(Rds.Fields("Entry"),2) & " - " & Rds.Fields("Title") & "

" nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " if Rds.Fields("Site")<>"" then nB=nB & " " nB=nB & " " nB=nB & " " end if if Rds.Fields("ProductID")<>"" then Rds1.Open "SELECT * FROM Products WHERE ID='" & Rds.Fields("ProductID") & "'",Application("conStr") if not Rds1.EOF then nB=nB & " " nB=nB & " " nB=nB & " " end if Rds1.Close end if if Rds.Fields("CategoryID")<>"" then Rds1.Open "SELECT * FROM Categories WHERE ID='" & Rds.Fields("CategoryID") & "'",Application("conStr") if not Rds1.EOF then nB=nB & " " nB=nB & " " nB=nB & " " end if Rds1.Close end if nB=nB & "

" & Rds.Fields("Body") & "

Link: " & Rds.Fields("site") & "

Produto: " & Rds1.Fields("ProductName") & "

Categoria: " & Rds1.Fields("Category") & "

" nB=nB & "

Veja a lista de notícias

" end if Rds.Close Set Rds1=Nothing else Dim pp pp=8 if Request("p")="" then p=1 else p=clng(Request("p")) end if Rds.Open "SELECT * FROM News ORDER BY Entry DESC", Application("conStr") if not Rds.EOF then Rds.Move p nB="" for i=1 to pp if Rds.EOF then exit for nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " nB=nB & " " Rds.MoveNext next if p>pp then nB=nB & " " end if nB=nB & "

" & FormatDateTime(Rds.Fields("Entry"),2) & " - " & Rds.Fields("Title") & "

" & left(Rds.Fields("Body"),150) & "

" nB=nB & " " else nB=nB & " " else nB=nB & " " nB=nB & "

página anterior

" nB=nB & " " end if if not Rds.EOF then nB=nB & " " nB=nB & "

página sequinte

" Rds.CLose end if end if Set Rds=Nothing %> ::::::::::: EmLinha na Internet <%=menu_proc%> <%=main_menu%>