Hjælp til forspørgelse fra database søges

select top 10 * from jobAnnonce order by id desc

Du kan bruge TOP X og så hente fra henholdsvis job og CV tabellen.

Eks hvis du har order by id desc så tager den de nyeste først, id kan være din autonummer kolonne eller en dato for hvornår posten er tilføjet:

sql = "select top 5 * from job order by id desc"

mortencyren@yahoo.no

http://www.html.dk/tutorials/asp/lektion19.asp

Fandt selv ud af det

og hvad gjorde du så som afveg fra vores forslag?

Det var ikke så let som så her er min redigerede kode:

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_job_top.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<%
dim rsAds
set rsAds = server.CreateObject("adodb.recordset")

'get the ads for this category
strSql = "Select top 5 ID, Topic_ID, ad_title, content, price, image_url, name, added_By, address, city, zip, state, email, date_posted, "
strSql = strSql & "link FROM JOBS_CONTENT ORDER BY date_posted desc"
Set rsAds = my_Conn.Execute(strSql)

%>
<table bgcolor="<% =strTableBorderColor %>" border="0" cellpadding="0" cellspacing="0" width="95%" align=center>
    <tr>
        <td bgcolor="black" align="center" valign="top">
            <table border="0" cellpadding="4" cellspacing="1" width="100%" height="100%">
                <tr>
                    <td align="center" bgcolor="<% =strCategoryCellColor %>" width="50%" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>" valign="top"><b>Nyeste jobs og CV</b></font></td>
                </tr>
<%
    If rsAds.eof then%>
                <tr >
                    <td colspan="2"bgcolor="<% =strForumCellColor %>" height="150" align=center>
                        <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">There are no open positions posted.  Please check back soon.</font>
                    </td>
                </tr>
<%    Else
        iswitch = TRUE
        Do While Not rsAds.eof
        %>
                <tr>
                    <td valign=top bgcolor="<% =strForumCellColor %>" width="20%">
                        <font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
                        <b>Amt:</b> <%=rsAds("state")%><br>
                        <b>Kontakt:</b> <a href="pop_profile.asp?mode=display&id=<%=rsAds("Added_By")%>"><%=getMemberName(rsAds("Added_By"))%></a><br>
                        <b>Løn:</b> Kr.<%if rsAds("price") <> "" then Response.write chkstring(rsAds("price"), "display")%>
                        </font>
                    </td>
                    <td valign=top bgcolor="<% =strForumCellColor %>" width="80%">
                        <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
                        <a href="jobs_detail.asp?id=<%= rsAds("id")%>"><b><%= rsAds("ad_title")%></b></a><br>
                        <%= LEFT(rsAds("content"), 125)%>...
                        </font>
                    </td>
                </tr>
        <%
            rsAds.MoveNext
        Loop

    End If
               
rsAds.Close
set rsAds = nothing
%>
                </tr>
            </table>
        </td>
    </tr>
</table>


<%
Function adCount(catID)
    caSQL = "SELECT COUNT(*) as Total FROM JOBS_CONTENT WHERE Topic_ID = " & catID
    dim rsCount
    set rsCount = server.CreateObject("adodb.recordset")
    Set rsCount = my_Conn.Execute(caSQL)
        adCount = rsCount.Fields("Total")
    rsCount.Close
    Set rsCount = Nothing
End Function

Sub DeleteOldAds
  strSql = "DELETE FROM JOBS_CONTENT WHERE date_posted < '" & datetostr(datAddLength) & "'"
  my_Conn.Execute(strSql) 
End Sub

Sub DisplayCategories
    Do While Not rsJobs.eof
    %>
                <tr>
                    <td width="50%">
                        <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
                        <b><a href="Jobs_view_ads.asp?catID=<%= rsJobs("id")%>"><%= rsJobs("Category_Name")%></a></b> <i>(<%= adCount(rsJobs("ID"))%>)</i>
                        <%If mlev = 4 Then%>
                            <a href="Jobs_admin.asp?mode=edit&ID=<%= rsJobs("id")%>"><img src="icon_pencil.gif" border="0" width="12" height="12"></a>
                            <a href="Jobs.asp?mode=delete&ID=<%= rsJobs("id")%>"><img src="icon_trashcan.gif" border="0" width="12" height="12"></a>
                        <%End If%>
                        <br><%= rsJobs("Description")%>
                        </font>
                    </td>
        <%    rsJobs.MoveNext
        If rsJobs.eof Then%>
                    <td>&nbsp;</td>
                </tr>
        <%Else%>
                    <td width="50%">
                        <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
                        <b><a href="Jobs_view_ads.asp?catID=<%= rsJobs("id")%>"><%= rsJobs("Category_Name")%></a></b> <i>(<%= adCount(rsJobs("ID"))%>)</i>
                        <%If mlev = 4 Then%>
                            <a href="Jobs_admin.asp?mode=edit&ID=<%= rsJobs("id")%>"><img src="icon_pencil.gif" border="0" width="12" height="12"></a>
                            <a href="Jobs.asp?mode=delete&ID=<%= rsJobs("id")%>"><img src="icon_trashcan.gif" border="0" width="12" height="12"></a>
                        <%End If%>
                        <br><%= rsJobs("Description")%>
                        </font>
                    </td>
                </tr>
    <%        rsJobs.MoveNext
        End If
    Loop
End Sub
%>

for mig at se ser det ret simpelt ud - og du bruger endda "select top..." som foreslået nogle gange, så jeg kan ikke rigtig se hvordan det afviger fra svarende?