Hej jag visar innehållet i en växtdatabas där endast växtens namn finns med
Nu vill jag kunna klicka på namnet och visa en sida med allt som är lagrat i databasen om denna växten.

Hur gör jag enklsat då

Här är det jag visar
<%
sDSN = "DBQ=" & Server.MapPath("..\xx\vaxt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set RS = Server.CreateObject("ADODB.Recordset")
sSQL = "select Namn from vaxter"
RS.open sSQL, sDSN
If Not RS.Eof then
Do until RS.EOF
response.write RS("Namn") & vbcrlf
RS.MoveNext
Loop
End if
%>

Nu vet inte jag hur tabellen i databasen är uppbyggd men så här kan du göra.


<code>
<%
'listar växterna

sDSN = "DBQ=" & Server.MapPath("..\xx\vaxt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set RS = Server.CreateObject("ADODB.Recordset")
sSQL = "select ID, Namn from vaxter"
RS.open sSQL, sDSN
If Not RS.Eof then
Do until RS.EOF
response.write ""RS("Namn") &""& vbcrlf
RS.MoveNext
Loop
End if
%>
</code>
Du måste alltstå skapa länktagg med referens till ny sida med ett ID - som gör att man kommer åt specifik information.


Sen får du skapa ny sida som heter t ex plantinfo.asp där du sedan visar växtinformationen

<%
'listar växterna

sDSN = "DBQ=" & Server.MapPath("..\xx\vaxt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set RS = Server.CreateObject("ADODB.Recordset")
sSQL = "select ID, Namn, Info from vaxter WHERE ID="&request.querystring("ID")
RS.open sSQL, sDSN
If Not RS.Eof then
response.write RS("Namn") & vbcrlf
response.write RS("Info ") & vbcrlf

End if
%>
</code>
Du får ändra i koden för att definiera rätt fältnamn samt grejja med CSS, men det är väl inga problem?!

Jonas

Hej Jag får följande felmeddelande

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/blommor.asp, line 30

response.write ""RS("Namn") &""& vbcrlf
-----------------------------------------------------------^

Mitt fel...
response.write ""&RS("Namn") &""& vbcrlf

Glömde ett & tecken före RS("Namn")