<% Const cdoBasic = 1 'Use basic (clear-text) authentication. Const cdoSendUsingPort = 2 'cdosys related Dim iMsg Dim iConf Dim Flds 'mail related Dim strMsg Dim strTo Dim strCC Dim strFrom Dim strSubject Dim strTextBody '==================begin your configuration============================= 'you must have a username and pass word or you will not be able to send ' Dim sendusername : sendusername = "webform@asantemanga.com" Dim userpassword : userpassword = "webpass" Dim smtpserver : smtpserver = "smtp.asantemanga.com" 'end your configuration '===================begin set your info here============================ 'set your TO, CC, From, Subject and body here ' strTo = "info@asantemanga.com" 'strCC = "anotheruser@somedomain.com" strFrom = "webform@asantemanga.com" strSubject = "Information Request - Web Form" strTextBody = "Name =" & request("name") & vbCrLf & "Email =" & request("email") & vbCrLf & "Phone =" & request("phone") & vbCrLf & "comments =" & request("comments") ' 'end set your info here 'Create message and configuration objects set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields 'Apply settings to the configuration object With Flds ' Specify the authentication mechanism to basic (clear-text) authentication. .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic ' The username for authenticating to an SMTP server .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sendusername ' The password used to authenticate to an SMTP server .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = userpassword ' Port .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort 'Specify mail server .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpserver 'Specify the timeout in seconds .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 ' The port on which the SMTP service specified by the smtpserver field is listening for connections (typically 25) .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Use SSL for the connection (False or True) '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False .Update End With 'Apply the settings to the message object and send it With iMsg Set .Configuration = iConf .To = strTo .From = strFrom If strCC <> "" Then .CC = strCC End If .Subject = strSubject .TextBody = strTextBody 'Send message .Send End With ' cleanup mail objects Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing %> Asanteman Association of Georgia Inc.
 
 
 
Nana Akwasi Gyetuah-Acheampong Chief: Ashantis in Georgia Nana Yiadom Konadu Simpremo Queen: Ashantis in Georgia
  <% if request("sent") = 0 then response.write "Contact - Please fill out and submit this form. Thank You. " else response.write "Contact - Your Message was Successfully Sent. Thank You. " %>
<% if request("sent") = 1 then response.write "" %> <% if request("sent") = 1 then response.write "" %>
<% if request("sent") = 1 then response.write "" %> <% if request("sent") = 1 then response.write "" %>
<% if request("sent") = 1 then response.write "" %> <% if request("sent") = 1 then response.write "" %>
<% if request("sent") = 1 then response.write "" %> <% if request("sent") = 1 then response.write "





" %>
<% if request("sent") = 1 then response.write "" %>

-------> home | our vision | sponsor information | history | officers | contact us
Bridging the Gap Through the promotion of Ashanti Culture and Traditions.
© 2006 Asanteman Association of Georgia Inc. All Rights Reserved.