I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
MEGASOFT
MEGASOFT
il 4 giugno 2002 alle 23:55
13 messaggi dal 04 giugno 2002
NON CI CAPISCO PIU' NIENTE!!! IO DEVO SALVARE L'ORDINE SU UN FILE DI TESTO SUL DISCO LOCALE DI CHI STA NAVIGANDO SUL MIO SITO E POI DEVO INVIARLO COME ALLEGATO AL MIO INDIRIZZO E-MAIL. IL CODICE E' IL SEGUENTE :

<html>
<head>
<title>INVIO ORDINE... - CENTRO COMMERCIALE LE PALME</title>

</head>

<body>
<SCRIPT RUNAT=SERVER LANGUAGE="JavaScript">

Function RIEMPI_DI_SPAZI(STRINGA, NUM_SPA)
Dim LUNGHEZZA
LUNGHEZZA = NUM_SPA - Len(STRINGA)

If LUNGHEZZA < 0 Then
LUNGHEZZA = 0
STRINGA = MID(STRINGA,1,NUM_SPA)
End If
RIEMPI_DI_SPAZI = STRINGA & Space(LUNGHEZZA)
End Function

Function SOSTITUISCI(STRINGA)
Dim TEMP, CAR, I

TEMP = ""

For I = 1 To Len(STRINGA)

CAR = Mid(STRINGA, I, 1)

If CAR = "." Then
TEMP = TEMP & ","
Else
TEMP = TEMP & CAR
End If

Next

SOSTITUISCI = TEMP

End Function


</SCRIPT>

<SCRIPT RUNAT=SERVER LANGUAGE="JavaScript">
Dim OGGFILE, ORIGINE, OGGTEXTSTREAM, QUANT, COD,PRZ,LIS,PxC

ORIGINE= "C:\COMMISSIONE.TXT")

SET FSO = Server.CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
FSO.CREATETEXTFILE (ORIGINE)
SET OGGFILE = FSO.GETFILE(ORIGINE)
SET OGGTEXTSTREAM = OGGFILE.OPENASTEXTSTREAM(2)
QUANT = SPLIT(REQUEST("QUANTITA"),",")
COD = SPLIT(REQUEST("CODICE_ARTICOLO"),",")
PRZ = SPLIT(REQUEST("PREZZO"),",")
LIS = SPLIT(REQUEST("LISTINO"),",")
PxC = SPLIT(REQUEST("PZxCF"),",")

FOR CONT = 0 TO UBOUND(QUANT)

IF ISNUMERIC(QUANT(CONT))= TRUE THEN
RIGA = ""

RIGA = RIGA & RIEMPI_DI_SPAZI(TRIM(COD(CONT)),30) & RIEMPI_DI_SPAZI(TRIM(PxC(CONT)),10) & RIEMPI_DI_SPAZI(TRIM(QUANT(CONT)),10)
RIGA = RIGA & RIEMPI_DI_SPAZI(SOSTITUISCI(TRIM(PRZ(CONT))),20) & RIEMPI_DI_SPAZI(TRIM(LIS(CONT)),3)
RIGA = RIGA & RIEMPI_DI_SPAZI(REQUEST("RAGIONE_SOCIALE"),100) & RIEMPI_DI_SPAZI(REQUEST("INDIRIZZO"),100)
RIGA = RIGA & RIEMPI_DI_SPAZI(REQUEST("LOCALITA"),50) & RIEMPI_DI_SPAZI(REQUEST("PROVINCIA"),2)
RIGA = RIGA & RIEMPI_DI_SPAZI(REQUEST("TELEFONO"),100) & RIEMPI_DI_SPAZI(REQUEST("FAX"),50)
RIGA = RIGA & RIEMPI_DI_SPAZI(REQUEST("PARTITA_IVA"),11) & RIEMPI_DI_SPAZI("COMMISSIONE FATTA SUL SITO !!!",100) & RIEMPI_DI_SPAZI(REQUEST("NOTE"),255)

OGGTEXTSTREAM.WRITELINE RIGA
END IF

NEXT

OGGTEXTSTREAM.CLOSE
</SCRIPT>

ORDINE INVIATO CORRETTAMENTE ...

</body>
</html>

COME FACCIO???


FG
FG
RispondiQuoting
ojd
ojd
il 5 giugno 2002 alle 00:12
635 messaggi dal 06 settembre 2002
Ciao,

secondo me lo devi generare sul server e poi, da li, utilizzando un servizio di posta elettronica (CDONTS), fai trasmettere dal server il file a mezzo E-Mail


Ciao.

JD
OJD
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.