<% 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

Contact Form
Your Name:
 Your Email Address:

Select a subject:

Type Message Here:


.

Home--|--About Me--|--Services--|--Portfolio--|--Projects--|--Archives--|--Sketchbook--|--Photos--|--Links--|--Resumé--|--Contact