Contact TRAFINA Energy Ltd. in Calgary, Alberta, Canada

TFA.A: TSX Venture

Home

Profile

Corporate Info
Key Personnel

Investor Info

Operations
Press Releases
Financials
Stock Info

Request Info

Print Page

TRAFINA Energy Ltd.
688, 505 - 3 Street SW
Calgary, Alberta T2P 3E6
CANADA

IR Contact: Thomas R. Holland, Interim President & CEO

Phone: (403) 263-0800

Fax: (403) 263-0811

Email: info@trafinaenergy.ca

<% Sub ProcessRequest ' Check to make sure the required fields have been filled in If Len(Request("FirstName")) = 0 Then ErrorMessage = "You must specify your first name." Exit Sub End If If Len(Request("LastName")) = 0 Then ErrorMessage = "You must specify your last name." Exit Sub End If If Len(Request("CompanyName")) = 0 Then ErrorMessage = "You must specify your company name." Exit Sub End If If Len(Request("EMailAddress")) = 0 Then ErrorMessage = "You must specify your e-mail address." Exit Sub End If If InStr(Request("EMailAddress"), "@") = 0 Then ErrorMessage = "The e-mail address you have specified appears to be invalid." Exit Sub End If If InStr(Request("EMailAddress"), ".") = 0 Then ErrorMessage = "The e-mail address you have specified appears to be invalid." Exit Sub End If ' If we got here then everything is okay ' Built the e-mail to be sent Body = "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ "TRAFINA Web Site: Information Requestion Submission

" & vbNewLine & vbNewLine If (Request("NewsReleases") <> "" Or Request("QuarterlyReports") <> "" Or Request("AnnualReports") <> "" Or Request("InvestorsPackage") <> "") Then Body = Body & "Information Interested In Receiving:

News Releases
Quarterly Reports
Annual Reports
Investors Package

" & vbNewLine End If If Request("MailingPreference") <> "" Then Body = Body & "Mailing Preference: " & Request("MailingPreference") & "

" & vbNewLine End If If Request("FirstName") <> "" Then Body = Body & "First Name: " & Request("FirstName") & "

" & vbNewLine End If If Request("LastName") <> "" Then Body = Body & "Last Name: " & Request("LastName") & "

" & vbNewLine End If If Request("CompanyName") <> "" Then Body = Body & "Company Name: " & Request("CompanyName") & "

" & vbNewLine End If If Request("Title") <> "" Then Body = Body & "Title: " & Request("Title") & "

" & vbNewLine End If If Request("EMailAddress") <> "" Then Body = Body & "E-Mail Address: " & Request("EMailAddress") & "

" & vbNewLine End If If Request("Phone") <> "" Then Body = Body & "Phone: " & Request("Phone") & "

" & vbNewLine End If If Request("Fax") <> "" Then Body = Body & "Fax: " & Request("Fax") & "

" & vbNewLine End If If Request("Address1") <> "" Then Body = Body & "Address 1: " & Request("Address1") & "

" & vbNewLine End If If Request("Address2") <> "" Then Body = Body & "Address 2: " & Request("Address2") & "

" & vbNewLine End If If Request("City") <> "" Then Body = Body & "City: " & Request("City") & "

" & vbNewLine End If If Request("Province") <> "" Then Body = Body & "State/Province: " & Request("Province") & "

" & vbNewLine End If If Request("PostalCode") <> "" Then Body = Body & "Zip/Postal Code: " & Request("PostalCode") & "

" & vbNewLine End If If Request("Country") <> "" Then Body = Body & "Country: " & Request("Country") & "

" & vbNewLine End If If Request("SelfDescription") <> "" Then Body = Body & "Please describe yourself: " & Request("SelfDescription") & "

" & vbNewLine End If If Request("HeardAboutUs") <> "" Then Body = Body & "How did you hear about us: " & Request("HeardAboutUs") & "

" & vbNewLine End If If Request("Comments") <> "" Then Body = Body & "Additional Information/Comments:
" & vbNewLine & Request("Comments") & "

" & vbNewLine End If ' Send the e-mail Dim oMail Set oMail = Server.CreateObject("Persits.MailSender") With oMail .Host = "trafina1" .Port = 25 .From = "info@trafinaenergy.ca" .FromName = "TRAFINA Website" .AddAddress "info@trafinaenergy.ca" .Subject = "TRAFINA Web Site: Information Requestion Submission" .Priority = 1 .IsHTML = True .Body = body .Send If Err <> 0 Then Response.Write Err.Description Response.Flush Response.End End If End With ' Set oMail = Server.CreateObject("ASPXP.Mail") ' 'oMail.ToList.Add = "info@trafinaenergy.ca" ' 'oMail.ToList.Add = "vfung@debianit.com" ' 'oMail.From = "info@trafinaenergy.ca" ' 'oMail.Subject = "TRAFINA Web Site: Information Requestion Submission" ' 'oMail.BodyFormat = 0 ' 'oMail.MailFormat = 0 ' 'oMail.Body = Body ' 'oMail.Send ' 'Set oMail = Nothing ' ' With oMail ' ' .Host = "pyxis" ' .Port = 25 ' ' .Subject = "TRAFINA Web Site: Information Requestion Submission" ' .HTMLBody = body ' .FromName = "TRAFINA Website" ' .FromAddress = "info@trafinaenergy.ca" ' .Importance = 2 ' ' .ToList.Add "info@trafinaenergy.ca", "TRAFINA Information" ' ' If (.Send <> 0) Then ' Response.Write .ErrorMessage ' Response.Flush ' Response.End ' End If ' ' End With ' Redirect user to success message Response.Redirect("contact.asp") End Sub %>