OK.
Prøv dette her (det skal sikkert lige tilpasses lidt):
Menu2.asp:
html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Spil</title>
</head>
<body topmargin="0" leftmargin="0">
<table border="0" width="149" cellspacing="1" cellpadding="0" height="98">
<tr>
<td width="100%" bgcolor="#DF613C" height="20">
<p align="center"><font size="2" color="#FFFFFF" face="Arial"><b>Søg et
spil</b></font></td>
</tr>
<tr>
<td width="100%" bgcolor="#E7E7D9" nowrap height="124">
<form method="post" action="result.asp?kategori=<%=kategori%>&order=<%=order%>">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="75">
<tr>
<td width="100%" height="50" valign="middle">
<p align="center">
<input type="text" name="keyword" size="14" style="border: 1 solid #000000"></td>
</tr>
<tr>
<td width="100%" height="25">
<p align="center"><input type="submit" value="Søg" name="B1" style="background-color: #DF613C; color: #FFFFFF; font-family: Arial; font-size: 8 pt;
font-weight: bold; border: 1 solid #000000"></td>
</tr>
</table>
</form>
<p align="center"><br>
</td>
</tr>
<tr>
<td width="100%" nowrap height="10" background="bundmenu.jpg">
</td>
</tr>
</table>
<table border="0" width="149" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"> </td>
</tr>
</table>
<table border="0" width="149" cellspacing="1" cellpadding="0" height="1">
<tr>
<td width="100%" bgcolor="#DF613C" height="20">
<p align="center"><font size="2" color="#FFFFFF" face="Arial"><b>Diverse</b></font></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"><b><font face="Verdana" size="1" color="#6C6C6C"> </font><a
href="spil2.asp?kategori=adventure&side=1"><font face="Verdana" size="1" color="#6C6C6C">Føj
til foretrukne</font></a></b></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"><b><font face="Verdana" size="1" color="#6C6C6C"> </font><a
href="spil2.asp?kategori=Bilspil&side=1"><font face="Verdana" size="1" color="#6C6C6C">Gør
til startside </font></a></b></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"><b><font face="Verdana" size="1" color="#6C6C6C"> </font><a
href="spil2.asp?kategori=Blandet&side=1"><font face="Verdana" size="1" color="#6C6C6C">Om
play2day</font></a></b></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"><b><font face="Verdana" size="1" color="#6C6C6C"> </font><a href="spil2.asp?kategori=Cartoon
Network&side=1"><font face="Verdana" size="1" color="#6C6C6C">Reklamering</font></a></b></td>
</tr>
<tr>
<td bgcolor="#E7E7D9" nowrap height="15"><b><font face="Verdana" size="1" color="#6C6C6C"> </font><a
href="spil2.asp?kategori=DR&side=1"><font face="Verdana" size="1" color="#6C6C6C">Kontakt
os</font></a></b></td>
</tr>
<tr>
<td nowrap height="10" background="bundmenu.jpg"> </td>
</tr>
</table>
</body>
</html>
result.asp:
<%
kategori = request.querystring("kategori")
if kategori = "" Then
kategori = "spil"
end if
side = request.querystring("side")
If request.Querystring("side") <> "" Then
page = request.Querystring("side")
else
page = 1
end if
order = request.querystring("order")
if order = "" Then
order = "navn"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("spil.mdb")
str_sql2 = "SELECT * FROM spil WHERE navn LIKE '%" & trim(request.form("keyword")) & "%' AND godkendt='Yes' ORDER BY " & order
rs.Open str_sql2, Conn, 1
%>
<SCRIPT language=javascript>
function se(id,h,b) {
window.open("popup.asp?id="+id,"new",
"resizable=0,scrollbars=1,toolbar=0,location=0,menubar=0,status=0,width="+b+",height="+h)
}
</SCRIPT>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Play2day</title>
</head>
<body topmargin="0" leftmargin="0" style="font-family: verdana; font-size: 10 px">
<div align="center">
<table border="0" width="805" cellspacing="0" cellpadding="0" height="45" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000">
<tr>
<td width="804" height="12">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#2C7DBA" height="21">
<tr>
<td width="100%" height="21" style="border-bottom: 1 solid #000000" bgcolor="#E4D094">
<p align="left"><b><font face="verdana, arial" size="1">Play2day.dk
- Danmarks mest populære spil side!<!--webbot bot="HTMLMarkup"
startspan --><style type="text/css">
<!--
A:link { text-decoration: none; font-weight: bold ;font-size: verdana,10pt; color: 000000;}
A:visited { text-decoration: none;font-weight: bold ;font-size: verdana,10pt; color: 000000;}
A:active { text-decoration: none;font-weight: normal ;font-size: 8pt; color: 000000;}
A:hover { text-decoration: underline;font-weight: bold ;font-size: verdana,10pt; color: 000000;}
//-->
</style><!--webbot bot="HTMLMarkup" endspan -->
</font></b></td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
<td width="804" height="64" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="70">
<tr>
<td width="41%" valign="bottom"><img border="0" src="logo.jpg"></td>
</center>
<td width="59%" valign="middle">
<p align="right"><!-- #include file="banner.asp" -->
</td>
</tr>
</table>
</td>
</tr>
<center>
<tr>
<td width="804" height="31">
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="100%" bgcolor="#E4D094" style="border-top: 1 solid #000000; border-bottom: 1 solid #000000" height="19">
<p align="center"><a href="default.asp"><b><font face="Verdana" size="1" color="#000000">Hjem</font></b></a><b><font face="Verdana"
size="1">
l </font></b><a href="spil2.asp?kategori=adventure"><b><font face="Verdana" size="1" color="#000000">Online
Spil</font></b></a><b><font face="Verdana" size="1"> l
</font></b><a href="top20.asp"><b><font face="Verdana" size="1" color="#000000">Online
Spil Top 20</font></b></a><b><font face="Verdana" size="1">
l </font></b><a href="konkurrencer.asp"><font size="1" face="Verdana" color="#000000"><b>Konkurrencer </b></font></a><b><font
face="Verdana" size="1">
l </font></b><a href="mobil.asp"><b><font face="Verdana" size="1" color="#000000">Mobil
Univers</font></b></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="804" height="1" valign="top">
<table border="0" width="804" cellspacing="0" cellpadding="0" height="184">
<tr>
<td width="149" rowspan="2" height="184" valign="top">
<!-- #include file="menu.asp" -->
</td>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0" background="middle.gif" height="100%">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</font></td>
</tr>
</table>
</td>
<td width="463" height="184" valign="top">
<table border="0" width="473" cellspacing="0" cellpadding="0" height="35">
<tr>
<td width="100%" height="14" bgcolor="#DF613C">
<p align="center"><font size="2" face="Verdana" color="#FFFFFF">-
Skabelon -</font></p>
</td>
</tr>
<tr>
<td width="100%" height="21">
<p align="center"><font color="#FFFFFF" size="1" face="Verdana"><br>
</font></p>
<div align="center">
<center>
<%
If not (rs.eof or rs.bof) then
%>
<table height="43" width="427" bgColor="#000000" cellspacing="1">
<tr>
<td vAlign="middle" width="236" bgColor="#DF613C" height="19"><b><font size="1" face="Verdana" color="#FFFFFF">Navn
på spillet</font></b></td>
<td vAlign="middle" width="168" bgColor="#DF613C" height="19"><b><font size="1" face="Verdana"
color="#FFFFFF">Telefon:</font></b></td>
<td vAlign="middle" width="138" bgColor="#DF613C" height="19"><b><font size="1" face="Verdana" color="#FFFFFF">Hits:</font></b></td>
</tr>
<%
' ***************paging top
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 20
rs.AbsolutePage = Page
intRecCount = rs.PageSize
intPageCount = rs.PageCount
'paging-halløj
'If intPageCount > 1 Then
Response.Write "Page: "
For intNum = 1 To intPageCount
If lastItem > rs.RecordCount Then
lastItem = rs.RecordCount
End if
intPage = int(page)
If intNum = intPage Then
response.Write intNum & " "
Else
Response.Write "<a href='?alfa=a&kategori=" & kategori & "&side=" & intNum & "'>"
response.Write intNum & "</a> "
End if
Next
'End if
' *******************//paging top slut
Do While Not rs.EOF And intRecCount > 0
%>
<tr>
<td vAlign="top" width="534" bgColor="#FFFFFF" height="16"><a href="java script:se("<% = rs("id") %>",400,480)"><font
face="verdana, arial" size="1" color="#000000"><% = rs("navn") %>
</font></a></td>
<td vAlign="top" width="316" bgColor="#FFFFFF" height="16"><font face="verdana, arial" size="1" color="#000000"><% = rs("tilmobil") %>
</font></td>
<td vAlign="top" width="138" bgColor="#FFFFFF" height="16"><font color="#000000" size="1" face="verdana, arial"><% = rs("setgange") %>
</font></td>
</tr>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End if
%>
</table>
<%
else
%>
<table width="427" cellspacing="1" valign="top">
<tr>
<td>
Der er desværre ingen spil der passer til din søgning
</td>
</tr>
</table>
<%
end if
%>
</center>
</div>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</font></p>
</td>
</tr>
</table>
</td>
</center>
<td width="18" valign="top" rowspan="2" height="184">
<table border="0" width="17" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="17" background="middle.gif">
<p align="center"><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</td>
</tr>
</table>
</td>
<center>
<td width="150" valign="top" rowspan="2" height="184">
<div align="right">
<table border="0" width="149" cellspacing="0" cellpadding="0">
<tr>
<td width="149" valign="top"><!-- #include file="menu2.asp" -->
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="463" height="21"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
