Links i DB Con! Hjælp :)

Sådan har jeg... Finder den lige...

<%
str_tekst = \"Og når man bruger Max Payne\'s MaxEd Editor, kan man...\"
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM udbyt\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"udbyt.mdb\")
rs.Open strSQL, strDSN, 1

If NOT rs.EOF then
    Do While Not rs.EOF
   
    str_tekst = Replace(str_tekst, rs(\"URL\"), rs(\"Name\"))
   
    rs.MoveNext
    Loop
Else
Response.Write \"Der var ikke noget at udskifte..!\"
End If

Response.Write str_tekst
%>

Du kan vel selv modificere den så den passer til dit script...

HOV... Så skal du lige bytte om på URL og Name... Så den leder efter navnet og ikke URL...;-)

Jeg vil ikke acceptere svaret helt(selvom det virker MEGET rigtigt :)))) ! Istedet for str_tekst kan du så ikke vælge at hente det fra en record baseret på request.querystring ? Plz help :)

Jo, så kan du jo bare lave en anden connection (SOM IKKE HEDDER rs!!!) Eller putte din querystring ind i str_tekst ...

<%
\'Hvordan skal jeg skrive det for at få en connect til en db ind der?
str_tekst = \"Og når man bruger Max Payne\'s MaxEd Editor, kan man...\"

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM udbyt\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"udbyt.mdb\")
rs.Open strSQL, strDSN, 1

If NOT rs.EOF then
    Do While Not rs.EOF
   
    str_tekst = Replace(str_tekst, rs(\"URL\"), rs(\"Name\"))
   
    rs.MoveNext
    Loop
Else
Response.Write \"Der var ikke noget at udskifte..!\"
End If

Response.Write str_tekst
%>

SPM 2 > Spørgsmålet står i toppen!

<%
\'Sådan her:
Set objrs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM dintabel\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"dindatabase.mdb\")
objrs.Open strSQL, strDSN, 1

str_tekst = objrs(\"dintekst\")

objrs.Close
set objrs = Nothing

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
        strSQL = \"SELECT * FROM udbyt\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"udbyt.mdb\")
rs.Open strSQL, strDSN, 1

If NOT rs.EOF then
    Do While Not rs.EOF
   
    str_tekst = Replace(str_tekst, rs(\"URL\"), rs(\"Name\"))
   
    rs.MoveNext
    Loop
Else
Response.Write \"Der var ikke noget at udskifte..!\"
End If

rs.Close
Set rs = Nothing

Response.Write str_tekst
\'Husk at rette til dindatabase.mdb til din database!
\'Husk at rette til dintabel til din tabel i din database!
%>

Sorry Casper, tror lige jeg skrev et forkert spm :))))

Mit SPm var > Hvordan den (med request.querystring) kunne vælge teksten i Querystringen og udskifte ! sorry for besværet :)

Gør ikke noget... Så skriver du bare

str_tekst = Request.QueryString(\"name\")

Er det sådan?!? Så du kan skrive udskift.asp?name=Den+string+der+skal+udskiftes+!!

Det burde virke.. men når jeg (3 gang :)) connector til min DB, så siger den at der er fejl her:

strSQL = \"Select * from Articles WHERE ID = Request.Querystring(id)\"

Den ville ikke godtage
strSQL = \"Select * from Articles WHERE ID = Request.Querystring(\"id\")\"

¨å jeg ændrede det! somehow virker samme kode andetsteds... du får 50 point ekstra hvis du svarer på det også!

strSQL = \"Select * from Articles WHERE ID = \" & Request.Querystring(\"id\")

Hvorfor spurgte du om det?!?

Well... forge it, virker det får du point :)

Arrrgh... i cant make it virke..

Men du får point alligevel!

men her er dine point alligevel!

OK!

Thx!

np