ok - Here it comes :)
<body bgcolor=\"#808080\" vlink=\"aqua\" link=\"Silver\">
<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 0 solid #000000\" width=\"100%\" bgcolor=\"#006699\" height=\"154\">
<tr>
<td width=\"3%\" height=\"1\" valign=\"top\" align=\"left\" rowspan=\"2\" bgcolor=\"#808080\">
<td width=\"72%\" height=\"1\" valign=\"top\" align=\"left\" rowspan=\"2\" bgcolor=\"#006699\">
<font color=\"White\" face=\"verdana\" size=\"2\">
<% Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), \"\")
String = Replace(String, CHR(10) & CHR(10), \"</P><P>\")
String = Replace(String, CHR(10), \"<BR>\")
FormatStr = String
End Function
%>
<% side = request.querystring(\"side\") %>
<% if not side <> \"\" then %>
<% Set db = Server.CreateObject(\"ADODB.Connection\")
db.Open \"adgangs info\"
db.Open
SET kat = db.execute(\"SELECT * FROM kategori\")
do until kat.eof
response.write(\"<b><a href=\'jokes.asp?side=kat&sidetal=0&kat=\" & kat(\"id\") & \"\'>\" & kat(\"navn\") & \"</a></b><br><br>\")
kat.movenext
loop
db.close
set db = nothing
%>
<% elseif side = \"kat\" then %>
<% kat = request.querystring(\"kat\")
sidetal = request.querystring(\"sidetal\")
%>
<%
Set DatabaseConnection = Server.CreateObject(\"ADODB.Connection\")
db.ConnectionString = \"\"
db.Open
SET count = db.execute(\"SELECT COUNT(*) from jokes where kategori =\" & kat & \"\")
antalialt = count(0)
sider = antalialt / 15
sider = int(sider)
if sider <= sidetal then
nextpage = sidetal+1
else
nextpage = sider
end if
if sidetal <= 0 then
lastpage = 0
else
lastpage = sidetal - 1
end if
response.write(\"<table><tr><td width=\'15%\'><a href=\'jokes.asp?side=kat&sidetal=\" & 0 & \"&kat=\"& kat &\"\'>Først side</a></td>\")
response.write(\"<td width=\'15%\'>\")
if sider-sidetal >= sider then
response.write(\"Forrige\")
else
response.write(\"<a href=\'jokes.asp?side=kat&sidetal=\" & lastpage & \"&kat=\"& kat &\"\'>Forrige side</a>\")
end if
response.write(\"</td><td width=\'15%\'>\")
if sider-sidetal <= 0 then
response.write(\"Næste\")
else
response.write(\"<a href=\'jokes.asp?side=kat&sidetal=\" & nextpage & \"&kat=\"& kat &\"\'>Næste side</a></td>\")
end if
response.write(\"<td width=\'15%\'><a href=\'jokes.asp?side=kat&sidetal=\" & sider & \"&kat=\"& kat &\"\'>Sidste side</a></td><td width=\'15%\'><a href=\'jokes.asp\'>Gå til Oversigt</a></td></tr></table><br>\")
response.write(\"<u>\"& sidetal*15 &\" - \"& sidetal*15+15 &\"</u> \")
response.write(\"Der er i alt \" & antalialt & \" i denne kategori.\")
response.write(\"<br><br>\")
sql = \"SELECT * FROM jokes where kategori = \" & kat & \" order by overskrift LIMIT \" & sidetal*15 & \", 15\"
SET jokes = db.execute(sql)
do until jokes.eof
response.write(\"<b><a href=\'jokes.asp?side=jokes&id=\" & jokes(\"id\") & \"\'>\" & jokes(\"overskrift\") & \"</a></b><br><br>\")
jokes.movenext
loop
db.close
set db = nothing
%>
<% elseif side = \"jokes\" then %>
<% id = request.querystring(\"id\") %>
<%
Set DatabaseConnection = Server.CreateObject(\"ADODB.Connection\")
DatabaseConnection.Open \"DSN=jhf77fda; username=cosmicdk; password=guw45mrr\"
db.Open
db.execute(\"UPDATE jokes SET klik=klik+1 where id = \" & id)
SET jokes = db.execute(\"SELECT * FROM jokes where id =\" & id)
response.write(\"<b>\" & jokes(\"overskrift\") & \"</b><br>\" & formatstr(jokes(\"indhold\")) & \"<br><br>\")
%>
<u>Fakta om denne joke</u><br>
<% response.write(\"indsendt d. \" & formatdatetime(jokes(\"dato\"), 1) & \"<br>\")%>
<% response.write(\"Denne jokes er blevet læst \" & jokes(\"klik\") & \" gange <br><br>\")%>
<% response.write(\"Med \" & jokes(\"stemmer\") & \" stemmer har den en gennemsnit på \" & jokes(\"rating\") & \"<br><br>\")%>
<% response.write(\"<a href=\'jokes.asp?side=kat&sidetal=0&kat=\" & jokes(\"kategori\") & \"\'>Gå til jokes kategori</a>\")%>
<form method=get action=\"stem.asp\"> <br>Jeg giver<input type=\"hidden\" name=\"type\" value=\"flash\">
<input type=\"hidden\" name=\"id\" value=\"<%=jokes(\"overskrift\") %>\">
<input type=\"hidden\" name=\"kategori\" value=\"jokes\">
<select name=votecount>
<option value=1>1 point
<option value=2>2 points
<option value=3 selected>3 points
<option value=4>4 points
<option value=5>5 points
</select>
<input type=submit value=\"Stem\">
</form>
<%
db.close
set db = nothing
%>
<% end if%>
</tr></td></table><br>
</body>
Evt. kontakt mig over icq hvis det er små spørgsmål :)
