%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Session("FullName") = cStr(Request("firstname"))& " " & cStr(Request("lastname"))
%>
<%
If (cStr(Request("Submit")) <> "") Then
Dim objCDO, body, x
body = body & " "
For x = 1 to Request.Form.count
body = body & Request.Form.Key(x) & ": "
body = body & Request.Form.Item(x) & "
"
Next
'Response.write body
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = Request.Form("email")
objCDO.To = "gary@galvandesign.com"
objCDO.CC = ""
objCDO.Subject = "Email from Stewart Lodge Contact Us Page."
objCDO.BodyFormat = cdobodyformathtml
objCDO.MailFormat = cdomailformatmime
objCDO.Body = "
![]() |
||
|
|
|
|
©
2006 | The Stewart Lodge at Steelwood |
||