Database/link

i en løkke skriver du

<a href="Nyside.asp?id=<%=RS("ID")%>">rs("NAVN")</a>

så har du linkse..

På den næste side skriver
ID = REQUEST.QUERYSTRING("id")

Så kan du nok selv klare den derfra

løkken..

DO UNTIL rs.EOF

<a href="Nyside.asp?id=<%=RS("ID")%>">rs("NAVN")</a><br>


rs.movenext
loop

liste.asp
---------------------------
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "Select * From medlem Order by efternavn"
Set rs = Conn.Execute(strSQL)

Do
  ' Personens navn
  strNavn = rs("Fornavn") & " " & rs("Efternavn")

  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<a href='person.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"

  ' Liste med links
  Response.Write "<li>" & strLink & "</li>"

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>


person.asp
----------------------------------
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From medlem Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)



' Skriv personens data
Response.Write "<tr><td><dt>Navn:</dt><dd>" & rs("Fornavn") & " " & rs("mellemnavn") & " " & rs("Efternavn") & "</dd>"
Response.Write "<dt>Medlemstype:</dt><dd>" & rs("type") & "</dd>"
Response.Write "<dt>Adresse:</dt><dd>" & rs("gade") & " " & rs("nr") & "</dd>"
Response.Write "<dt></dt>        <dd>" & rs("post") & " " & rs("by") & "</dd>"
Response.Write "<dt></dt>        <dd>" & rs("land") & "</dd></td>"

' Skriv personens data
Response.Write "<td><dt>Båd:</dt><dd>" & rs("baad") & "</dd></td></tr>"



Conn.Close
Set Conn = Nothing
%>

Det var selvfølgelig et svar...

Engang til :)

det kan godt ske at jeg ikke gør det helt rigtig, men har er det jeg har (det som ikke virker), hvad er fejlen i det??


<--- list.asp--->


<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jul.mdb")

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM log WHERE (ID = " & Request.QueryString("ID") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then%>

<table cellspacing="0" cellpadding="0" border="0" width="136">
<tr>
 
    <td rowspan="2">
    <a href="person.asp?mode=mor&id=<%=server.urlencode(rs("id"))%>" style="color: 990000; font-weight: bolder;"><%= rs("mor")%></a><br>
    <a href="person.asp?mode=far&id=<%=server.urlencode(rs("id"))%>" style="color: 990000; font-weight: bolder;"><%= rs("far")%></a><br>
    <a href="person.asp?id=<%=RS("ID")%>" style="color: 990000; font-weight: bolder;"><%= rs("barn1")%></a><br>
    </td>
    </tr>
    </table>
   
<%
rs.Update
        rs.Close
        myConn.Close
       
    End If

%>



<--- person.asp---->


<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jul.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM log where id = '" & Request.QueryString("id") & ")'"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then%>
    <TABLE WIDTH=""100%"" BORDER=""0"">
    <TR VALIGN=""top""><TD>
    <%= rs("barn1")%> Ønsker sig:
    </td></TR>
    <TR VALIGN=""top""><TD>
    <textarea cols="" rows=""><%= rs("barn11")%></textarea>
    </td></TR></TABLE><BR>
        <%rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
    End If
End If
%>


clp

hvorfor bruger du server.urlencode

Prøve at sætte dine data ind i mine kode...
så kan du altid lave om på designet...