<% Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = REQUEST.FORM("EMAIL") Mail.Subject = "WEB CONTACT FORM" Mail.To = "chris.brewer@riverviewtech.net" newstr=request.form() ' Decodifica eventuali caratteri ESCAPE str=replace(newstr,"=",": ") newstr=replace(str,"+", " ") str=replace(newstr,"&",chr(13)+chr(10)) newstr=replace(str,"%2C",",") str=replace(newstr,"%2B","+") newstr=replace(str,"%22","''") str=replace(newstr,"%3C","<") newstr=replace(str,"%3E",">") str=replace(newstr,"%28","(") newstr=replace(str,"%29",")") str=replace(newstr,"%5B","[") newstr=replace(str,"%5D","]") str=replace(newstr,"%E8","è") NEWstr=replace(str,"%E9","é") str=replace(newstr,"%24","$") NEWstr=replace(str,"%B0","°") str=replace(newstr,"%23","#") NEWstr=replace(str,"%25","%") str=replace(newstr,"%3F","?") NEWstr=replace(str,"%26","&") str=replace(newstr,"%27","'") NEWstr=replace(str,"%21","!") str=replace(newstr,"%3A",":") NEWstr=replace(str,"%2F","/") str=replace(newstr,"%5C","\") NEWstr=replace(str,"%7C","|") str=replace(newstr,"%EC","ì") NEWstr=replace(str,"%E0","à") str=replace(newstr,"%F2","ò") NEWstr=replace(str,"%E7","ç") str=replace(newstr,"%3D","=") NEWstr=replace(str,"%7E","~") Mail.Body = NEWSTR response.write "
" On Error Resume Next if not Mail.Send Then ErrStr = Err.Description Response.Write ErrStr Else Mail.Reset End If Set Mail = Nothing %> your team


partners for you 
 

 

 
 
 




Partners for You
These businesses are here to help you an any way.

Something Special Florist