Kod: Tümünü seç
email="yenihaber@yenihabernet.com"
adsoyad=isim & " " & soyisim
addresstoemail= email
addressto=isim & " " & soyisim
konu= "Siparis Formu"
emailbody= Body
Dim mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.yenihabernet.com"
Mail.From = email
Mail.FromName = adsoyad
Mail.AddAddress addresstoemail, addressto
Mail.AddReplyTo email
Mail.Subject = konu
Mail.Body = emailbody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Hata Var: " & Err.Description
Else
Response.Write "Siparişiniz Başarıyla Gönderilmiştir."
End If
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/nokshop/yolla.asp, line 91
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
Şimdiden herkese teşekkür ederim.
*****Kodlarınızı yazarken kod bloklarınızı kullanınız. HUSONET