"Finn Hansen" <fhansen@bigfoot.com> wrote in message
news:b9sv0f$35k$1@sunsite.dk...
>
> Hej!
>
> Jeg har problemer med at udtrække billeder fra database til asp
> fil.
>
> Problemet omhandler 2 asp filer henholdvis vareg.asp og
> vis_vare.asp. Filen vareg.asp opretter varegrupperne i tabellen
> tblVaregrupper. Filen vis_vare.asp udtrækker varene tilhørende
> den pågældende varegruppe. Mit spørgsmål går på hvorledes jeg kan
> udtrække et varegruppe billede tilhørende den pågældende
> varegruppe, således at billedet bliver vist med
> varegruppeudtrækket.
Hej Finn
Har du dine billeder liggende som Ole object eller et hyberlink...hvis du
har det som hyberlink, havde jeg det sammen problem.. fordi jeg havde min
database i en anden mappe en den mappe hvor asp-siderne ligger i, den måde
jeg løste problemet på, var ved at ligge et billede i begge mapperne, så
forsvant det røde kryds...underligt, men det virkede....
men jeg tror det ville være nemmere at have database og asp-filerne i sammen
mappe, så burde der jo kun være et billede, da det er sammme mappe.......
Håber det hjælper dig....?
Hvis det er et OLE Object, så lav det om til hyberlink, da det gør din
database langsommere....
hilsen henrik
>
> For at teste har jeg oprette et felt i tabellen vare med
> feltnavn: "billede" i tekstformat. I postfeldt skriver jeg
> Billedefil navnet " universal.jpg "
> og har gemt billedefilen i mappen db. på serveren. når jeg
> skriver følgende kode : <img src="<%= rs("billede") %>"> kommer
> der kun
> billedemærke med rødt kryds. Er der npget galt med stien?
>
> Jeg håber der er nogen der kan hjælpe, da jer er gået lidt i stå.
>
> Se nedestående asp. filer.
>
>
>
>
>
> Vareg.asp til udtrækning af varegrupper.
> _________________________________________________________
>
> <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
> <% ' Rettet 04-03-2003
> Option Explicit
> Response.Expires = 0
> Dim Conn, rs
> Dim strKriterie, strQuery %>
> <!-- Forbindelse til database -->
> <%
> set conn = server.createobject("ADODB.Connection")
> Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> server.mappath("../db/butik.mdb")
>
>
> ' Vis alle varegrupper undtagen "Ukendt"
> strQuery = "SELECT * FROM tblVaregruppe WHERE Varegruppeid > 1
> ORDER BY navn;"
> 'response.write strQuery & "<br>"
> set rs = Conn.Execute (strQuery)
> %>
> <html>
> <head>
> <!-- Minus AutoDato -->
> <title>Vælg varegruppe</title>
>
> <META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
> <LINK REL="stylesheet" HREF="test.css" TYPE="text/css">
>
> </head>
> <body>
> <form name="form1" method="post" action="">
> <table width="100%" border="0">
> <tr>
>
> <a href="butik.asp">Tilbage</a></td>
> <td width="49%"> </td>
> <td width="31%"> </td>
> </tr>
> <tr>
> <td> </td>
> <td><div align="left"><strong>Varegrupper
> </strong></div></td>
> <td> </td>
> </tr>
> <tr>
> <% ' Skriv varegrupper på siden
> rs.movefirst
> do until rs.EOF
> response.write "<td> </td><td><a
> href=vis-vare.asp?Varegruppeid=" & rs("Varegruppeid") & ">" &
> rs("navn") & "<a></td><td> </td></tr>"
> rs.MoveNext
> loop
> rs.close
> set rs = nothing
> %>
>
> </body>
> </html>
>
>
>
> ________________________________________________________
> Ny Fil:
>
> vis-vare.Asp fil til udtræk af data fra tabellen vare opdelt i
> varegrupper.
> ___________________________________________________________
>
> <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
> <% ' Rettet 04-03-2003
> Option Explicit
> Response.Expires = 0
> Dim Conn, rs
> Dim strKriterie, strQuery
> Dim intVaregruppeid
>
> Set rs = Server.CreateObject("ADODB.Recordset")
> ' Hent Varegruppeid. Hvis der ikke overføres en Varegruppeid
> ' i URL'en sættes Varegruppeid til 1
> if Len(Trim(Request.querystring("Varegruppeid"))) > 0 then
> intVaregruppeid = Trim(Request.querystring("Varegruppeid"))
> else
> intVaregruppeid = 1
> end if %>
>
> <%
> set conn = server.createobject("ADODB.Connection")
> Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &
> server.mappath("../db/butik.mdb")
> %>
>
> <% ' Vælg alle varer fra den valgte varegruppe
> strQuery = "SELECT * FROM vare WHERE Varegruppeid = " &
> intVaregruppeid & " "
> strQuery = strQuery & "ORDER BY navn;"
> 'response.write strQuery & "<br>"
> set rs = Conn.Execute (strQuery) %>
>
> <html>
> <head>
> <!-- Minus AutoDato -->
> <title>Vælg vare</title>
> <META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
>
> <LINK REL="stylesheet" HREF="test.css" TYPE="text/css">
>
> </head>
> <body>
>
> <img src="<%= rs("billede") %>">
>
> <BR><BR>
>
> <p><form name="form1" method="post" action="vis-vare.asp">
>
> <table border="1" width="80%" align="center"><tr><td
> width="10%">Varenr:<td width="70%">Beskrivelse:<td
> width="10%">Pris:
> <td width="10%">Læg i kurv:</td>
>
>
> </table>
>
> <% ' Vis varerne fra den valgte varegruppe
> rs.movefirst
> do until rs.EOF
>
> response.write "<table border='1'width='80%'
> align='center'><Tr><td width='10%'>" & rs("navn") & "<td
> width='70%'>" & rs("beskrivelse") & "<td width='10%'>" &
> rs("pris") & "<td><a href='vis-kurv.asp?mode=insert&varenr=" &
> rs("vareid") & "'>Køb</a></table>"
>
> rs.MoveNext
> loop
> rs.close
> set rs = nothing
> %>
> </table>
> </form>
> <%
> Conn.Close
> Set Conn=Nothing
> %>
>
>
>
> </body>
> </html>
>
> --
> Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
> - Pædagogiske tutorials på dansk
> - Kom godt i gang med koderne
> KLIK HER! =>
http://www.html.dk/tutorials