Link fra database

Du kan gøre noget i retningen af:

<% @LANGUAGE = VBScript %>
<%

    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("din_database.mdb")

    SQL = "SELECT url FROM link WHERE id = " & Request.QueryString("id") & " "
    Set rs = conn.Execute(SQL)

    If Not rs.EOF OR rs.BOF Then
        Response.Redirect(""& rs("url") &"")
    Else
        Response.Write("Der findes ingen post med dette id i databasen")
    End If
    rs.close
    conn.close
    Set rs = Nothing
    Set conn = Nothing

%>

Det er ikke testet.

Ja noget i den retning.

Men det skal være sådan her:

<a href="link til ID 3 hvor URL er www.eksperten.dk">Eksperten</a>

og nedenunder skal der være et link mere

<a href="link til ID 3 hvor URL er www.jubii.dk">Jubii</a>

osv.

//BinauHus

Kan du ikke skrive <a href="redirect.asp?id=3">Eksperten</a>

Hvad skal der så stå på redirect.asp...?

//BinauHus

Følgende skal du have i redirect.asp:

<% @LANGUAGE = VBScript %>
<%

    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("din_database.mdb")

    SQL = "SELECT url FROM link WHERE id = " & Request.QueryString("id") & " "
    Set rs = conn.Execute(SQL)

    If Not rs.EOF OR rs.BOF Then
        Response.Redirect(""& rs("url") &"")
    Else
        Response.Write("Der findes ingen post med dette id i databasen")
    End If
    rs.close
    conn.close
    Set rs = Nothing
    Set conn = Nothing

%>

ok, jeg prøver lige om det virker...

//BinauHus

Jeg får denne fejl i linksiden:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/800/links/links.asp, line 12

SQL = "SELECT * FROM link WHERE links LIKE '%" & strStreng & "%'
----------------------------------------------------------------^


//BinauHus

Prøv dette: SQL = "SELECT * FROM link WHERE links LIKE '%" & strStreng & "%'"

Nu får jeg denne fejl:

Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/800/links/links.asp, line 15

I linje 15 står der:

Do While Not rs.EOF

//BinauHus

Jeg kan ikke hjælpe dig med fejl i din egen kode, hvis jeg ikke ser koden.

Prøv at se kildekoden på denne side:

www.tphu-bif.dk/link.txt

Det link jeg afprøve på er det første hvor der står ØBTU...

//BinauHus

Hvad bruger du følgende til??

<%
strStreng = Request.QueryString("streng")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.Mappath("links.mdb") & ";" & "Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM link WHERE links LIKE '%" & strStreng & "%'"
Set rs = Server.Createobject("ADODB.Recordset")
rs.Open SQL, Conn, 3, 1
Do While Not rs.EOF
%>

Det er jo klart der kommer en fejl, du start et loop men afslutter det ikke.

Hvad er der da galt???

Kan du rette det

//BinauHus

<%
strStreng = Request.QueryString("streng")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ=" & Server.Mappath("links.mdb") & ";" & "Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM link WHERE links LIKE '%" & strStreng & "%'"
Set rs = Server.Createobject("ADODB.Recordset")
rs.Open SQL, Conn, 3, 1
Do While Not rs.EOF
%>

Ovenstående kode står indenfor head-taggen i dit dokument, det bruges tilsynelandende ikke til noget. Hvorfor står det kode der??

Hvor skal det da placeres??

//BinauHus

Hvad bruger du koden til??????

Skal den ikke bruges til at kontakte databasen...?

Undskyld mig men jeg er ikke den store indefor asp

//BinauHus

Det bruges til at connecte til databasen. Intet sted i din fil hentes noget ud af databasen, derfor kan du jo sådan set godt slette det.

Den skal jo hente det der står i URL feltet ved ID 3...?

//BinauHus

Desværre kan jeg ikke af se mere tid til at hjælpe dig.

... For at snakke om noget helt andet, er det Nørreå's gamle side I linker til, den "nye" er http://www.norrea-bordtennis.dk og is made by me *G*

Tak for den nye adresse. Jeg retter det når jeg lige foår tid...

//BinauHus

Jeg har lavet linket til Nørreå om nu, så det skulle virke.

//BinauHus