Forum

ASP ερώτηση για HTML outpout μιας εικόνας - Από {PanosTheo}

Έχω μία υπερσύνδεση 'yachts.asp?yacht=kolossos&builter=beneteau' που αντιστοιχεί στη σελίδα όπως
φαίνεται , yachts.asp .Στη σελίδα yachts.asp έχω συμπεριλάβει ένα αρχέιο()
με τη όλη την επεξεργασία των δεδομένων που χρειάζομαι.Το πρόβλημα που αντιμετωπίζω είναι ότι δυσκολέυομαι να
περάσω την εικόνα ώστε να εμφανισθεί στη σελίδα yachts.asp Όποια πρόταση , βοήθεια καλοδεχούμενη , παρακαλώ τεκμηριωμένη.
Ευχαριστώ εκ των προτέρων για το χρόνο σας.


Ακολουθεί ο κώδικας του include αρχείου :
<%
'Αρχή τμήματος δηλώσεων μεταβλητών και πινάκων

Dim yacht,builter,strMessage,builterwebpage,yachtsimagefolder,yachtfolder
Dim specif(13)
'Τέλος τμήματος δηλώσεων .
'--------------------------------------
'Κυρίως κώδικας

'yacht = Request.QueryString("yacht")
'Η τοποθεσία που βρίσκεται η εικόνα που θέλω να εμφανίσω
'images/source/other/webpages/yachts.asp/kolossos/layout/100w/Kolossos.jpg
'Εδώ έχω δοκιμάσει να περάσω την τοποθεσία σε μία μεταβλητή και πιο κάτω σε ένα στοιχείο πίνακα

'1.και 2. Δοκίμασα να περάσω μόνο το περιεχόμενο της μεταβλητής με την τοποθεσία της εικόνας στην
'ιδιότητα src της ετικέτας img
'1.yachtfolder = "images/source/other/webpages/yachts.asp/kolossos/layout/100w/Kolossos.jpg"
'2.yachtsimagefolder = "images/source/other/webpages/yachts.asp/" & yacht & "layout/100w/"
'2.yachtfolder = yachtsimagefolder & "Kolossos.jpg"
'παρακάτω σαν στοιχείο του πίνακα έχω εκχωρήσει ολόκληρη την ετικέτα .
'Εδώ παίρνω το περιεχόμενο κλειδιού builter
builter = Request.QueryString("builter")
'Ελέγχω το περιεχόμενο και ανάλογα περνάω στη μεταβλητή την ετικέτα η οποία δουλέυει κανονικά.
Select Case builter
Case "beneteau"
builterwebpage = "http://www.beneteau.com"
Case "jeanneau"
builterwebpage = "http://www.jeanneau.com"
Case Else
builterwebpage = "http://plymouthmarine.com"
End Select

'συνεχίζοντας κάνω το ίδιο πράγμα και με τα στοιχεία του πίνακα .Τα περιεχόμενα τους εμφανίζονται
'κανονικά εκτός φυσικά του στοιχείου specif(12) που περιέχει την ετικέτα με την τοποθεσία.
Select Case yacht
Case "kolossos"
strMessage = "Oceanis 461 Clipper- Kolossos"
specif(0) = "14.15 m"
specif(1) = "4.25 m"
specif(2) = "1.75"
specif(3) = "9.500 kg"
specif(4) = "550 l"
specif(5) = "200 l"
specif(6) = "2"
specif(7) = "4"
specif(8) = "0"
specif(9) = "2"
specif(10) = "8"
specif(11) = "2"
specif(12) = ""

End Select
Response.Flush()
%>