<% 'Apro RecordSet SET RS = Server.CreateObject("ADODB.Recordset") vPage="noleggio-con-conducente-roma.asp" vTitle="NCC Roma, Noleggio con Conducente Roma - chiama al +39.392.3412452" vDescription="Per saperne di piu' sui nostri servizi di noleggio con conducente a Roma ed altro, non esitate a contattarci, Stefano Luciani. NCC - Noleggio con Conducente Roma" vErr=0 vErrMsg="" If request("preventivo")="INVIA LA RICHIESTA" Then If request("Nome")="" Then vErr=1 : vErrMsg=vErrMsg & "   Non hai inserito il tuo nome e cognome.
" If request("eMail")="" Then vErr=1 : vErrMsg=vErrMsg & "   Non hai inserito la tua email.
" If request("Telefono")="" Then vErr=1 : vErrMsg=vErrMsg & "   Non hai inserito il tuo telefono.
" If IsNumeric(request("Telefono"))=False Then vErr=1 : vErrMsg=vErrMsg & "   Campo telefono, inserire solo numeri.
" If request("Domanda")="" Then vErr=1 : vErrMsg=vErrMsg & "   Non hai inserito la tua Richiesta.
" IF AntiSpam(request("Domanda"))=1 THEN Response.redirect("default.asp") If vErr=0 Then varOggetto = Application("WebSite") & " - Richiesta da: " & request("Nome") & " - " & request("eMail") varCorpo = Date() & " - " & Time() & " - ip:" & Request.ServerVariables("REMOTE_HOST") & vbcrlf & vbcrlf &_ "Nome: " & request("Nome") & vbcrlf &_ "eMail: " & request("eMail") & vbcrlf &_ "Telefono: " & request("Telefono") & vbcrlf &_ "Richiesta: " & request("Domanda") vErrMsg=InviaMailCDOSYS(Application("WebSiteEmail"),Application("WebSiteEmail"),"",request("eMail"),varOggetto,varCorpo,"T","yes") StrSave="Insert Into Contatti (DataOra, Nominativo, eMail, Telefono, Richiesta, IndirizzoIP) Values ('" & _ Date() & " " & Time() & "'," & ConvToSaveStr(request("Nome")) & "," & ConvToSaveStr(request("eMail")) & "," & ConvToSaveStr(request("Telefono")) & "," & ConvToSaveStr(request("Domanda")) & ",'" & Request.ServerVariables("REMOTE_HOST") & "')" CN.Execute StrSave StrMSG = "" StrMSG = StrMSG & "Risposta" StrMSG = StrMSG & "
" StrMSG = StrMSG & "Gentile " & request("Nome") & ",
" StrMSG = StrMSG & "grazie per aver richiesto informazioni al nostro sito web: " & Application("WebSite") & "." StrMSG = StrMSG & "

" StrMSG = StrMSG & "Provvederemo il prima possibile a darle una risposta alla sua domanda.
" StrMSG = StrMSG & "Se invece vuole contattarci direttamente trova tutti i riferimenti alla seguente pagina: Contatti." StrMSG = StrMSG & "

" StrMSG = StrMSG & "Cordiali Saluti
" StrMSG = StrMSG & "" & Application("WebSite") & "" StrMSG = StrMSG & "





" StrMSG = StrMSG & "
" varOggetto = request("Nome") & " abbiamo ricevuto la richiesta di informazioni da " & Application("WebSite") varCorpo = StrMSG vErrMsg=InviaMailCDOSYS(Application("WebSiteEmail"), request("email"),"","",varOggetto,varCorpo,"H","no") End if End if %> <%=vTitle%> "> /<%=vPage%>"> /images/<%=Application("LogoFace")%>"> /<%=vPage%>">

Contattaci


<%=Application("LineColor")%>;">
;"> <%if vErrMsg<>"" then%> <%else%> <%end if%>
<%=vErrMsg%>


Nome(*):
eMail(*):
Telefono(*):
Richiesta(*):
(*) - Campi Obbligatori
Non Facciamo Spam, Non Facciamo Pubblicità, Non Vendiamo i Tuoi Dati!

I nostri contatti


<%=Application("LineColor")%>;">
/images/<%=Application("Logo")%>" style="display:none;"> /images/<%=Application("Logo")%>" style="display:none;"> Per saperne di piu' sui nostri servizi di noleggio con conducente ed altro, non esitate a contattarci:

Stefano Luciani
NCC - Noleggio con Conducente, Roma

Contatti e Riferimenti  Telefono Stefano:
+39.375.5032211

 WhatsApp:
Avvia Chat con Stefano

eMail: noleggioccroma@gmail.com



Stefano Luciani su Facebook Stefano Luciani su Instagram Stefano Luciani su Linkedin
<%IF 1<>1 THEN%>
<%IF Session("Cookies")=True THEN%> <%ELSE%> <%END IF%>
<%END IF%>
Torna SU
<%SET RS=Nothing CN.Close SET CN=Nothing%>