Enkel visning av db

Det er nok med 2 sider. Prøv dette:

titel.asp:
-----------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select songname from tbllyrics order by songname\")

while not(rs.eof)
  %>
  <a href=\"showLyric.asp?song=<%=rs(\"songname\") %>\"><%=rs(\"Songname\") %></a>
  <br>
  <%
  rs.movenext
wend
rs.close
conn.close
%>

showLyric.asp
----------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select lyrics from tbllyrics where songname=\'<%=request(\"song\")%>\'\")

response.write
rs(\"lyrics\")

rs.close
conn.close
%>

på www.html.dk på du finde en enkel tutorial om emnet

STIG3 eller noen andre:

I koden ovenfor er det en feil:
set rs = conn.execute(\"select lyrics from tbllyrics where songname=\'<%=request(\"song\")%>\'\")
response.write
rs(\"lyrics\")

Den lille %> som kommer etter request(\"song\") avslutter asp-delen av koden, og alt etter denne blir skrevet ut som vanlig tekst på websiden (iallefall i Dreamweaver4...-det ville vel blitt en feilmelding i browseren). Hva kan jeg gjøre for å unngå dette?

KnutB.

hovsa.

Sådan her:

showLyric.asp
----------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select lyrics from tbllyrics where songname=\'\" & request(\"song\") & \"\'\")

response.write
rs(\"lyrics\")

rs.close
conn.close
%>

prøver en gang til:

set rs = conn.execute(\"select lyrics from tbllyrics where songname=\'\" & request(\"song\") & \"\')\"

aaargh
09:27:17

var god nok.........

Nå maser jeg fælt...:-)
Med den nye koden 09:27:17, får jeg følgende feilmelding:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e10\'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/webmaster/showlyric.asp, line 12

Klarer ikke å finne ut feilen...
Kan du?

KnutB

Der var kommet et utiltænkt linieskift ind.

showLyric.asp
----------------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select lyrics from tbllyrics where songname=\'\" & request(\"song\") & \"\'\")

response.write rs(\"lyrics\")

rs.close
conn.close
%>

virker det ?

Nei...
Får samme feilmelding denne gang også. Har prøvd mange løsninger nå, men får feil hver gang.
Kan det ha noe med den andre filen å gjøre (\"titel.asp\")? Skulle ikke tro det, men...?

Takk for at du orker å bruke tid på dette...
KnB

Hvilken linie er nummer 12 ?

Prøv:
<%
response.write request(\"song\") & \"<br><br>\"


Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select lyrics from tbllyrics\")

response.write rs(\"lyrics\")

rs.close
conn.close
%>

Linje 12 er set rs-linjen.

Må ut en tur nå, så jeg får fortsette på dette senere i dag.

KnB

Vi laver lidt om i dem begge:

titel.asp:
-----------------------------
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select lyricID, songname from tbllyrics order by songname\")

while not(rs.eof)
  %>
  <a href=\"showLyric.asp?lyricID=<%=rs(\"lyricID\") %>\"><%=rs(\"Songname\") %></a>
  <br>
  <%
  rs.movenext
wend
rs.close
conn.close
%>


showLyric.asp
----------------------------------
<%
lyricID = request.querystring(\"lyricID\")

response.write \"Test lyricID=\" & lyricID & \"<br><br>\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"lyrics.mdb\")

set rs = conn.execute(\"select lyrics from tbllyrics where lyricID=\" & lyricID)

response.write rs(\"lyrics\")

rs.close
conn.close
%>


Er der egentlig noget i tabellerne ?

For ellers læg en sang ind.

Nå funker det!
Takk!
Som et tegn på min evige takknemlighet for din enorme hjelpsomhet, legger jeg 30 points inn med tittelen \"Points til Stig3\". Jeg mener din hjelp er mer verdt enn de 60 pointsene du fikk!

Takk!

Knut b.