 | Agent Network |
|
#306, 410-7th Street South Lethbridge, Alberta Bus (403)380-3488 |
|
|
|
|
<% ' ####################################################################################### ' ####################################################################################### ' ##### Begin Display Initial Page ##### Sub DisplayInitialPage %>
LifeCanada.com is establishing a network of experienced and professional agents to provide service across Canada.Each agent is asked to provide a resume, as well as industry and personal references. LifeCanada.com strives to provide educated, experienced and professional agents to assist the public on a non-pressure basis.
Thank you for submitting your information.
<%
' ##### End Thank You Page #####
End Sub
' #######################################################################################
' ##### Begin StoreUserDataInSessionObject #####
Sub StoreUserDataInSessionObject
Dim FormKey
For Each FormKey in Request.Form
Session(FormKey) = Request.Form.Item (FormKey)
Next
' ##### End StoreUserDataInSessionObject #####
End Sub
' #######################################################################################
' #######################################################################################
Dim CurrentPage
Dim Variable
Dim FormResults
Dim objMail
Dim Name
Dim Designations
Dim Address
Dim Telephone
Dim Fax
Dim Email
Dim History
Dim Refrences
If Request.Form.Item("NextPage") = "" Then
CurrentPage = 1
Else
CurrentPage = Request.Form.Item("NextPage")
End If
Call StoreUserDataInSessionObject
Select Case CurrentPage
Case 1 : Call DisplayInitialPage
Case 2 : Call FormPage
Case 3 : Name = Request.Form("Name")
Designations = Request.Form("Designations")
Address = Request.Form("Address")
Telephone = Request.Form("telephonenumber")
Fax = Request.Form("fax")
Email = Request.Form("email")
History = Request.Form("history")
Refrences = Request.Form("refrences")
'set objMail = server.CreateObject("ABMailer.Mailman")
'objMail.clear
'objMail.MailDate = FormatDateTime(Date,vblongdate)
'objMail.MailSubject = "Agent Network Application"
'objMail.ReplyTo = Email
'objMail.SendTo = "webmaster@efgsolutions.com"
'objMail.ServerAddr = "mail.theboss.net"
'objMail.ServerPort = 25
'objMail.MailMessage = "Name: " & Name & VbCrLf & _
' "Designations: " & Designations & VbCrLf & _
' "Address: " & Address & VbCrLf & _
' "Telephone #: " & Telephone & VbCrLf & _
' "Fax: " & Fax & VbCrLf & _
' "E-Mail: " & Email & VbCrLf & _
' "History: " & History & VbCrLf & _
' "Refrences: " & Refrences
'objMail.SendMail
'set objMail = Nothing
'Call ThankYouPage
'********************************
' Mailer
'********************************
dim mybody
dim mycdomail
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Dim onserver
Const cdoSendUsingPort = 2
onserver = "true"
if onserver = "true" then
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.naftac.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
' apply the settings to the message
With iMsg
Set .Configuration = iConf
.bcc = "smgraham@efgsolutions.com"
.to = "info@mefservices.com"
.From = email
.Subject = "LifeCanada.com Agent Network Information"
.TextBody = "Name: " & Name & VbCrLf & _
"Designations: " & Designations & VbCrLf & _
"Address: " & Address & VbCrLf & _
"Telephone #: " & Telephone & VbCrLf & _
"Fax: " & Fax & VbCrLf & _
"E-Mail: " & Email & VbCrLf & _
"History: " & History & VbCrLf & _
"Refrences: " & Refrences
'Errors handled from here until.....
on error resume next
.Send
End With
if err then
response.Write err.Description
else
Call ThankYouPage
end if
on error goto 0
'......end of error handling!
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
end if
'***********
End Select
%>
<%''%>
