<%
dim content
dim objCDONTS
dim apellido,ad,firma,sehir,tel,fax,mail,konu,celular
dim direccion,estado,pais,comentarios
if request.form("ad")>"" then
if len(mail)=0 then
email="info@metdekorasyon.com"
end if
email=request.form("mail")
apellido=request.form("apellido")
nombre=request.form("ad")
empresa=request.form("firma")
telefono=request.form("tel")
fax=request.form("fax")
celular=request.form("celular")
direccion=request.form("direccion")
estado=request.form("sehir")
pais=request.form("pais")
comentarios=request.form("konu")
'creacion del correo
content = content&""
content = content & ""
content = content & "
İletişim Formu"
content = content & ""
content = content & ""
content = content &"
"
content = content &""
content = content &"İsim | "
content = content &" "&nombre&" | "
content = content &"
"
content = content &""
content = content &"Firma | "
content = content &" "&empresa&" | "
content = content &"
"
content = content &" "
content = content &"E-mail | "
content = content &" "&email&" | "
content = content &"
"
content = content &" "
content = content &"Sehir | "
content = content &" "&estado&" | "
content = content &"
"
content = content &" "
content = content &"Telefon | "
content = content &" "&telefono&" | "
content = content &"
"
content = content &"Fax | "
content = content &""&fax&" | "
content = content &""
content = content &""
content = content &"Mesaj | "
content = content &""&comentarios&" | "
content = content &"
"
content = content & ""
'fin correo
On Error Resume Next
Set objCDONTS = CreateObject("CDO.Message")
objCDONTS.From ="bika@bikaelektrik.com"
objCDONTS.To = "bika@bikaelektrik.com"
objCDONTS.Subject = "ILETISIM FORMU"
objCDONTS.HTMLBody = content
objCDONTS.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDONTS.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.bikaelektrik.com"
objCDONTS.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDONTS.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
objCDONTS.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "bika@bikaelektrik.com"
objCDONTS.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "met2011"
objCDONTS.Configuration.Fields.Update
objCDONTS.Send
If err Then ' hata mesajini alalim Mail Gönderilmemisse..
Response.Write err.Description & "
Mesajiniz Gönderilmedi.."
Else ' Mail Gönderilmis ise
Response.Write("" )
End If
end if
%>
<%if request.form("nombre")>"" then%>
<%end if%>
|
Mesajınız |
| |
|
