Scripting :: Θέματα
Πρώτη :: Προηγούμενη :: Επόμενη :: Τελευταία Σελίδα 72 από 150
|
|
|
Ψαχνω βρε παιδια ενα προγραμα καλο και απλο για να διαχειριζομαι Banners. Θελω απλα να βαζω 2 3 (κωδικες) και να βγαζει καθε φορα ενα διαφορερικο στο ιδιο σημειο.
Από:
infosyst - 9/5/2003
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
|
|
|
Έκανα τις αλλαγές στον internet explorer και τώρα εμφανίζεται το μήνυμα :
Server Application Error
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance.
Στο event viewer βλέπω τα εξής (μάλλον σχετικά) μηνύματα:
1ο Μήνυμα
cl propagation encountered errors on the following file system directories:
C:\Inetpub\wwwroot\_vti_bin The DACL was protected.
C:\Inetpub\wwwroot\_vti_bin\_vti_adm The DACL was protected.
C:\Inetpub\wwwroot\_vti_bin\_vti_aut The DACL was protected.
C:\Inetpub\wwwroot\_vti_cnf The DACL was protected.
Προσθέτω τον EVERYONE όπου δεν υπήρχε σ'αυτούς τους φακέλους, δίνω full δικαιώματα αλλά και πάλι τίποτα.
2ο Μήνυμα
CI has started for catalog d:\inetpub\catalog.wci.
Τι είναι τα DACL και CI;
Από:
vag2003 - 8/5/2003
1 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
|
|
|
Ο server είναι WinNT 4.0 Το πρόβλημα είναι ότι δεν εμφανίζονται οι asp σελίδες στον explorer. Η σελίδα βρίσκεται στο wwwroot, το asp.dll υπάρχει στο δίσκο αλλά όταν προσπαθείς να ανοίξεις μια asp από αυτό το φάκελο εμφανίζεται το μήνυμα
HTTP 500 - Εσωτερικό σφάλμα διακομιστή
Internet Explorer
Τι μπορεί να φταίει?
Ευχαριστώ
Από:
vag2003 - 6/5/2003
2 απαντήσεις | Σχολίασε | Ψήφισε η καταχώρησε σε δίκτυο social news
|
|
|
|
o kodikas mou eina:<%
h1 = TRIM(Request.Form("h1"))
onoma =TRIM(Request.Form("onoma"))
epwnymo =TRIM(Request.Form("epwnymo"))
idiothta =TRIM(Request.Form("idiothta"))
thlefwno =TRIM(Request.Form("thlefwno"))
fax =TRIM(Request.Form("fax"))
email =TRIM(Request.Form("email"))
mathimata =TRIM(Request.Form("mathimata"))
syntomo_viografiko=TRIM(Request.Form("syntomo_viografiko"))
plires_viografiko=TRIM(Request.Form("plires_viografiko"))
dhmosieyseis=TRIM(Request.Form("dhmosieyseis"))
ereynitikh_drastiriothta=TRIM(Request.Form("ereynitikh_drastiriothta"))
alla_endiaferonta=TRIM(Request.Form("alla_endiaferonta"))
'Assign Default Values
IF onoma="" THEN
onoma="?????"
END IF
IF epwnymo="" THEN
epwnymo="?????"
END IF
IF idiothta="" THEN
idiothta="?????"
END IF
IF thlefwno="" THEN
thlefwno="?????"
END IF
IF fax="" THEN
fax="?????"
END IF
IF email="" THEN
email="?????"
END IF
IF mathimata="" THEN
mathimata="?????"
END IF
IF syntomo_viografiko="" THEN
syntomo_viografiko="?????"
END IF
IF plires_viografiko="" THEN
plires_viografiko="?????"
END IF
IF dhmosieyseis="" THEN
dhmosieyseis="?????"
END IF
IF ereynitikh_drastiriothta="" THEN
ereynitikh_drastiriothta="?????"
END IF
IF alla_endiaferonta="" THEN
alla_endiaferonta="?????"
END IF
'Open Database Connection
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "FILEDSN=c:\dsn\tei.dsn"
%>
MANAGE
<%
'FUNCTION fixQuotes( sqlString)
' fixQuotes=REPLACE( sqlString," ' "," '' ")
'END FUNCTION
%>
<%
'Add New
sql="update table1 set onoma='" & onoma &"',"
sql = sql & "epwnymo='" & epwnymo & "',"
sql = sql & "idiothta='" & idiothta & "',"
sql = sql & "thlefwno='" & thlefwno &"',"
sql = sql & "fax='" & fax &"',"
sql = sql & "email='" & email &"',"
sql = sql & "mathimata='" & mathimata & "',"
sql = sql & "syntomo_viografiko='" & syntomo_viografiko & "',"
sql = sql & "plires_viografiko='" & plires_viografiko & "', "
sql = sql & "dhmosieyseis='" & dhmosieyseis & "' "
sql = sql & "ereynitikh_drastiriothta='" & ereynitikh_drastiriothta & "', "
sql = sql & "alla_endiaferonta='" &alla_endiaferonta & "', "
sql = sql & "where ID = " & h1
Set rs = Con.Execute (mySql)
%>
update
|
Σχετικα με Banners