<%
'-------------------------email from contact page-------------------------
if (len(request.form("firstname"))>0) or (len(request.form("email"))>0) or (len(request.form("comments"))>0) then
'---send mail
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = Request.Form("firstname") & " " & Request.Form("lastname")
Mail.FromAddress= Request.Form("email")
Mail.RemoteHost = "mrelay.perfora.net" 'we must use this with 1and1
Mail.AddRecipient "Jonah Light", "jonah@jonahlight.com"
Mail.Subject = "Website - Info Request"
Mail.BodyText = Request.Form("firstname") & " " & Request.Form("lastname") & chr(13) & chr(10) & Request.Form("email") & chr(13) & chr(10) & Request.Form("phone") & chr(13) & chr(10) & chr(13) & chr(10) & Request.Form("comments")
if Mail.SendMail then
'---produce message to user above portfolio navigation
response.write("Thank you, your message has been sent.
")
else
'---produce error message for user
response.write("Error sending message. Error " & Mail.Response & "
")
end if
set Mail = nothing
end if
'---------------------------------------------------------------------------
%>
<%
if trim(request.querystring("i"))="y" then
%>
<%
end if
%>
<%
'-------------------------portfolio navigation-------------------------
for iCat = 1 to totalcategories
if iCat > 1 then
response.write(" ")
end if
response.write("![]() | ")
next
%>
|
<%
'-------------------------portfolio photos-------------------------
for iCat = 1 to totalcategories
response.write("![]() | ")
next
%>
