İletişim Formu
|
|
<%
If (cStr(Request("Submit")) <> "") Then
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = cStr(Request("varFrom")) 'Senders Email Address
objCDO.To = cStr(Request("info@bursabeyazgulcicekcilik.com")) 'Recipient Email Address
objCDO.Subject = cStr(Request("varSubject"))'Email Subject
objCDO.Body = cStr(Request("varMessage")) 'Email Message
objCDO.Bodyformat = 0
objCDO.Mailformat = 0
objCDO.Send() 'send mail
Set objCDO = Nothing 'Clean up your objects!!!
Response.Write("Message Delivered") 'default response
End If
%>
|
Adres : K.san sit. Par koop. 48.cd.no:57 K.Sanayi / BURSA
Tel. : 224 443 03 56 - 57 -58
Fax : 224 441 61 83
|
|
|