<%
If Request("act") = "store" Then
	Session("name") = Request("name")
	Session("address") = Request("address")
	Session("city") = Request("city")
	Session("postcode") = Request("postcode")
	Session("email") = Request("email")
	Session("tel_no") = Request("tel_no")
	Session("quote_req") = Request("quote_req")
	Session("property") = Request("property")
	Session("store") = True	
	
	Response.Buffer = True
	Response.Redirect "onlinequote-b.html"		
End If

If Request("act") = "send" And Session("store") Then
	Dim omail, body, i
	body = "Website Enquiry, sent: " & Now() & vbCrLf & vbCrLf
	body = body & "Customer Details:" & vbCrLf
	body = body & "-----------------" & vbCrLf
	body = body & "Name: " & Session("name") & vbCrLf
	body = body & "Address: " & Session("address") & vbCrLf
	body = body & "City: " & Session("city") & vbCrLf
	body = body & "Postcode: " & Session("postcode") & vbCrLf
	body = body & "E-Mail: " & Session("email") & vbCrLf
	body = body & "Tel: " & Session("tel_no") & vbCrLf & vbCrLf

	body = body & "Quotation Details:" & vbCrLf
	body = body & "-----------------" & vbCrLf
	body = body & "Quote Request: " & Session("quote_req") & vbCrLf
	body = body & "Property Details: " & Session("property") & vbCrLf
	
	body = body & "Ridge Roof Position: " & Request("ridge_roof") & vbCrLf
	body = body & "Hipped Roof Position: " & Request("hipped_roof") & vbCrLf
	body = body & "Roof Covering: " & Request("roof_covering") & vbCrLf & vbCrLf
	body = body & "Recommended by: " & Request("recommended")
	If Request("recommended") = "Other" Then
		body = body & " - " & Request("other")
	End If

	Set omail = Server.CreateObject("CDONTS.NewMail")
	omail.From = "webmaster@scottishchimneys.co.uk"
	'omail.To = "brian@mcateer.info"
	omail.To = "enquiries@scottishchimneys-omh.com"
	omail.Subject = "Website Enquiry"
	omail.Body = body
	omail.Send
	Set omail = nothing
	
	Session("store") = False
	Response.Buffer = True
	Response.Redirect "quote_sent.html"
Else
	Response.Buffer = True
	Response.Redirect "onlinequote-a.html"
End If
%>