hvis du vil have at index.asp?id=24 trækkes ud fra en db hvor f.eks i et nyheds system så skal den kun vise id kan du f.eks gøre sådan her
<pre>
<%
' 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("nyheder.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select format(dato, 'dd-mm-yy hh:nn') as DatoStr, * from nyheder Order by id Desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
%>
<table width="43%" align="center" cellspacing="0">
<tr onclick="window.location = '<%="komment.asp?id=" & rs("id") %>'" class="mouseout" onMouseOver="this.className='mouseover';" onMouseOut="this.className='mouseout'">
<td align="center" width="7%"><img src="billeder/new.gif" border="0"></td>
<td></td>
<td width="56%"><%=rs("DatoStr")%></td>
<td width="96%"><%=rs("emne")%></td>
</tr>
</table>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</pre>
der viser den så kun overskrift og dato'en og man kan trykke på den så kan du lave en side der hedder komment.asp hvor siden så hedder komment.asp?id=24 f.eks så ser komment sådan her ud
<pre>
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' Her hiver vi indholdet af databasen ud
sql = "SELECT format(dato, 'dd-mm-yy hh:nn') as DatoStr, * From nyheder Where id = " & Request.Querystring("id")
Set rs = Con.Execute(Sql)
' Gennemløb Recordset (rs) med en løkke
Do
%><center><table border="0" cellpadding="0" cellspacing="0" width="400" style="border: 1 solid black"> <tr>
<td WIDTH="271" style="border-bottom: 1 solid black; padding: 3" bgcolor="648eb6"><font color="black"><%=rs("emne")%></font></td><td WIDTH="113" style="border-bottom: 1 solid black; padding: 3" bgcolor="648eb6"><font color="black"><%=rs("DatoStr")%></font></td></tr>
<tr> <td colspan="2"><P><%=besked%></P><P> </P><P><font color="black">- </font><a href="mailto:<%=rs("E-mail")%>"><%=rs("navn")%></a></P></td></tr> </table></center>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
Response.Write ""
%>
</pre>
f.eks men hvis du vil have som du skriver index.asp?page=side2 class="menulink" så kan du have det sådan her
<pre>
<%
page = request("page")
if page = "" then
%>
din start side her f.eks nyheder
<%
end if
select case page
case "side2"
%>
side 2 her
<%
end select
%>
</pre>
sådan kunne du os lave det håber det hjælper på dit spørgsmål
Jeg vil gerne vide mere precis hvordan der skal opbygges F.eks.: <a name="????" href="index.asp?id=side2" class="menulink">Nyheder:</a>
OSV.
» HomiX «[Redigeret d. 05/05-02 16:51:41 af Nikolaj N]
[Redigeret d. 11/05-02 16:04:33 af Simon Karberg]