Avatar billede forcedesigner Nybegynder
02. juli 2002 - 15:40 Der er 30 kommentarer og
1 løsning

link problem...

Jeg har et lille problem med noget link i min nyhedskode.

Jeg lavet en nyhedssystem, men mangler noget.

Jeg vil have at efter man trykker på overskrevet skal man går ind i vis_nyhed.asp, som viser lige det nyhed man ønsker at læse.

Lige nu ser alle_nyheder.asp sådan ud:

<%
Response.Buffer = True

' 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, sorterer dem efter dato
    Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
    Set Record =  Con.Execute(Sql)
%>

<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>

</head>

<body>

<table border="0" cellspacing="0" width="550">
    <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>

<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->

<% Do While Not Record.EOF %>
        <td><font size="1" face="Verdana"><b><% Response.Write Record("Overskrift")%></b></font></td>
        <td align="right"><font size="1" face="Verdana">Fra <i><% Response.Write Record("Forfatter")%></i></font></td>
    <tr>
        <td colspan="2"><font size="1" face="Verdana"><% Response.Write left(Record("nyhed"),250) & "..."%></font></td>
    </tr>
    <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>
<%
Record.MoveNext
Loop
%>

<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>


Jeg mangler koden til vis_nyhed.asp og noget kode ændring i alle_nyheder.asp.

Hjælp mig!
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 15:41 #1
overskrevet = overskriftet
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 15:46 #2
dette:

<% Response.Write Record("Overskrift")%>

...skal være dette:

<% Response.Write "<a href=" & Record("nyhed") & ">" & Record("Overskrift") & "</a>"%>


...er det det du mener?
Avatar billede hells Nybegynder
02. juli 2002 - 15:47 #3
alle_nyheder.asp:
<% Do While Not Record.EOF %>
        <td><font size="1" face="Verdana"><b><a href="vis_nyhed.asp=?overskrift=<% Response.Write Record("Overskrift")%>"><%Response.Write Record("Overskrift")%></b></font></td>

vis_nyhed.asp:
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, sorterer dem efter dato
    Sql = "SELECT * FROM nyheder ORDER BY Dato DESC Where overskrift='" & Request.QueryStrin("overskrift") & "'"
    Set Record =  Con.Execute(Sql)

Response.Write Record("nyhed")
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 15:50 #4
eller hvis du har en id til hver nyhed:

"<a href=""vis_nyhed.asp?id=" & Record("id") & """title='" & Record("overskrift") & "'class=""link6"">" & Record("overskrift") & "<a>
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 15:50 #5
"<a href=""vis_nyhed.asp?id=" & Record("id") & """title='" & Record("overskrift") & "'class=""link6"">" & Record("overskrift") & "<a>"

...manglede en "
Avatar billede hells Nybegynder
02. juli 2002 - 15:50 #6
hov:
Request.QueryStrin("overskrift") i vis_nyhed.asp skal være:
Request.QueryString("overskrift")

og der skal selvfølgelig <% og %> om det i vis_nyhed.asp
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 15:52 #7
så det kommer til at se sådan ud:

<%
Response.Buffer = True

' 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, sorterer dem efter dato
    Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
    Set Record =  Con.Execute(Sql)
%>

<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>

</head>

<body>

<table border="0" cellspacing="0" width="550">
    <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>

<!-- Her nedenunder smider vi saa nyhederne ud i en tabel -->

