<% dim send_ind send_ind = Request.Form("send_ind") if trim(send_ind) = "" then send_ind = 0 end if if send_ind = 0 then %>


image


  
CONTACT JOHN STUART PHOTOGRAPHY.

Have a question or want to tell us what you think about our web site, our service or anything else?

At John Stuart Photography we welcome all comments, questions and suggestions, just fill out the fields below and click submit.

What kind of comment would you like to send?
Question Suggestion Praise Problem Complaint
Name: 
e-mail: 
Phone Number: 
Picture Name: 
<% else dim comment_type dim comment_value dim comment_name dim comment_email dim comment_phone dim comment_date dim contact_type dim send_to_email dim painting_name comment_type = Request.Form("comment_type") comment_value = Request.Form("comment_value") comment_name = Request.Form("comment_name") comment_email = Request.Form("comment_email") comment_phone = Request.Form("comment_phone") comment_date = Request.Form("comment_date") painting_name = Request.Form("painting_name") if comment_type = 1 then contact_type = "Complaint" end if if comment_type = 2 then contact_type = "Problem" end if if comment_type = 3 then contact_type = "Suggestion" end if if comment_type = 4 then contact_type = "Praise" end if if comment_type = 5 then contact_type = "Question" end if comment_date = date() if trim(comment_phone) = "" then comment_phone = "Not Specified" end if if trim(comment_email) = "" then comment_email = "Not Specified" end if dim fso dim sFile set fso = server.CreateObject("Scripting.FileSystemObject") set sFile = fso.OpenTextFile(server.MapPath("contactemail.html")) sFileText = sFile.ReadAll sFile.close set sFile = nothing set fso = nothing sFileText = replace(sFileText, "@subtype@", contact_type ) sFileText = replace(sFileText, "@subname@", comment_name ) sFileText = replace(sFileText, "@datesubmitted@", comment_date ) sFileText = replace(sFileText, "@subcomment@", comment_value ) sFileText = replace(sFileText, "@phonenumber@", comment_phone ) sFileText = replace(sFileText, "@email@", comment_email ) sFileText = replace(sFileText, "@painting_name@", painting_name ) ' strSQL = "select * from ch_settings where setting_id = 1" ' set RecordSet = Conn.Execute(strSQL) ' if RecordSet.EOF then 'send_to_email = "mullerhop@btinternet.com" send_to_email = "stevefourie@gmail.com" ' else ' send_to_email = RecordSet.fields("setting_value").value ' end if 'email code starts here Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields ' Get a handle on the config object and it's fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields ' Set config fields we care about With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.johnstuartphotography.com" 'smtp_server_name .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "contact@johnstuartphotography.com" .Item(cdoSendPassword) = "Ph0t0gr4phy" .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = send_to_email .From = "contact@johnstuartphotography.com" .Subject = comment_name & " submitted a " & contact_type .HTMLBody = sFileText .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing %>




VIEW GALLERY

FEATURED EXHIBIT


image
 image