Derry Grehan

<%@ Language=VBScript %> <% Response.Buffer=True %> <% If Request.Form("booksubmit") = "Cancel" then Response.Redirect ("index.asp") End If If Request.Form("booksubmit") = "Submit" then set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") ' Setting the SMTP Server Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.update Set objMessage.Configuration = objConfig objMessage.From = Request.Form("email") objMessage.To = "derry@derrygrehan.com" objMessage.Subject = "Booking Request from DerryGrehan.com" objMessage.TextBody = "Name: " + Request.Form("name") + vbCrLf + _ "E-Mail: " + Request.Form("email") + vbCrLf + vbCrLf + _ "Phone: " + Request.Form("phone") + vbCrLf + vbCrLf + _ "Band: " + Request.Form("cmbBand") + vbCrLf + vbCrLf + _ "Desc: " + Request.Form("desc") objMessage.fields.update objMessage.Send Set objMessage = Nothing Set objConfig = Nothing Response.Redirect ("index.asp") End If If Request.Form("booksubmit") = "Send" then set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") ' Setting the SMTP Server Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.update Set objMessage.Configuration = objConfig objMessage.From = Request.Form("email") objMessage.To = "derry@derrygrehan.com" objMessage.Subject = "Message from DerryGrehan.com" objMessage.TextBody = "From: " + Request.Form("name") + vbCrLf + _ "Message: " + Request.Form("desc") objMessage.fields.update objMessage.Send Set objMessage = Nothing Set objConfig = Nothing Response.Redirect ("index.asp") End If %> Derry Grehan

Contact Derry

<%if Request.QueryString("SHOW") = "MENU" then %>

<%end if%> <%if Request.QueryString("SHOW") = "MESSAGE" then %>

Send a Message to Derry:
Name:
E-Mail:
Message:

<%end if%> <%if Request.QueryString("SHOW") = "BOOKING" then %>

Send an E-Mail to Derry requesting booking information:
Name:
E-Mail:
Phone:
Band:
Details:

<%end If%>