Mouhamadou Dia Title_Mouhamadou_Dia
Accueil L'Artiste Oeuvres Presse Contact

Copyright 2014 Mouhamadou Dia | Design by Sentic

<% If Request.ServerVariables(“REQUEST_METHOD”) = “POST” Then ‘* ‘* Send Email ‘* Dim strBOD strBOD = “Name: ” & Request.Form(“name”) & vbCrLf _ & “Email: ” & Request.Form(“email”) & vbCrLf & vbCrLf _ & Request.Form(“comments”) Dim objCFG Set objCFG = Server.CreateObject(“CDO.Configuration”) objCFG.Fields.Item(aCDO & “sendusing”) = 2 objCFG.Fields.Item(aCDO & “smtpserver”) = “relay-hosting.secureserver.net“ objCFG.Fields.Item(aCDO & “smtpserverport”) = 25 objCFG.Fields.Update Dim objCDO Set objCDO = Server.CreateObject(“CDO.Message”) objCDO.Configuration = objCFG objCDO.From = Request.Form(“email”) objCDO.To = “galsennet@gmail.com“ objCDO.Subject = “Site http://www.mouhamadoudia.net/“ objCDO.TextBody = strBOD objCDO.Send Response.Redirect “index.html“ Set objCDO = Nothing Set objCFG = Nothing End If %> ?>
www.000webhost.com