Prøv med dette:
<!--#include file="inklude/sqldbcn.asp"-->
<!--#include file="inklude/easytags.asp"-->
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.Form("reset") = "reset" then
dato = ""
newstype = ""
ord = ""
else
dato = Request.Form("dato")
newstype = Request.Form("newstype")
ord = Request.Form("ord")
end if
else
dato = Request.QueryString("dato")
newstype = Request.QueryString("newstype")
ord = Request.QueryString("ord")
end if
%>
<html>
<head>
<LINK href=inklude/style.css type=text/css rel=stylesheet>
</head>
<body>
<%
intPage = Request("side")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
strSQL = "select [Forfatter],[Dato],[Tekst],[Overskrift] from news "
if ord <> "" then
strSQL = strSQL & " WHERE ("
ordArr = Split(ord," ")
for i = lbound(ordArr) to ubound(ordArr)
strSQL = strSQL & "[Tekst] LIKE '%" & ordArr(i) & "%' "
if i < ubound(ordArr) then strSQL = strSQL & " OR "
next
strSQL = strSQL & ")"
end if
if not (newstype = "" or newstype = "0") then
if ord = "" then
strSQL = strSQL & " Where "
else
strSQL = strSQL & " AND "
end if
strSQL = strSQL & " Kat = '" & replace(newstype, "'","''") & "'"
end if
if not (dato = "" or dato = "0") then
if ord = "" AND (newstype = "" or newstype = "0") then
strSQL = strSQL & " Where "
else
strSQL = strSQL & " AND "
end if
datoArr = Split(dato,":")
if ubound(datoArr) = 1 then
datoStr = DateAdd(datoArr(1), -1*datoArr(0), Date)
else
datoStr = Date
end if
datoStr = Year(DatoStr) & "-" & Month(DatoStr) & "-" & Day(DatoStr)
strSQL = strSQL & " dato >= #" & DatoStr & "#"
end if
strSQL = strSQL & " Order by Id Desc"
'Response.Write strSQL
Call OpenDB
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, connStr, 3, 4
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
%>
<table><tr><td>
<%
Response.Write "<div class=sidetal><b>Side " & intPage & " af " & intPageCount & space(6) & "Ialt" & space(1) & rs.RecordCount & space(1) & "Nyheder</b></div></td><td>"
%>
<div class=sidetal>
<form action="" method="post" id=form1 name=form1>
<select name="newstype" onChange="this.form.submit();">
<option value="">..vælg type..</option>
<option value="0"<% if newstype="0" then Response.Write " SELECTED "%>>Alle Typer</option>
<option value="admin"<% if newstype="admin" then Response.Write " SELECTED "%>>ADMIN nyheder</option>
<option value="site"<% if newstype="site" then Response.Write " SELECTED "%>>Site Nyheder</option>
</select>
<select name="dato" onChange="this.form.submit();">
<option value="">..vælg dato..</option>
<option value="0"<% if dato="0" then Response.Write " SELECTED "%>>Alle datoer</option>
<option value="2:m"<% if dato="2:m" then Response.Write " SELECTED "%>>2 mdr gammelt</option>
<option value="1:m"<% if dato="1:m" then Response.Write " SELECTED "%>>1 mdr gammelt</option>
<option value="14:d"<% if dato="14:d" then Response.Write " SELECTED "%>>14 dage gammelt</option>
<option value="7:d"<% if dato="7:d" then Response.Write " SELECTED "%>>7 dage gammelt</option>
<option value="0:d"<% if dato="0:d" then Response.Write " SELECTED "%>>Dagens Nyheder</option>
</select>
<input type="text" name="ord" value="<%=ord%>"> Søgeord
<input type="submit" name="søg" value="søg">
<input type="submit" name="reset" value="reset">
</form>
</div>
</td></tr></table>
<%
Response.Write "<table width=500 border=0 cellpadding=1 cellspacing=1>"
Do While Not rs.EOF And intRecCount > 0
strForfatter = rs("Forfatter")
strOverskrift = rs("Overskrift")
strTekst = rs("Tekst")
strDate = rs("Dato")
strDate = FormatDateTime(strDate,vbLongDate) & " kl. " & FormatDateTime(strDate,vbLongTime)
Response.Write "<tr><td class=tblnewsover colspan=""2""><div class=overskrift>" & space(2) & strOverskrift & "</div></td>"
Response.Write "<tr><td class=tblnews width=""50%""><font class=forfatter>" & space(1) & strForfatter & "</font><font class=skriver>"& space(1) &"skriver:</font></td>"
Response.Write "<td class=tblnews width=""50%""><div class=date align=""right"">" & strDate & space(1) &"</div></td></tr>"
Response.Write "<tr><td colspan=""2""><font face=verdana size=2>" & strTekst & "<br><br style=""font-size: 3px""></td></tr>"
Response.Write "<tr><td class=tblnewsend height=""3"" colspan=""2""></td></tr>"
Response.Write "<tr><td height=""3"" colspan=""2""></td></tr>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Response.Write "</table>"
else
Response.Write "<p><font face=verdana size=2>Der er endnu ikke nogle der har skrevet i gæstebogen</font></p>"
End If
Call CloseDB
Response.Write "<table width=500 border=0 cellpadding=1 cellspacing=1>"
Response.Write "<tr><td width=""70%"" colspan=""2"">"
Response.Write "<div class=sidetal>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<b><a href=?dato=" & dato & "&newstype=" & newstype & "&ord=" & ord & "&side=" & intNum & ">" & intNum & "</a></b> "
Next
Response.Write "</div></td><td width=""30%"">"
If Clng(intPage) > 1 Then
Response.Write "<a class=de href=?dato=" & dato & "&newstype=" & newstype & "&ord=" & ord & "&side=" & intPage - 1 & "><b>← Tilbage</b></a> "
Else
Response.Write ""
End If
Response.Write space(2)
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a class=de href=?dato=" & dato & "&newstype=" & newstype & "&ord=" & ord & "&side=" & intPage + 1 & "><b>Frem →</b></a></td></tr> "
Response.Write "</table>"
Else
Response.Write ""
End If
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
