Begynder-spørgsmål, som har frustreret mig i et par dage efterhånden:
Hvordan viser jeg billeder i ASP med Access 2k ? Har en folder med
billederne og et db-felt til stien. Alligevel får jeg kun vist røde krydser
på min ASP side.... Hvis nogen gider at kigge nedenstående kode igennem, og
fortælle mig hvad jeg gør galt, vil jeg være meget taknemmelig.
På forhånd tak
KODE:
<!--#include file="../db/connect.asp" -->
<html>
<head>
<title>Holdinfo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'variables
dim Conn, Connstring, Sql_Get, TheArray, Recordset
'database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = provider
Conn.ConnectionString = dbasepath
Conn.Open
' Sql statement
Sql_Get="SELECT * FROM tblHoldinfo WHERE Hold='"
&request.querystring("Hold") & "'"
Set Recordset = Conn.Execute(Sql_Get)
' get the recordset data in memory using getrows()
TheArray = RecordSet.Getrows
' Cleanup objects
Conn.Close
Set Conn = Nothing
Set RecordSet = Nothing
%>
<%
' start an HTML table to contain the results.
Response.write "<center><table border=1 width=500 cellpadding=3>"
' start the loop
For x = 0 to UBound(TheArray,2)
'format & write out the results
Response.write "<TR><TD>"
Response.Write "<b>HoldID:</b> " & TheArray(0,x) & "<br>"
Response.Write "<b>Overskrift1:</b> " & TheArray(1,x) & "<br>"
Response.Write "<b>Overskrift2:</b> " & TheArray(2,x) & "<br>"
Response.Write "<b>Træner1 navn:</b> " & TheArray(3,x) & "<br>"
Response.Write "<b>Træner1 tlf:</b> " & TheArray(4,x) & "<br>"
Response.Write "<b>Træner1 mobil:</b> " & TheArray(5,x) & "<br>"
Response.Write "<b>Træner1 email:</b> " & TheArray(6,x) & "<br>"
Response.Write "<b>Træner2 navn:</b> " & TheArray(7,x) & "<br>"
Response.Write "<b>Træner2 tlf:</b> " & TheArray(8,x) & "<br>"
Response.Write "<b>Træner2 mobil:</b> " & TheArray(9,x) & "<br>"
Response.Write "<b>Træner2 email:</b> " & TheArray(10,x) & "<br>"
Response.Write "<b>Tid1:</b> " & TheArray(11,x) & "<br>"
Response.Write "<b>Tid2:</b> " & TheArray(12,x) & "<br>"
Response.Write "<b>Række 1hold:</b> " & TheArray(13,x) & "<br>"
Response.Write "<b>Række 2hold:</b> " & TheArray(14,x) & "<br>"
Response.Write "<b>Fritekst:</b> " & TheArray(15,x) & "<br>"
Response.Write ("<img src=images/" & pic1 & " border=0>")
Response.Write ("<img src=images/" & pic2 & " border=0>")
Response.Write "</TD></TR>"
' move to the next position
Next
' close the html table
Response.write "</TABLE></center>"
%>
</body>
</html>