%
Function GetDisplayEmailName(pvAddress)
Dim sAddress
Dim lAt
sAddress = Trim("" & pvAddress)
If Len(sAddress) > 0 Then
lAt = Instr(sAddress, " (")
If lAt > 0 Then
sAddress = Right(sAddress, Len(sAddress) - lAt)
sAddress = Replace(sAddress, "(", "")
sAddress = Replace(sAddress, ")", "")
GetDisplayEmailName = Trim(sAddress)
Else
GetDisplayEmailName = ""
End If
Else
GetDisplayEmailName = ""
End If
End Function
Function GetRawEmailAddress(pvAddress)
Dim sAddress
Dim lAt
sAddress = Trim("" & pvAddress)
If Len(sAddress) > 0 Then
lAt = Instr(sAddress, " (")
If lAt > 0 Then
sAddress = Trim(Left(sAddress, lAt))
GetRawEmailAddress = sAddress
Else
GetRawEmailAddress = sAddress
End If
Else
GetRawEmailAddress = ""
End If
End Function
Sub SendEmailMessage( psTo, psFrom, psSubject, psBody)
Dim objMail
Dim iTemp
Dim sToAddress
Dim sToName
Dim sFromAddress
Dim sFromName
Dim arrTo
Err.Clear
sFromAddress = GetRawEmailAddress(psFrom)
sFromName = GetDisplayEmailName(psFrom)
'On Error Resume Next
Set objMail = Server.CreateObject("Persits.MailSender")
If Err.Number <> 0 Then
Response.Write "
Error:Could not create Persits.MailSender object
"
Else
objMail.Host = "66.154.109.129"
objMail.Username = ""
objMail.Password = ""
If Len(sFromName) > 0 Then objMail.FromName = sFromName
objMail.From = sFromAddress
arrTo = split(psTo,";")
For Each Item In arrTo
objMail.AddAddress Item
Next
objMail.Subject = psSubject
objMail.Body = "" & psBody
objMail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
End If
Set objMail = Nothing
'On Error Goto 0
End Sub
dim strName, strEmail, strComments, strSubject
strName = trim(Request.Form("FromName"))
strEmail = trim(Request.Form("FromEmail"))
strComments = Request.Form("Body")
strSubject = Request.Form("Subject")
if strName <> "" then
strSubject = "[ Colbster.com: " & strSubject & " ]"
'dim gsMailHost
'gsMailHost = "mail.clubvibes.com"
'SendEmailFeedback strName, strEmail, strSubject, strComments
SendEmailMessage "mail@colbster.com", strEmail, strSubject, strComments
' Send Auto responder
dim txtTo,txtFrom,txtSubject,txtBody
txtTo = strEmail
txtFrom = "mail@colbster.com"
txtSubject = "Your message was received"
txtBody = "Dear " & strName & ":" & Chr(10) & Chr(10)
txtBody = txtBody & "Thank you for writing. This e-mail confirms that I have recieved your message!" & Chr(10) & Chr(10)
txtBody = txtBody & "I will respond to you as soon as I can." & Chr(10) & Chr(10)
txtBody = txtBody & "" & Chr(10)
txtBody = txtBody & "Colby Fulton" & Chr(10) & Chr(10)
SendEmailMessage txtTo, txtFrom, txtSubject, txtBody
Response.Redirect "contactthanks.html"
end if
%>
Colbster.com - Contact
| . |
 |
|
Complete the form below and hit send. |
|

|
. |
| . |
|
Mailing Address |
 |
 |
|
Colby Fulton
105 - 1562 West 5th Avenue
Vancouver, BC V6J 5H9
Canada
tel: 604 739-4287
cel: 604 518-1748
|
|
|
. |
Home--|--About Me--|--Services--|--Portfolio--|--Projects--|--Archives--|--Sketchbook--|--Photos--|--Links--|--Resumé--|--Contact
