Hvorfor redirecter den????
Hvad r grunden til at index.asp redirecter til login.asp koden ser sådan her ud<html> <head><style>
<!-- http://whytehouse.com/custom-popup-win.html -->
A:link {color : 333333;text-decoration: none}
A:visited {color : #cococo;text-decoration: none}
A:active {color : red;text-decoration: none}
A:hover {color : #FFFFFF;text-decoration: centerline}
.t{font: 11px Verdana, Arial;text-decoration: none}
.nu{font: bold 10px Verdana, Arial;text-decoration: none}
.n{font: 10px/11px Verdana, Arial;text-decoration: none}
a.S{color : #000000;text-decoration: none}
A:link.S{color : darkred;text-decoration: none}
A:visited.S{color : #000000;text-decoration: none}
A:active.S{color : #000000;text-decoration: none}
</style> <title>SpeakTown.dk</title>
<SCRIPT>
img = new Image;
function changeImg(imgName, target) {
img.src = imgName;
document[target].src = img.src;
}
<script language=\"JavaScript\">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf(\"#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<!-- #Include file=\"modelink.asp\" -->
<base target=\"hovedramme\">
</head>
<center>
<% Response.Buffer = True
Function Show()
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
Record.MoveNext
next
Response.Write \"<a href=\'\" & Record(\"http\") & \"\' target=_new><img src=\'\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border = \'0\'></a>\"
end function
Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"/FTK/db/banner.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
Sql = \"Select count(*) as Found from T_Banner\"
Set Record = Rs.Execute(Sql)
Ialt = Record(\"found\")
Sql = \"Select * from T_Banner\"
Set Record = Rs.Execute(Sql)
Show()
Response.Write \"<font color=white face=verdana><b><br><small><small>\"
Response.Write \"[ SpeakTown.dk har brug for dit klik. ]\"
Response.Write \"</center></small></small></font><br></b>\"
Rs.Close
Set Rs = Nothing
%>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"/FTK/db/login_2000.mdb\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
SQL = \"select top 10 * from Users ORDER BY points DESC\"
Set RS = Conn.Execute(SQL)
%>
<body background=\"/ftk/images/bg.gif\" link=\"333333\" vlink=\"333333\">
<br>
<div align=\"left\">
<center><table border=\"0\" width=\"85\" height=\"432\" bgcolor=\"#000000\">
<tr>
<td width=\"85\" height=\"428\" valign=\"top\"><img src=\"/ftk/images/logo.jpg\" width=\"200\" height=\"100\">
<table align=\"center\" valign=\"top\">
<tr>
<td>
</td>
</tr>
</table>
<div align=\"center\">
<center>
<table border=\"0\" width=\"682\" height=\"292\">
<tr>;
<td width=\"55\" height=\"288\" valign=\"top\" rowspan=\"8\"> <a href=\"?link=login\" onMouseover=\"changeImg(\'http://www15.brinkster.com/ftk/images/login.jpg\', \'pic1\')\" onMouseout=\"changeImg(\'http://www15.brinkster.com/ftk/images/login.jpg\', \'pic1\')\"><img src=\"http://www15.brinkster.com/ftk/images/login1.jpg\" border=0 alt=\"Login\" name=\"pic1\" width=\"80\" height=\"20\"></a><a href=\"?link=opret\" onMouseover=\"changeImg(\'http://www15.brinkster.com/ftk/images/opret.jpg\', \'pic2\')\" onMouseout=\"changeImg(\'http://www15.brinkster.com/ftk/images/opret1.jpg\', \'pic2\')\"><img src=\"http://www15.brinkster.com/ftk/images/opret1.jpg\" border=0 alt=\"Opret\" name=\"pic2\" width=\"80\" height=\"20\"></a><a href=\"?link=score\" onMouseover=\"changeImg(\'http://www15.brinkster.com/ftk/images/score.jpg\', \'pic3\')\" onMouseout=\"changeImg(\'http://www15.brinkster.com/ftk/images/score1.jpg\', \'pic3\')\"><img src=\"http://www15.brinkster.com/ftk/images/score1.jpg\" border=0 alt=\"Score\" name=\"pic3\"></a><a href=\"?link=crew\" onMouseover=\"changeImg(\'http://www15.brinkster.com/ftk/images/kontakt.jpg\', \'pic4\')\" onMouseout=\"changeImg(\'http://www15.brinkster.com/ftk/images/kontakt1.jpg\', \'pic4\')\"><img src=\"http://www15.brinkster.com/ftk/images/kontakt1.jpg\" border=0 alt=\"Kontakt\" name=\"pic4\" width=\"80\" height=\"20\"></a></td>
<td width=\"410\" height=\"21\" valign=\"top\" colspan=\"2\" bordercolor=\"#FFFFFF\"></td>
<td width=\"54\" height=\"288\" valign=\"top\" rowspan=\"8\"></td>
<td width=\"124\" height=\"21\" valign=\"top\"></td>
</tr>
<tr>
<td width=\"55\" height=\"263\" valign=\"top\" rowspan=\"7\"></td>
<td width=\"277\" height=\"1\" valign=\"top\" bgcolor=\"#333333\" bordercolor=\"#808080\"><font face=\"Verdana\" size=\"1\" color=\"cococo\">
<script
language=\"JavaScript\">
var now = new Date();
var monthName = now.getMonth() + 1;var dayName = now.getDay() + 1;
var dayNumber = now.getDate();if(dayName==1) Day = \"Søndag\";
if(dayName==2) Day = \"Mandag\";if(dayName==3) Day = \"Tirsdag\";
if(dayName==4) Day = \"Onsdag\";if(dayName==5) Day = \"Torsdag\";
if(dayName==6) Day = \"Fredag\";if(dayName==7) Day = \"Lørdag\";
if(monthName==1) Month=\"Januar.\";if(monthName==2) Month=\"Februar.\";
if(monthName==3) Month=\"Marts.\";if(monthName==4) Month=\"April.\";
if(monthName==5) Month=\"Maj.\";if(monthName==6) Month=\"Juni.\";
if(monthName==7) Month=\"Juli.\";if(monthName==8) Month=\"August.\";
if(monthName==9) Month=\"September.\";if(monthName==10) Month=\"Oktober.\";
if(monthName==11) Month=\"November.\";if(monthName==12) Month=\"December.\";
document.open();document.write( Day + \" d. \" + dayNumber + \" \" + Month);</script></font></td>
<td width=\"124\" height=\"1\" valign=\"top\" bgcolor=\"#333333\"><font size=\"-2\" face=\"verdana\" color=\"cococo\">Top 10 Points</font></td>
</tr>
<tr>
<td width=\"277\" height=\"1\" valign=\"top\" bgcolor=\"#808080\" rowspan=\"5\" bordercolor=\"#808080\"><font face=\"Verdana\" size=\"1\" color=\"#333333\">
Velkommen til SpeakTown.dk!
<br>
<br>
<br>
Antal brugere oprettet:
</font></td>
<td width=\"124\" height=\"22\" valign=\"center\" bgcolor=\"808080\"><a href=\"\"><font size=\"-2\" face=\"verdana\">
<%
if rs.EOF then
Response.write \"No users!.\"
else
Do Until rs.EOF
%>
<a href=\"\" onClick=\"NewWindow=window.open(\'info.asp?id=<%=rs(\"userid\")%>\',\'NewWindow\',\'toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=no,width=400,height=450,top=,left=\');\"><%= RS(\"username\")%></A> <%= RS(\"points\")%><br>
<%RS.MoveNext
Loop
end if
%>
</td>
</tr>
<tr>
<td width=\"0\" height=\"0\" valign=\"center\" bgcolor=\"000000\" border=\"0\"><a href=\"\"><font size=\"-2\" face=\"verdana\"></a></td>
</tr>
<tr>
<td width=\"0\" height=\"0\" valign=\"center\" bgcolor=\"000000\" border=\"0\"><a href=\"\"><font size=\"-2\" face=\"verdana\"></a></td>
</tr>
<tr>
<td width=\"0\" height=\"0\" valign=\"center\" bgcolor=\"000000\" border=\"0\"><a href=\"\"><font size=\"-2\" face=\"verdana\"></a></td>
</tr>
<tr>
<td width=\"0\" height=\"0\" valign=\"center\" bgcolor=\"000000\" border=\"0\"><a href=\"\"><font size=\"-2\" face=\"verdana\"></a></td>
</tr>
<tr>
<td width=\"277\" height=\"0\" valign=\"top\" bordercolor=\"#808080\"></td>
<td width=\"124\" height=\"145\" valign=\"top\"></td>
</tr>
</table>
</div>
<font size=\"-2\" face=\"verdana\" color=\"cococo\">Copyright - SpeakTown.dk</font><br><font color=\"#FFFFFF\"><!--#include file=\"aspcount.asp\"--></font>
</td>
</tr>
</table>
</div></center>
</body>
</html>
