<%@ Language=VBScript %> <% ' ------------------------------------------------------------------------------ ' MAIN PGM: START ' ------------------------------------------------------------------------------ ' ------------------------- ' Dichiarazione Variabili ' ------------------------- Dim ErrorBool Dim kDvd_01 Dim kDvd_02 Dim kOrder Dim kLastName Dim kFirstName Dim kEMail Dim kAddress Dim kMessage ' ------------------------- ' Aquisizione Campi Form ' ------------------------- kOrder = Trim(Request.Form("kOrder") ) kDvd_01 = Trim(Request.Form("kDvd_01")) kDvd_02 = Trim(Request.Form("kDvd_02")) kLastName = Trim(Request.Form("kLastName")) kFirstName = Trim(Request.Form("kFirstName")) kEMail = Trim(Request.Form("kEMail")) kAddress = Trim(Request.Form("kAddress")) kMessage = Trim(Request.Form("kMessage")) 'Response.Write "1---->" & kOrder & "
" 'Response.Write "2---->" & kDvd_01 & "
" 'Response.Write "3---->" & kDvd_02 & "
" 'Response.Write "4---->" & kLastName & "
" 'Response.Write "5---->" & kFirstName & "
" 'Response.Write "6---->" & kEMail & "
" 'Response.Write "7---->" & kAddress & "
" 'Response.Write "8---->" & kMessage & "
" ' ------------------------- ' Gestione Ordine ' ------------------------- If kOrder="1" Then ' Controlli Formali Call DataCheck ' Invio Mail If ErrorBool = False Then Call SendMail (kDvd_01, kDvd_02, kLastName, kFirstName, kEMail, kAddress, kMessage) Response.Write "Thank You, Your Order Has Been Received." kDvd_01 = "0" kDvd_02 = "0" kLastName = "" kFirstName = "" kEMail = "" kAddress = "" kMessage = "" End If End If ' ------------------------------------------------------------------------------ ' MAIN PGM: END ' ------------------------------------------------------------------------------ ' ----------------------------------------------------------------------------- ' PROCEDURA: CONTROLLO DATA ENTRY ' ----------------------------------------------------------------------------- Sub DataCheck() ErrorBool = False ' Controllo Selezione Almeno Un Articolo If kDvd_01 = "0" And kDvd_02 = "0" Then Call ErrorMsg("You Must Order at least 1 copy of a DVD !") ErrorBool = True Exit Sub End If ' Controllo Inserimento Cognome If kLastName = "" Then Call ErrorMsg("Please Insert Your Last Name.") ErrorBool = True Exit Sub End If ' Controllo Inserimento E-Mail If kEMail = "" Then Call ErrorMsg("Please Insert Your E-Mail Address.") ErrorBool = True Exit Sub End If ' Controllo Inserimento Indirizzo If kAddress = "" Then Call ErrorMsg("Please Insert Your Full Address.") ErrorBool = True Exit Sub End If End Sub ' ----------------------------------------------------------------------------- ' PROCEDURA: END ' ----------------------------------------------------------------------------- ' ----------------------------------------------------------------------------- ' PROCEDURA: CONTROLLO DATA ENTRY ' ----------------------------------------------------------------------------- Sub ErrorMsg(pMessage) Response.Write pMessage End Sub ' ----------------------------------------------------------------------------- ' PROCEDURA: END ' ----------------------------------------------------------------------------- ' ----------------------------------------------------------------------------- ' PROCEDURA: INVIO MAIL ' ----------------------------------------------------------------------------- Sub SendMail(pDvd_01, pDvd_02, pLastName, pFirstName, pEMail, pAddress, pMessage) Dim MyMessage MyMsg = "-------------------------------------------------------------------" & "
" MyMsg = MyMsg & " ********* Ricezione Ordine Form da WWW.SUBBUTEOFAN.IT *********** " & "
" MyMsg = MyMsg & "-------------------------------------------------------------------" & "
" MyMsg = MyMsg & "DVD #01, quantit�: " & pDVD_01 & "
" MyMsg = MyMsg & "DVD #02, quantit�: " & pDVD_02 & "
" MyMsg = MyMsg & "Cognome: " & pLastName & "
" MyMsg = MyMsg & "Nome: " & pFirstName & "
" MyMsg = MyMsg & "E-Mail: " & pEMail & "
" MyMsg = MyMsg & "Indirizzo: " & pAddress & "
" MyMsg = MyMsg & "Messaggio: " & pMessage & "
" MyMsg = MyMsg & "-------------------------------------------------------------------" & "
" MyMsg = MyMsg & " ********* Informazioni di Sistema *********** " & "
" MyMsg = MyMsg & "-------------------------------------------------------------------" & "
" MyMsg = MyMsg & "Data Ordine: " & Date() & "
" MyMsg = MyMsg & "Ora Ordine: " & Time() & "
" MyMsg = MyMsg & "-------------------------------------------------------------------" & "
" Set objMail = CreateObject( "CDONTS.NewMail" ) objMail.From = pEMail objMail.To = "video@subbuteofan.it" objMail.Subject = "Ordine da SubbuteoFan.it" objMail.BodyFormat = 0 objMail.Mailformat = 0 objMail.Importance = 0 objMail.Body = MyMsg objMail.Send Set objMail = Nothing End Sub ' ----------------------------------------------------------------------------- ' PROCEDURA: END ' ----------------------------------------------------------------------------- %> Video ENG

 

 

TABLE FOOTBALL IN DVD

   Versione Italiana  

Preview

 

PAL - Color

Lenght 102 min.

Region free
TABLE FOOTBALL DVD

Euro 19.90

 

Features:

Table Football Rules

Practice

How to Build a Table Footall Pitch

How to Paint Miniatures

How to Restore Old Miniatures

 

Languages:

Audio: Italian
Subtitles: Italian, English,  Portuguese, Dutch, Greek and French

 

PAL - Color

Region free
F.I.S.T.F. World Cup 2004

Euro15.00

 

Features:

Enrico Tecchiati Vs. Renzo Frignani

Giancarlo Giulianini Vs. Andrea Lampis

 

Preview:

 Clip01 - Clip02 - Clip03

Clip04 - Clip05

 

DVD's are produced by FA.ST. Video Productions

 

Table Football DVD   Number of Copies
FISTF World Cup 2004   Number of Copies
Lastname *
First Name
E-Mail *
Full Address *
Message

 

HOMEPAGE