 |
 |
|
 |
|
Are you profiting from your website? We can help by starting from scratch and
creating a strategic online presence which will
tell your company's story and engage your visitors
so they can act. Contact us and we will analyze
your company, discover your goals, and create
a strategy to achieve them. Start
growing your business today.
| |
|
|
 |
|
| • |
Law Firms |
| • |
Non-profit organizations |
| • |
Events |
| • |
Online merchants |
| • |
News organizations |
| • |
Bookstores |
| • |
Small businesses |
| • |
Global companies |
| • |
Political campaigns |
| • |
Personalities |
| |
|
|
|
|
 |
|
|
|
|
<%
'Email
dim emailTo
dim emailName
dim emailFrom
dim emailSubject
dim emailBody
'Work Fields
dim arrayErrors
dim formID
'Database
dim mySQL
dim conntemp
dim rstemp
'Session
dim idOrder
dim idCust
'*************************************************************************
'Assign config setting to local variables.
on error resume next
mailComp = "4" 'ASPMail
pSMTPServer = "mail.speroforum.com"
pEmailSales = "cgillespie@speroforum.com"
global_company = "Buzzcraft Internet Marketing"
global_address1 = "13430 Sable"
global_address2 = ""
global_city = "Houston"
global_state = "Texas"
global_zip = "77014"
global_phone = "713-522-1008"
global_fax = ""
'Get Form or QueryString parms
emailName = validHTML(Request("emailName"))
emailFrom = validHTML(Request("emailFrom"))
emailSubject = validHTML(Request("emailSubject"))
emailBody = validHTML(Request("emailBody"))
langGenNewsAlert = "News Alert"
langGenFeedback = "Feedback"
langGenWriteforSpero = "Writing for Spero News"
'If there is an Author ID
if Request("AUTH_ID")<>"" then
authid = Replace( Request.QueryString("auth_id"), "'", "''" )
dim U_EMAIL
dim authorSQL
dim conn
dim rsAuthor
dim pEmailAuthor
authorSQL = "SELECT TOP 1 ID AS AUTH_ID, name, auth_last, email " _
& " From tbl_users " _
& " WHERE ID = " & authid
Set rsAuthor = adoCon.Execute( authorSQL )
pEmailAuthor = rsAuthor("email")
emailTo = pEmailAuthor
email_first = rsAuthor("name")
email_last = rsAuthor("auth_last")
else
'Set To Email address
emailTo = pEmailSales
email_first = "Spero"
email_last = "News Editor"
end if
'Did the user click the "Send" button?
if Request.Form("formID") = "00" then
'Do some checks
if len(emailName) = 0 then
arrayErrors = arrayErrors & "|emailName"
end if
if len(emailFrom) = 0 then
arrayErrors = arrayErrors & "|emailFrom"
else
if inStr(emailFrom,"@") = 0 or inStr(emailFrom,".") = 0 then
arrayErrors = arrayErrors & "|emailFrom"
end if
if invalidChar(emailFrom,1,"@.-_") then
arrayErrors = arrayErrors & "|emailFrom"
end if
end if
if len(emailSubject) = 0 then
arrayErrors = arrayErrors & "|emailSubject"
end if
if len(emailBody) = 0 then
arrayErrors = arrayErrors & "|emailBody"
end if
'If there was no errors, send the email.
if len(trim(arrayErrors)) = 0 then
'Send Email
call sendmail (emailName, emailFrom, emailTo, emailSubject, emailBody, 0)
'Say Thank You
Dim langGenContactUsMsg
langGenContactUsMsg = "Thank you. Your message has been sent."
response.redirect "sysMsg.asp?msg=" & server.URLEncode(langGenContactUsMsg)
end if
end if
%>
<%
'**********************************************************************
'Main Display Area.
'**********************************************************************
sub siteMain()
%>
Contact Us
|
If you want to contact the writer of a story you’ve just read, try clicking on his or her name at the top of the story to view the profile and contact button. (Note that not all writers are reachable by e-mail.)
For feedback about content or technical problems on Spero News, contact the editor or join others in the forum.
| Address |
 |
Phone |
<%=global_company%>
<%=global_address1%><% if global_address2 <>"" then %>
<%=global_address2%><% end if %>
<%=global_city%>, <%=global_state%> <%=global_zip%> |
|
<%=global_phone%>
<%=global_fax%> |
|
|
Do you have news?
Would you like to be a regular contributor?
|
|
|
| |
|
|
|
|
|
| |
