IMPORT
Via delle Ventinelle, 95
06063 - Magione (PG)
Tel. e Fax (+39) 075. 8472744

e-mail: info@landorinaldini.com
  giftshop@landorinaldini.com
  import@landorinaldini.com
  giorik@libero.it

 

Visualizzazione ingrandita della mappa

Speciale Offerte

Presto speciali offerte per prodotti unici firmati Lando Rinaldini.
Tornateci a trovare!

Lando Rinaldini non è solo Import ma è anche GIFT SHOP! Scopri il nostro sito dedicato esclusivamente al mondo della casa e non solo!!!
Lando Rinaldini
Sede Import
Ventinella 06063 Magione
Sede Gift Shop
Viale Umbria 06063 Magione
Credits
© 2011 Lando Rinaldini
All right reserved
<% Rs.Close Set Rs = Nothing Cn.Close Set Cn = Nothing Function EsFile(QualeFile) Dim FSObj Set FSObj = CreateObject("Scripting.FileSystemObject") If ( FSObj.FileExists( QualeFile ) ) Then EsFile = True Else EsFile = False End If End Function Function ChkEmail(Indirizzo) ChkEmail=True If InStr(Indirizzo,".")=0 Then ChkEmail=False If InStr(Indirizzo,"@")=0 Then ChkEmail=False If Left(Indirizzo,1)="@" Then ChkEmail=False If Right(Indirizzo,1)="@" Then ChkEmail=False End Function Function SQLDate(dteDate) DIM dteDay, dteMonth, dteYear dteDay = Day(dteDate) dteMonth = Month(dteDate) dteYear = Year(dteDate) SQLDate = dteYear & "-" & Right(Cstr(dteMonth + 100),2) & "-" & Right(Cstr(dteDay + 100),2) SQLDate = SQLDate & " " & Hour(dteDate) & ":" & Minute(dteDate) & ":" & Second(dteDate) SQLDate = "'" & SQLDate & "'" End Function Function Adj(Nome) Adj = LCase(CStr(Nome)) Adj = Replace(Adj,"?","&") Adj = Replace(Adj,"&&","&") Adj = Replace(Adj,"&","&") Adj = Replace(Adj,".asp&",".asp?") End Function %>