%@ Language=VBScript %> <% IF request.form("FormName")="request" THEN dim objMail dim iConf dim flds dim shtml Const cdoSendUsingPort = 2 Const strSmartHost = "ns2.seewolf.com" set objMail = CreateObject("CDO.Message") set iConf = objMail.Configuration 'set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= 10 .update end with With objMail objMail.From = "Website@americanarchaeology.org" objMail.To = "tacinfo@nm.net" objMail.BCC = "sryan@seewolf.com" objMail.Subject = "Request for Application" SHTML="" SHTML = SHTML & "
" SHTML = SHTML & "" SHTML= SHTML & "Request for Information![]() |
![]() |
![]() |
![]() |
![]() |
||||||||||||||
| | about us | membership | where we work | | ||||||||||||||||||
|
Request for Information
|
|||||||||||||||||
| | home | contact us | more information | | ||||||||||||||||||