25 settembre 2003 alle 22:22:02 Nelle istruzioni c'è scritto:
ii)mercatino-inc.asp in <include>
* Inserire analogamente a quanto descritto per il file utility.asp il percorso fisico StrPath e quello virtuale StrPathShort * cercare SUB DoActionMercatino() e all'interno di questa Case "add". Se non siete su Aruba dovrete modificare il percorso fisico per i due file fileold e filenew: fileold = "d:inetpubwebsxxxxxxxxxxxxyyypublicmercatino" &NomeFileOld filenew = "d:inetpubwebsxxxxxxxxxxxxyyypublicmercatino" &NomeFile per esempio su Natan diventerà: fileold="c:hostingXXXXXXXXwwwrootpublicmercatino"&NomeFileOld filenew = c:hostingXXXXXXXXwwwrootpublicmercatino"&NomeFile
Ma nel file mercatino-inc.asp sia di admin che non, non c'è nulla che assomigli StrPath e StrPathShort!!!
Cosa devo settare in mercatino-inc.asp?
diarma Principiante
14 Discussioni
04 aprile 2004 alle 03:20:27 e soprattutto cosa significa << cercare SUB DoActionMercatino() e all'interno di questa Case "add". >>
04 aprile 2004 alle 21:20:38 mi sembra semplice, edita il file mercatino-inc.asp e, fai scorrere il testo inserito fino quasi in fondo alla pagina, troverai questa SUB: Sub DoActionMercatino() Dim isMessage
If request("isMessage") = "" then isMessage = "0" Else isMessage = "1" End If -------> segue programma--------> scendi ancora di qualche riga e, troverai questo: Set oFS = Server.CreateObject("Scripting.FileSystemObject") fileold = "d:inetpubwebsxxxxxxxxxxxxyyypublicmercatino" &NomeFileOld filenew = "d:inetpubwebsxxxxxxxxxxxxyyypublicmercatino" &NomeFile oFS.MoveFile fileold, filenew qui, devi inserire le stesse modifiche effettuate nel file utility.asp. Ciauzz DJ
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
05 aprile 2004 alle 01:32:16 Modificato il 05 aprile 2004 alle 01:34:01va bene cosi?
Sub DoActionMercatino() Dim isMessage
If request("isMessage") = "" then isMessage = "0" Else isMessage = "1" End If
Select Case Request("Action") Case "add" : Dim catIDtemp, oCnadd, oFS, fileold, filenew, rSQLadd, oRsadd, numero, ext, NomeFile, NomeFileOld, NomeFileDef, OrigFile, formula, risultato
catIDtemp = Request("catID") If Request("immagine") = "" then NomeFileDef = "" Else Set oCnadd = DBConnexion(DB_MERCATINO) rSQLadd = "SELECT top 1 id FROM mercatino_annuncio ORDER BY id DESC" Set oRsadd = DBRecordSet (oCnadd, rSQLadd) If oRsadd.BOF AND oRsadd.EOF then numero = 0 Else numero = oRsadd("id") End if formula = "risultato = 1+" &numero Execute(formula) numero = risultato ext = RIGHT(Request("immagine"),4) NomeFileOld = Request("immagine") NomeFile = "mercat" & numero & ext Set oFS = Server.CreateObject("Scripting.FileSystemObject") fileold = "d:inetpubwebs omesitopublicmercatino" &NomeFileOld filenew = "d:inetpubwebs omesitopublicmercatino" &NomeFile oFS.MoveFile fileold, filenew NomeFileDef = "/public/mercatino/" &NomeFile End if
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,1796875 secondi.
MODULI AGGIUNTIVI
Mercatino installazione HELP
25 settembre 2003 alle 22:22:02 
04 aprile 2004 alle 03:20:27 
