udtræk fra database

Og når det er sket kunne jeg godt tænke mig at f.eks at de første 50 poster vises og nederst på siden er der så lavet flere link til de næste poster ek. a-d er et link og ved klik trækker den de poster ud med a og d som start bogstav derefter e-h osv. Håber der er nogle der kan hjælpe mig

Skal jeg lave det for dig, er 30 point for lidt... Vil du selv lave det, kan du finde hjælp på http://www.aspin.com/home/tutorial/database.

Du kan prøve at sende det til:

peter@votus.dk

Så skal jeg prøve at kigge på det.

Med venlig hilsen
Peter F. Poulsen

hyperactive, ja men jeg kan da godt give dig 60 hvis det er det. Det eneste jeg har er databasen indeholdende et adressekartotek

Har lidt travlt i dag, lad pfp klare det :o)

Du bør lave en DSN-less forbindelse til databasen...

<p><%
\'Connection til databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database.mdb\")
strSQL = \"select * from mappe\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er ingen indlæg i databasen!font>\"
else
Do Until rs.EOF
%>

<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\">Navn: <%=rs(\"navn\")</td>
<td width=\"50%\">Adresse: <%=rs(\"adresse\")</td>
</tr>

<%RS.MoveNext
loop
end if

Conn.Close
Set Conn = Nothing%>
</center>
-------------------------
Du skal så udskifte følgene:
database.mdb skal udskiftes med din databases navn
mappe skal udskiftes med din mappes navn
<%=rs(\"navn\")%> og <%=rs(\"adresse\")%> skal udskiftes med de informationer du vil have ud af databasen!

Ja jeg ville også lave det ligesom darkhero

alletiders, det var jo nemt nok, nu har jeg kun et problem, som tidligere nævnt ville jeg gerne i bunden af siden have nogle link hvor der eks. står 1-50 og ved klik kommer de poster frem der starter der har nummeret mellem 1 og 50, hver person har nemlig et nummer - næste link hedder så 50-100, dette vil jeg gerne have da der er et hav af kunder så istedet for at liste den alle på en gang.

Prøv at se om du kan bruge dette paging eksempel på:

http://www.activeserverpages.dk/aspdigital/kapitel2/paging.asp

Med venlig hilsen
Peter F. Poulsen

Lige som på:
http://DevilDesign.trab.dk/scripts.asp ?

kode:

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkURL FROM Links\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/aspdigital/db/demo.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    Do While Not rs.EOF And intRecCount > 0
        Response.Write rs(\"LinkURL\") & \"<br>\"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
    Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%>

Håber det er hjælp nok!

jo tak, men jeg kan ikke få det rigtigt sat sammen, det her er det jeg har, jeg har prøvet men jeg får en fejl ved linien rs.Open strSQL, strDNS,1 - den understøtter ikke ODBC-driver, men jeg har sikkert gjort det forkert

<%
\'Connection til databasen
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"mk.mdb\")
strSQL = \"select * from medlemmer\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Arial\"\" size=\"\"2\"\">Der er ingen indlæg i databasen!font>\"
else
Do Until rs.EOF
%>

<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\"><%=rs(\"navn\")%></td>
<td width=\"50%\"><%=rs(\"email\")%></td>
</tr>

<%RS.MoveNext
loop
end if

Conn.Close
Set Conn = Nothing%>

Denne kode skal du bare sætte ind (husk at rette Database sti og mappe)

Den burde virke!

<%
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT LinkURL FROM Links\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"/aspdigital/db/demo.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write \"<p><b>Side \" & intPage & \" af \" & intPageCount & \"</b></p>\"
    Do While Not rs.EOF And intRecCount > 0
%>
<div align=\"center\">
<center>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td width=\"50%\"><%=rs(\"navn\")%></td>
<td width=\"50%\"><%=rs(\"email\")%></td>
</tr>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write \"<p>Gå til side \"
For intNum = 1 To intPageCount
    Response.Write \"<a href=paging.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next

Response.Write \"<p>\"
If Clng(intPage) > 1 Then
    Response.Write \"<a href=paging.asp?page=\" & intPage - 1 & \">&lt;&lt;</a>\"
Else
    Response.Write \"&lt;&lt;\"
End If

Response.Write \"&nbsp;\"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write \"<a href=paging.asp?page=\" & intPage + 1 & \">&gt;&gt;</a> \"
Else
    Response.Write \"&gt;&gt;\"
End If
%>

alletiders, nu har jeg fået det til at virke, dog er der en ting hvis du kan svare mig på det. Istedet for at der står gå til side 1,2,3 osv. kan man så lave det hvor der står a-d, e-h osv da jeg har rimelig mange mennesker i adressekartoteket. Så skal jeg nok lade være med at stille flere spørgsmål. På forhånd tak

desværre kan du ikke lave det.. det kræver at du skriver 100 if formulare