%
if Request.QueryString("mode")="send" then
if Request.Form("colleage")<>"enter your email" or Request.Form("colleage")<>"" then
mymail=Request.Form("colleage")
subject="subject1"
end if
if Request.Form("textfield3")<>"enter your email" or Request.Form("textfield3")<>"" then
mymail=Request.Form("textfield3")
subject="subject2"
end if
if Request.Form("textfield4")<>"enter your email" or Request.Form("textfield4")<>"" then
mymail=Request.Form("textfield4")
subject="subject3"
end if
'Response.Write(mymail&"
")
'Response.Write(subject&"
")
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = subject
objMessage.Sender = mymail
objMessage.To = "info@gigasystems.co.uk"
objMessage.htmlBody = mymail
'objMessage.AddAttachment (spath & "\" & sfile)
objMessage.Send
set objMessage = nothing
end if
%>
| |
|
![]() |
|
![]() |
![]() |
|
|
|
![]() |
||||||||||||||||||||||||
|
||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||