Nu spørge jeg nok dumt, men kan man lave forespørgelse i denne database åbening:
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From anm Where kategori = '" & replace(request.querystring("id"),"'","''") & "' ORDER BY id desc"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("an.mdb")???
i stedet for det, jeg prøver på nedestående som er nuværende kode!
<!--#include file="config.asp" --><%
dim CurPageType, CurPageInfoChk, spThemeTitle, spThemeMM
CurPageType = "core"
sPage_iName = "policy"
sPage_id = 0
CurPageInfoChk = "1"
%>
<!--#include file="inc_functions.asp" -->
<!-- #include file="includes/inc_ADOVBS.asp" -->
<%
pgname = txtErr & "!"
if Request("pg") <> "" or Request("pg") <> " " then
if IsNumeric(Request("pg")) = True then
sPage_id = cLng(Request("pg"))
else
closeAndGo("default.asp")
end if
end if
'get the default layout
if sPage_id = 0 then
cpSQL = "select * from PORTAL_PAGES where P_iNAME = '" & sPage_iName & "'"
else
cpSQL = "select * from PORTAL_PAGES where P_ID = " & sPage_id & ""
end if
set rsCPs = my_Conn.execute(cpSQL)
if not rsCPs.eof then
pgtitle = rsCPs("p_title")
pgname = rsCPs("p_name")
if rsCPs("p_acontent") <> "" then
pgbody = replace(rsCPs("p_acontent"),"''","'")
else
if rsCPs("p_content") <> "" then
pgbody = replace(rsCPs("p_content"),"''","'")
end if
end if
'left_Col = rsCPs("p_leftcol")
maint_Col = rsCPs("p_maintop")
mainb_Col = rsCPs("p_mainbottom")
right_Col = rsCPs("p_rightcol")
m_title = rsCPs("P_META_TITLE")
addToMeta "NAME","Description",rsCPs("P_META_DESC")
addToMeta "NAME","Keywords",rsCPs("P_META_KEY")
addToMeta "HTTP-EQUIV","Expires",rsCPs("P_META_EXPIRES")
addToMeta "NAME","Rating",rsCPs("P_META_RATING")
addToMeta "NAME","Distribution",rsCPs("P_META_DIST")
addToMeta "NAME","Robots",rsCPs("P_META_ROBOTS")
'm_description = rsCPs("P_META_DESC")
'm_keywords = rsCPs("P_META_KEY")
'm_expires = rsCPs("P_META_EXPIRES")
'm_rating = rsCPs("P_META_RATING")
'm_distribution = rsCPs("P_META_DIST")
'm_robots = rsCPs("P_META_ROBOTS")
end if
set rsCPs = nothing
PageTitle = m_title
function CurPageInfo ()
PageName = pgname
PageAction = txtBrows & "<br />"
PageLocation = request.ServerVariables("URL")
CurPageInfo = PageAction & "<a href=" & PageLocation & ">" & PageName & "</a>"
end function
%>
<!--#include file="inc_top.asp" -->
<%
function shoBlocks(arrCol)
for fp = 0 to ubound(arrCol)
fTemp = split(arrCol(fp),":")
if ubound(fTemp) = 2 then
fFunct = fTemp(1) & "(""" & fTemp(2) & """)"
else
fFunct = fTemp(1)
end if
execute(fFunct)
next
end function
cont = 0
bLeft = false
bMaint = false
bMainb = false
bRight = false
if right(left_Col,1) = "," then
left_Col = left(left_Col,len(left_Col)-1)
end if
if right(maint_Col,1) = "," then
maint_Col = left(maint_Col,len(maint_Col)-1)
end if
if right(mainb_Col,1) = "," then
mainb_Col = left(mainb_Col,len(mainb_Col)-1)
end if
if right(right_Col,1) = "," then
right_Col = left(right_Col,len(right_Col)-1)
end if
l_col = split(left_Col,",")
mt_col = split(maint_Col,",")
mb_col = split(mainb_Col,",")
r_col = split(right_Col,",")
if trim(left_Col) <> "" then
bLeft = true
cont = cont + 1
end if
if trim(maint_Col) <> "" then
bMaint = true
cont = cont + 1
end if
if trim(mainb_Col) <> "" then
bMainb = true
cont = cont + 1
end if
if trim(right_Col) <> "" then
bRight = true
cont = cont + 1
end if
response.Write("<table class=""content"" border=""0"" width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0""><tr>")
if bLeft then
response.Write("<td class=""leftPgCol"" valign=""top"" nowrap=""nowrap"">")
intSkin = getSkin(intSubSkin,1)
shoBlocks(l_col)
response.Write("</td>")
end if
response.Write("<td class=""mainPgCol"" valign=""top"">")
intSkin = getSkin(intSubSkin,2)
if bMaint then
shoBlocks(mt_col)
end if
%>
<table width="100%"><tr><td>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From anm Where kategori = '" & replace(request.querystring("id"),"'","''") & "' ORDER BY id desc"
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("an.mdb")
rs.Open strSQL, strDSN, 1 %>
<%
spThemeTitle= "Anmeldelse" & " " & "af" & " " & (Request.Querystring("id"))
spThemeBlock1_open(intSkin)
%>
<%
if rs.EOF then
%>
<b><br>
<br>
<br>
<span class="kategori_tekst">
Der er desværre endnu ikke tilføjet nogle anmeldelse i denne kategori</span>
<br>
<br>
<br>
<br>
<br>
<br>
</b>
<%
else
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
'** Paging part end
Counter = 1
'**paging ændre do util linien:
'do until rs.eof
Do While Not rs.EOF And intRecCount > 0
IF Counter = 4 Then
Counter = 1
End if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <table width="80%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="80%" border="0" align="left" cellpadding="0" cellspacing="0" >
<tr>
<td align="right" valign="top"> <div align="left">
<p align="left"><B>
<% = rs("produkt") %>
<% = rs("butik") %>
</B> <br>
Indsendt af:
<% = rs("MEMBER_ID") %>
den
<% = rs("dato") %>
<br>
<br>
<% Str = rs("beskrivelse")
If len(Str) > 35 Then
Response.write(left(Str, 35) & " .....")
Else
Response.Write Str
end if
%>
<br>
<br>
<a href="vis.asp?rid=<% = rs("id") & "&t=" & rs("kategori") %>"><B>
>> læs mere</B></a><br>
<br>
</p>
<p align="right"> </p>
</div>
<div align="left"> </div></td>
<td align="right" valign="top"> <% billed_url = rs("url")
if billed_url<>"" then
Response.write "<br>" & "<br>" & "<img src=""" & billed_url & """ hight=""94"" width=""125"" & alt=""" & (alt_pic) & """ title=""" & (alt_pic) & """>"
end if
billed_url = rs("billede")
if billed_url<>"" then
Response.write "<img src='" & "thumbnails100" & "/" & Mid(billed_url,10) & "' class=""rammesort"" alt=""" & (alt_pic) & """ title=""" & (alt_pic) & """ >"
end if %>
<br>
Kommentar:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("an.mdb")
Conn.Open DSN
Sql = "SELECT DISTINCTROW Sum([kommen].[kategori]) AS [Sum Of kategori], Count(*) AS [Antal Of kommen] FROM kommen"
Set Rs = Conn.Execute(Sql)
Response.Write rs("Antal Of kommen")
%>
</td>
</tr>
<tr>
<td colspan="2" align="right" valign="top"><hr /></td>
<td align="right" valign="top"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
response.write "<div align='center'>"
response.write"<table>"
response.write"<tr>"
response.write"<td>"
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "[<a href=""kategori.asp?page=" & intNum & "&id=" & request.querystring("id") & """>" & intNum & "</a>] "
Next
Response.write "</td></tr><tr><td>"
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=""kategori.asp?page=" & intPage - 1 & "&id=" & request.querystring("id") & """>Forrige</a> "
Else
Response.Write "Forrige"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=""kategori.asp?page=" & intPage + 1 & "&id=" & request.querystring("id") & """>Næste</a> "
End If
response.write"</td>"
response.write"</tr>"
response.write "</table>"
response.write "</div>"
%> </td>
</tr></table>
<%
spThemeBlock1_close(intSkin)
if bMainb then
shoBlocks(mb_col)
end if
response.Write("</td>")
if bRight then
if cont = 3 then
response.Write("<td class=""rightPgCol"" valign=""top"" width=""195"">")
else
response.Write("<td class=""rightPgCol"" valign=""top"">")
end if
intSkin = getSkin(intSubSkin,3)
shoBlocks(r_col)
response.Write("</td>")
end if
response.Write("</tr></table>")
%>
<!--#include file="inc_footer.asp" -->
