<% If Request.Form="" then %>

Contact Us

All images on www.MKpics.com and www.israel2003.com are Copyright Mickey K 2002-2003.

Most images on www.MKpics.com and www.israel2003.com can be printed. For more information, and prices, please fill out the form below.

If you have any questions or would like us to take pictures at your party, please either send an email with more details to mickey@MKpics.com, or fill out the form below.

Other services we can provide include: Advertising, photography, graphics design, web design, CD replication and computer support. For all of your technology needs, contact MK.

">

Name:

Telephone:

E-mail:

Comments:

<% else name=Request.Form("name") telephone=Request.Form("telephone") email=Request.Form("email") comments=Request.Form("comments") ip=Request.ServerVariables("REMOTE_ADDR") If (name="" or email="" or comments="") then response.write "

Please fill out your name, email and comments.

" response.write "

 

" %> <% Response.end end if emailtext = "Name: " & name & vbCrLf If telephone<>"" then emailtext = emailtext & "Telephone: " & telephone & vbCrLf end if emailtext = emailtext & "E-mail: " & email & vbCrLf emailtext = emailtext & "IP: " & ip & vbCrLf emailtext = emailtext & "Comments: " & vbCrLf & comments myMailServer = "mail.mkpics.com" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = email cdoMessage.To = "mickey@mkpics.com" cdoMessage.Subject = "Israel2003 Comments" cdoMessage.TextBody = emailtext cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing%>

Thank you. Your message has been sent, and a representative will contact you soon.

<% end if%>