geia sas.
exo auto to parakato minima:Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x14bc Thread 0xd90 DBC 0x1412024 Jet'.
/gallery/inc_search_form.asp, line 4
to script pou anaferete sti grammi 4 einai kai ti na allakso:
<%
set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_connDUgallery_STRING
rsCount.Source = "SELECT (SELECT COUNT(*) FROM PICTURES WHERE PIC_APPROVED =1) AS PIC_COUNT, COUNT(*) AS TYPE_COUNT FROM TYPES"
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 3
rsCount.Open()
rsCount_numRows = 0
%>
Υπάρχουν <%=(rsCount.Fields.Item("PIC_COUNT").Value)%>φωτογραφίες στις
<%=(rsCount.Fields.Item("TYPE_COUNT").Value)%> κατηγορίες
Θέλω να φτιάξω ένα δικτυακό τόπο έτσι ώστε σε κάθε σελίδα να εμφανίζονται κάποια στάνταρ links και εικόνες. Επίσης, θέλω να φτιάξω μια σελίδα που θα ανοίγει με κάποια παράμετρο και θα εμφανίζει, εκτός από τα παραπάνω αντικείμενα σε μια προκαθορισμένη θέση, και κείμενο από ένα αρχείο (διαφορετικό κάθε φορά). Πείτε μου αναλυτικά γιατί δεν ξέρω από προγραμματισμό ιστοσελίδων.
Ο κλασικός τρόπος για να φταχνεις list μενου ειναι ο παρακάτω:
<%
For count = 1 to Request.Form("abc").Count
Response.Write("letter= " & Request.Form("abc")(count) & " ")
Next
%>
Με αυτό το τρόπο μπορείς να επιλέξεις πολλά μόνο που απαιτείται να πατάς και το Ctrl.
Τι αλλαγές θα μπορούσαμε να κάνουμε ετσι ώστε να μην απαιτείται να πατάμε το Ctrl για νε επιλέξουμε περισσότερα από ένα?
Ευχαριστώ.
Μπορεί κανένας να μου υποδείξει έναν τρόπο να εισάγω καιρό στο site μου (στα ελλημικά)? Φυσικά, δεν αναφέρομαι σε μορφή εικόνας αλλά σε μορφή κώδικα, xml κτλ.
Παράδειγμα
http://www.sky.gr/modules.php?op=modload&name=MS_Weather&file=index&op=MSWeatherDecode&pcity=
Έχω μία υπερσύνδεση '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) = ""
Scripting :: Θέματα
asp scripting