<% Dim BodyStr, objMail BodyStr = "" BodyStr = BodyStr & "" BodyStr = BodyStr & "" BodyStr = BodyStr & "" BodyStr = BodyStr & "

" & Request.Form("message") & "

" Set objMail = CreateObject("CDONTS.Newmail") objMail.BodyFormat=0 objMail.MailFormat=0 objMail.From = request.form("senderName") & "<" & Request.form("senderEmail") & ">" objMail.to = request.form("receiverEmail") objMail.Subject = "V GlobalMedia Email" objMail.Body = BodyStr objMail.Send Set objMail = Nothing %> <% Dim oConn Set oConn = Server.CreateObject("ADODB.Connection") oConn.open Application("VMGN_ConnectionString") oConn.execute("INSERT INTO EmailLog (senderName,senderEmail,receiverEmail) VALUES ('" & Request.Form("senderName") & "','" & Request.Form("senderEmail") & "','" & Request.Form("receiverEmail") & "')") oConn.close %>