<%@ Language=VBScript %>
<%
Response.Expires = 0
Dim tBanner
Dim p1Banner
Dim p2Banner
Dim p3Banner
tBanner=GetTopBanner
p1Banner=Get1ProductBanner
p2Banner=Get2ProductBanner
p3Banner=Get3ProductBanner
'Menu
Dim main_menu
Dim menu_proc
Dim l_section
Dim l_quiz
Session("BackAddress")="about_emlinha.asp"
' Menu
main_menu=GetMenu
menu_proc=GetMenuProc
' Login section
l_section=GetLoginFrame
l_quiz=GetQuiz
Dim Rds
Dim Addr
Set Rds=Server.CreateObject("ADODB.Recordset")
Rds.Open "SELECT * FROM Adr", Application("conStr")
If Not Rds.EOF then
Addr=" " & Replace(Rds.Fields("cAddress") & "",chr(13),"
")
End if
Rds.Close
Set Rds=Nothing
%>
::::::::::: EmLinha na Internet
<%=menu_proc%>
<%=main_menu%>
|
|
|
<%=p1Banner%> |
|
|
<%=p2Banner%> |
 |
| <%=l_quiz%> |
|
<%=p3Banner%> |
