<%@ 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 i_news
Dim l_section
Dim l_quiz
Dim topten
Dim bAddress
bAddress=Session("BackAddress")
Session("BackAddress")="register.asp"
' Menu
main_menu=GetMenu
menu_proc=GetMenuProc
' Login section
l_section=GetLoginFrame
l_quiz=GetQuiz
Dim Country
Dim Sex
Dim Sport
Dim uDay
Dim uMonth
Dim uYear
Dim Rds
Set Rds=Server.CreateObject("ADODB.Recordset")
Sex=""
news="checked"
sms="checked"
for i=1 to 31
uDay=uDay & ""
next
for i=1 to 12
uMonth=uMonth & ""
next
for i=1930 to 2000
uYear=uYear & ""
next
MF=" HTML email: Text email:"
Rds.Open "SELECT * FROM Sports ORDER BY SportName", Application("conStr")
Sport=""
Do While Not Rds.EOF
Sport=Sport & ""
Rds.Movenext
Loop
Rds.Close
Set Rds=Nothing
%>
::::::::::: EmLinha na Internet
<%=menu_proc%>
<%=main_menu%>
