30. april 2002 - 14:17Der er
63 kommentarer og 1 løsning
id link
Hey hvordan får jeg den her kode til at, når man trykker på overskrift ved den den trækker ud sådan her <%=rs("emne")%> hvordan får jeg så den til at lave et link til dens id og så når man trykker på den skal den vise ONLY den nyhed som der er for det id og ik andet her er min kode.
<% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb") Conn.Open DSN strSQL = "Select * FROM nyheder ORDER BY id DESC" Set rs = Conn.Execute(strSQL) Do While Not rs.EOF response.write "<center><BR STYLE='font-size: 3px'><a href=?page=arkiv&id=" & rs("id") & ">" & rs("emne") & "</a></CENTER>" rs.MoveNext Loop
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
nej men mit id-felt er autonummering men den her connection går jo på den samme fil som den anden altså den rigtig nyheds side hvor man kan se de nye :D det her er bare nyheds arkiv :)
min kode i arkiv.asp ser sådan her ud nu <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb") Conn.Open DSN strSQL = "SELECT * FROM nyheder ORDER BY id DESC" Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF response.write(""&rs("Id")&", "&rs("Emne")&"")
sæt det her ind i en ny fil du kalder arkiv.asp <%if request("id") = "" then%> kopi af nyheder siden <%else%> <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb") Conn.Open DSN strSQL = "SELECT * FROM nyheder WHERE Id="&request.querystring("id") Set rs = Conn.Execute(strSQL) %> <%=rs("id")%> - <%=rs("emne")%> <%end if%>
Det her ska stå ved kopi af nyheder siden <% Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb") Conn.Open DSN strSQL = "SELECT * From nyheder Where id = " & Request.Querystring("id") Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF Response.Write "<A HREF='" Response.Write "arkiv.asp?id=" & rs("id") & "'>" Response.Write rs("emne")& "<br>" rs.MoveNext Loop
hehe :D tsk tsk melieha vi er sq rigtige IRC nørder :) stener max der inde
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
