%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If request.form("submitted") then Dim EmailSender EmailSender="webmaster@webbiz.co.uk" If Request.Form("email") <> "" Then EmailSender=Request.Form("email") End If 'Build Message strMessage= "Form Submitted from the Gretna Digital Photography Website" & date() & vbcrlf & vbcrlf strMessage= strMessage & "Name : " & Request.Form("name") & vbcrlf strMessage= strMessage & "Address Line 1: " & Request.Form("address1") & vbcrlf strMessage= strMessage & "Address Line 2: " & Request.Form("address2") & vbcrlf strMessage= strMessage & "Town : " & Request.Form("town") & vbcrlf strMessage= strMessage & "County : " & Request.Form("county") & vbcrlf strMessage= strMessage & "Postcode : " & Request.Form("postcode") & vbcrlf strMessage= strMessage & "Email Address : " & Request.Form("email") & vbcrlf strMessage= strMessage & "Telephone : " & Request.Form("telephone") & vbcrlf strMessage= strMessage & "Comments : " & Request.Form("comments") & vbcrlf ' Send Contact Dim oMailer Set oMailer = New Webbiz_Mailer With oMailer .Create() .Subject = "Form Submitted from the Gretna Digital Photography Website." .EmailFrom = EmailSender .AddRecipient("webmaster@gretnagreendigitalphotography.co.uk") .Message = strMessage .HTMLMail = 0 .Send End With Set oMailer = Nothing Response.Redirect("response.asp") End If %>
|
|
|||||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||||||
![]() |
|
|||||||||||||||||||||||||||||
Contact Details |
||||||||||||||||||||||||||||||
| You can write to Gretna Green Digital Photography at:
57 Dunedin Road Tel: |
||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||