<% Do While Not Record.EOF %>
        <td><font size="1" face="Verdana"><b><% Response.Write "<a href=""vis_nyhed.asp?id=" & Record("id") & """title='" & Record("overskrift") & ">" & Record("overskrift") & "<a>"</b></font></td>
        <td align="right"><font size="1" face="Verdana">Fra <i><% Response.Write Record("Forfatter")%></i></font></td>
    <tr>
        <td colspan="2"><font size="1" face="Verdana"><% Response.Write left(Record("nyhed"),250) & "..."%></font></td>
    </tr>
    <tr><td><font size="1" face="Verdana">&nbsp;</font></td></tr>
<%
Record.MoveNext
Loop
%>

<!-- Og her har den saa gjort det, og vi kan afslutte dokumentet -->
</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 15:56 #8
vis_nyhed.asp:

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

strQS = request.quertstring("id")

    Sql = "SELECT * FROM nyheder where id = strQS"
    Set Record =  Con.Execute(Sql)


Response.write Record("nyhed")

%>
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 15:56 #9
ups:

vis_nyhed.asp:

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

strQS = request.querystring("id")

    Sql = "SELECT * FROM nyheder where id = strQS"
    Set Record =  Con.Execute(Sql)


Response.write Record("nyhed")

%>
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:04 #10
Alle jeres løsninger virker stadig ikke, venner.
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:05 #11
og hvilken fejl kommer den med?
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:05 #12
hvordan ser din tabel i databasen ud? ... har du en kolonne med id som er autonummeret
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:09 #13
Jeg bruger ID, så i må meget gerne komme med ID eksempler.
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:15 #14
Er der en nemmer måde at hente det fra databasen også lave den link jeg ønsker?
Avatar billede hells Nybegynder
02. juli 2002 - 16:24 #15
Den er da pænt nem. Har lige lavet nogle rettelser:
alle_nyheder.asp:
<td><font size="1" face="Verdana"><b><a href="vis_nyhed.asp?id=<%= Record("ID")%>"><%= Record("Overskrift")%></a></b></font></td>

vis_nyhed.asp:
<%
Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
    Sql = "SELECT * FROM nyheder Where ID=" & id
Con.Execute(Sql)

Response.Write Record("nyhed")
%>
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:26 #16
igen, hvafor en fejl kommer den med?
Avatar billede hells Nybegynder
02. juli 2002 - 16:26 #17
Og tjek lige at det passer med navnene på felterne i databasen, så du ikke skriver f. eks. OvErskrift om et felt, der hedder overskrift i databasen
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:28 #18
Den viser denne fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0401)
Slut på sætning var ventet
/vis_nyhed.asp, line 2, column 15
Connection til database
--------------^
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:29 #19
åhem... og linie 2 er...?
Avatar billede hells Nybegynder
02. juli 2002 - 16:30 #20
Der mangler et ' foran, der gør det til en kommentar
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:31 #21
Connection til database
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:31 #22
<< hells , ÆHEM ...

er dette:

vis_nyhed.asp:
<%
Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
    Sql = "SELECT * FROM nyheder Where ID=" & id
Con.Execute(Sql)

Response.Write Record("nyhed")
%>

ikke akkurat det samme som jeg skrev her:

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

strQS = request.querystring("id")

    Sql = "SELECT * FROM nyheder where id = strQS"
    Set Record =  Con.Execute(Sql)


Response.write Record("nyhed")

%>


...???
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:32 #23
Igen en fejl:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typerne passer ikke sammen: 'Record'
/vis_nyhed.asp, line 12
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:32 #24
... jep der mangler en ' , eller bare slet linien...
Avatar billede hells Nybegynder
02. juli 2002 - 16:34 #25
musicchart > Næsten, men der er ikke en stor forskel heller fra det jeg skrev først:
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, sorterer dem efter dato
    Sql = "SELECT * FROM nyheder ORDER BY Dato DESC Where overskrift='" & Request.QueryStrin("overskrift") & "'"
    Set Record =  Con.Execute(Sql)

Response.Write Record("nyhed")

Forskellen er at der bruges id
Avatar billede hells Nybegynder
02. juli 2002 - 16:35 #26
forcedesigner > manlger Set Record foran Con.Execute(Sql):
Set Record = Con.Execute(Sql)
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:38 #27
Kom nu venner har i ikke en løsning der virker? point til den der kommer først :-)
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:39 #28
hvordan ser din adresse linie ud?
Avatar billede forcedesigner Nybegynder
02. juli 2002 - 16:41 #29
Yeess, det virker, point til Hells, han kom først med den rigtige løsning. TAK hells
Avatar billede musicchart.dk Nybegynder
02. juli 2002 - 16:42 #30
har du prøvet med:

<%
Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

id = Request.QueryString("id")
' Her hiver vi indholdet af databasen ud, som klienten har valgt:
    Sql = "SELECT * FROM nyheder Where ID= & id"
Set Record = Con.Execute(Sql)

Response.Write Record("nyhed")
%>
Avatar billede hells Nybegynder
02. juli 2002 - 16:42 #31
var så lidt
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester