Hvordan udskrives foto fra mappe et niveau over aktuel fil?
HejDet er lidt et underligt problem jeg har - så jeg ved slet ikke om det kan lade sig gøre...
Jeg har en mappe der hedder [shop] her i ligger mapperne [db], [foto], [admin] og nogle filer. Jeg har lavet et administrationssystem (ligger i mappen [admin]) hvor man kan ændre på de informationer/poster som ligger i min database (ligger i mappen [db]).
Nu er mit problem så at jeg har lavet systemet så man kan tilføje et foto (stien gemmes i databasen og filen gemmes i mappen [foto]) hvilket fungerer godt nok - så har jeg lavet sådan at man kan ændre et at de allerede eksisterende fotos, hvilket sådan set også fungerer fint nok. Nu er det så bare lige det at jeg gerne vil have de fotos som findes, skrevet ud i en liste så man kan se hvilket et det er man vil ændre på.
Jeg har lavet en fil som skriver foto ud, men problemet er nu at stien til fotoene ikke er rigtig, da stien bare er den sti som findes i databasen, som bare henviser til mappen [foto] og så filnavnet (fx. foto/hund.jpg).
Stien burde jo være ../foto/hund.jpg når jeg vil hente en fil fra en mappe et niveau højere oppe, men jeg kan ikke lige gennemskue hvordna jeg skal få det skrevet ind i min kode.
Her er koden til den siden som skal udskrive foto
----KODE----
<%
Dim Conn, rs1, kategoriId, DSN, strSQL
%>
<!--#INCLUDE FILE="config.inc"-->
<!--#INCLUDE FILE="level2.inc"-->
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<HTML>
<HEAD>
<TITLE>Tilføj foto</TITLE>
<Link Rel="stylesheet" href="datronic.css" Type="text/css" >
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
margin-left: 4px;
margin-top: 0px;
}
.style1 {color: #FFFFFF}
.style2 {color: #FF0000}
-->
</style></HEAD>
<BODY>
<br>
<%' SQL forespørgsel
kategoriId = Request.form("kategori3")
strSQL = "Select * From foto Where kategoriId =" & kategoriId
' Udfør strSQL (rs1 kommer til at indeholde dataen)
Set rs1 = Conn.Execute(strSQL)
%>
<table width="670" border="0" align="left"><!--Hovedtabel start-->
<tr>
<td height="18" valign="middle" bgcolor="#545DB9"><span class="style1">Tilføj foto til tekst </span></td>
</tr>
<tr><td><br>
I øjeblikket findes følgende billeder i den valgte tekstkategori. Ønsker du at ændre et foto, ændre et link på et foto eller teksten til et foto- klik på en af de tilhørende knapper. <br>
<br>
Ønsker du at oprette et nyt foto - klik her... <br>
<br>
<span class="style2">OBS! Billederne er blevet skaleret ned...
</span><br>
<hr></td>
</tr>
<tr><td>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp?vareID=<%= request.querystring("vareID") %>">
<%
Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='655' align='left'>"'Indholdstabelstart
Do While Not rs1.EOF
Response.Write "<tr><td align='left' valign='top' width='90'>"
Response.Write "Foto"
Response.write "</td><td width='425'>"
Response.Write "<img src=""" & rs1("foto") & """ border='0' width='100' hight='50'><br><br>"
Response.Write "<td valign='top' align='right' width='140'><input type='submit' name='Submit' value='Vælg nyt foto' style='width:120'><td>"
Response.Write "</td></tr>"
Response.Write "<tr bgcolor='d5d7f1'><td width='90'>"
Response.write "Link"
Response.write "</td>"
Response.Write "<td width='425'>" & rs1("link") & "</td>"
Response.Write "<td align='right' width='140'><input type='submit' name='Submit2' value='Ret link' style='width:120'></td></tr>"
Response.Write "<tr><td width='90'>"
Response.write "Foto tekst"
Response.write "</td>"
Response.Write "<td width='425'>" & rs1("fototekst") & "</td>"
Response.write "<td align='right' width='140'><input type='submit' name='Submit3' value='Ret fototekst' style='width:120'></td></tr>"
Response.Write "<tr><td colspan='3'><hr></td></tr>"
' Gå til næste record i rs
rs1.MoveNext
' Gå i loop indtil rs ikke indeholder flere records (= EOF)
Loop
Response.Write "</table><br>"
' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
</FORM>
</td></tr></table>
</BODY>
</HTML>
----KODE SLUT----
Kan der på en eller anden måde tilføjes ../ i denne linie eller skal det laves på en helt anden måde? Response.Write "<img src=""" & rs1("foto") & """ border='0' width='100' hight='50'>
Håber en eller anden kan hjælpe mig (selvom spørgsmålet er lidt indviklet).
/Annette
