NON POSSO PERCHE' POTREBBERO ESSERE CONNESSI PIU' UTENTI CONTEMPORANEAMENTE E SI COMBINA UN MACELLO!!! A ME SERVE 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
