Hejsa alle sammen!
Jeg har siddet og bikset med hvordan man får et link vist i databasen, som
evt. henviser til et billede...
ASP-koden er herunder (undskyld at jeg har cut'n'pastet det hele)... jeg
bliver meget glad hvis der er en venlig sjæl, som bil hjælpe/komme med et
stykke kode, som bare lige kan sættes ind (+ en forklaring af hvad der
sker).
Jeg har forestillet mig noget lignende : At henvise til en kolonne i
databasen, hvor man f.x. skriver 'billede.jpg', og så kan lave et link i
samme række som henviser til billedet... noget lignende :
<a href="showimg.asp?id=<%= RS("Billede")%>">Klik her for at få vist
billede</a>
....men hvordan det skal sættes ind i nedenstående kode, er jeg ikke klar
over....
Mvh. Allan Johansen
<%
Dim sRowColor
Dim objDB
Dim objRS
Dim sDBName
'TODO: Verify database path...
Set objDB = Server.CreateObject("ADODB.Connection")
sDBName = "driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("biler.mdb")
objDB.Open sDBName
'TODO: Modify the next line to only return the records you want...
Set objRS = objDB.Execute("select * from Biler ORDER BY Pris DESC")
If objRS.EOF Then
Response.Write("<b>No matching records found.</b>")
objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing
Response.End
End If
Response.Write("<table border=1 cellpadding=2 cellspacing=2>")
Response.Write("<tr bgcolor=silver>")
'COOL TIP: the <filter> tag is used by Excel 97 and later...
'if your users save this file from the browser and open it in XL, XL will
'parse all the table cells into XL ranges and turn on filtering...
Response.Write("<th filter=ALL>Årgang</th>")
Response.Write("<th filter=ALL>Mærke/model</th>")
Response.Write("<th filter=ALL>Specifikationer</th>")
Response.Write("<th filter=ALL>Km-stand</th>")
Response.Write("<th filter=ALL>Pris</th>")
'Response.Write("<th filter=ALL>Opdateringsdato</th>")
Response.Write("</tr>")
sRowColor = "lightblue"
Do While Not objRS.EOF
Response.Write("<tr bgcolor=" & sRowColor & ">")
Response.Write("<td>" & objRS("Årgang") & "</td>")
Response.Write("<td>" & objRS("Mærke/model") & "</td>")
Response.Write("<td>" & objRS("Specifikationer") & "</td>")
Response.Write("<td>" & objRS("Km-stand") & "</td>")
Response.Write("<td>" & objRS("Pris") & "</td>")
' Response.Write("<td>" & objRS("Opdateringsdato") & "</td>")
Response.Write("</tr>")
objRS.MoveNext
Loop
Response.Write("</table>")
objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing
%>