SİPARİŞ FORMU ÜYEYE MAİL SORUNU

Selamlar,

arkadaşlar aşağıdaki scriptte mail gönderim sorunu var.
firma mailinden üyeye gitmesi gereken kısım (sipariş bilgileri) gitmiyor.
şu anda üye mailinden firmaya gidiyor yani sistem çalışıyor.
ama üyeye gitmesi gerektiği için ".from" ile ".to" kısımlarını yer değiştirdiğimde browser hata veriyor ve gitmiyor.

ObjSendMail.From = uyemal
ObjSendMail.To = emailimis

yukarıdaki şekilde mailler gidiyor ama tabi ikiside firmaya düşüyor..

hatayı göremediğim için (log kısmı dahil) sorunun ne olduğunu bir türlü anlayamadım.
umarım sorun anlaşılmıştır.

yardımlarınızı bekliyorum.... :((

-----------------------------------------------

<%
function veri(bahacan)
bahacan=replace(bahacan, ">" , "" )
bahacan=replace(bahacan, "<" , "" )
bahacan=replace(bahacan, "%" , "" )
bahacan=replace(bahacan, "*" , "" )
bahacan=replace(bahacan, "'" , "" )
veri=bahacan
end function

smtp = "mail.server.com"

set site=server.createobject("adodb.recordset")
site.open "site",db,1,3
eur=site("eur")
usd=site("usd")
firmaisim=site("firmaisim")
firmaurl=site("firmaurl")
firmaemail=site("firmaemail")
bankaisim=site("bankaisim")
bankasahip=site("bankasahip")
bankasube=site("bankasube")
bankano=site("bankano")
postasahip=site("postasahip")
postano=site("postano")
firmafax=site("firmafax")
garanti=site("garanti")
musterikodu=site("musterikodu")
kullaniciadi=site("kullaniciadi")
kullanicisifresi=site("kullanicisifresi")

site.close

font="font-size:12;font-family:verdana"

islem=request("islem")
odeme=request("odeme")
kargo=request("kargo")
sn=request("sn")
uye=request("uye")

set uyem=server.createobject("adodb.recordset")
uyem.open "uye where uye='"&uye&"'",db,1,3
uyeisim=uyem("isim")
uyman=uyem("uyman")
uyem.close

set rs=server.createobject("adodb.recordset")
rs.open "sepet where sepetno='"&sn&"'",db,1,3
while not rs.eof
fiyat=rs("fiyat")
indirim=rs("indirim")
adet=rs("adet")
kdv=rs("kdv")
pb=rs("pb")
infiyat=fiyat-(fiyat*indirim)/100
if indirim < 1 then
sepetfiyat=fiyat
else
sepetfiyat=infiyat
end if
if pb="EUR" then
sepetfiyat1=sepetfiyat*eur
else
if pb="USD" then
sepetfiyat1=sepetfiyat*usd
else
sepetfiyat1=sepetfiyat
end if
end if
kdvli=sepetfiyat1+(sepetfiyat1*kdv)/100
aratoplam=kdvli*adet
toplam=toplam+aratoplam
rs.movenext
wend

set site=server.createobject("adodb.recordset")
site.open "site",db,1,3
title=site("firmaisim")
site.close

if uye="" then
response.write "<center>UYARI ! Bu Sayfaya Girmeniz Yasaktir. Lütfen Uye Girisi Yaparak Tekrar Giris Yapiniz. Sayfayi Kapatmak için <a href=javascript:self.close()>Tiklayiniz.</a> "
else
%>
<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<title><%=title%> Sipariş İşlemleri</title>
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFFFF" marginwidth="0" marginheight="0">
<div align="center">

<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" width="20" background="img/site/sol.gif"> </td>
<td align="center" valign="top" width="470"><div
align="center"><center><table border="0" cellpadding="0"
cellspacing="0" width="100%">
<tr>
<td width="100%" bgcolor="#000000"><%%></td>
</tr>
</table>
</center></div><table border="0" cellpadding="0"
cellspacing="0" width="100%">
<tr>
<td width="50%" bgcolor="#990033"> 
 
 
 
</td>
<td align="right" valign="bottom" width="50%"
bgcolor="#990033">IP Numaranız : <%response.write ""&request.servervariables("Remote_Addr")&" "%> 
 
</td>
</tr>
<tr>
<td align="center" colspan="2" width="100%"
bgcolor="#990033" height="25">SİPARİŞ
İŞLEMLERİ </td>
</tr>
</table>
<%if odeme="" then%>
Sayın <%=uyeisim%><%=uyman%> ..
Bizden Toplam K.D.V. Dahil <%=formatnumber((toplam),0)%>
TL. Tutarındaki 
Ürün / Ürünleri Talep Ediyorsunuz.
Ödeme Yapmak ve / veya Sipariş Vermek
İçin Aşağıda Belirtilen 
İstediğiniz Ödeme Seçeneği ni ve Kargo yu Seçip Gönder
Butonuna Tıklayınız.
<form method="POST">
<input type="hidden" name="urun" value="<%=urun%>"><div
align="center"><center><table border="0"
cellpadding="5" cellspacing="1">
<tr>
<td align="right" width="150">Bir
Ödeme Şekli Seçiniz : </td>
<td width="150"><select
name="odeme" size="1"
style="<%=font%>;border-width:1;width:150">
<option value="Banka Havalesi">Banka Havalesi</option>
<option value="Posta Çeki">Posta Çeki</option>
</select></td>
</tr>
<tr>
<td align="right" width="150">Bir Kargo Seçiniz : </td>
<td width="150"><select
name="kargo" size="1"
style="<%=font%>;border-width:1;width:150">
<option value="MNG Kargo">MNG Kargo</option>
<option value="Aras Kargo">Aras Kargo</option>
<option value="Yurtiçi Kargo">Yurtiçi Kargo</option>
<option value="UPS">UPS</option>
</select></td>
</tr>
</table>
</center></div><input
type="submit" value=" Gönder "
style="<%=font%>;border-width:1">
</form>
<%else

if odeme="Banka Havalesi" then
onay="Onay Bekliyor"

set rs=server.createobject("adodb.recordset")
rs.open "siparis",db,1,3
rs.addnew
rs("uye")=uye
rs("siparissekli")=odeme
rs("sepetno")=sn
rs("Toplam")=toplam
rs("kargo")=kargo
rs("IP")=request.servervariables("Remote_Addr")
rs("onay")=onay
rs("tarih")=date
rs.update

siparisID=rs("id")

set uyemi=server.createobject("adodb.recordset")
uyemi.open "uye where uye='"&uye&"'",db,1,3

uyemal=uyman
adres=uyemi("adres")
ililce=uyemi("sehir")
pk=uyemi("pk")
emailimis=firmaemail

baslik=""&firmaisim&" - Sipariş Bilgileriniz."

tavsiye= ""
tavsiye= tavsiye & "Sayın "&uyeisim&"" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & ""&firmaurl&" Web Sitemizde "&now()&" Tarihi İtibariyle Vermiş Olduğunuz Sipariş Bilgileriniz Aşağıdaki Gibidir :" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "Sipariş Numaranız : "&siparisID&"" & vbcrlf
tavsiye= tavsiye & "Seçtiğiniz Ödeme Şekli : "&odeme&"" & vbcrlf
tavsiye= tavsiye & "Seçtiğiniz Kargo : "&kargo&"" & vbcrlf
tavsiye= tavsiye & "Ödemeniz Gereken Tutar : "&formatnumber((toplam),0)&"" & vbcrlf
tavsiye= tavsiye & "IP Numaranız : "&request.servervariables("Remote_Addr")&"" & vbcrlf
tavsiye= tavsiye & "Siparişinizin Durumu : "&onay&"" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "Sipariş Edilen Ürün / Ürünler :" & vbcrlf
set rs=server.createobject("adodb.recordset")
rs.open "sepet where sepetno='"&sn&"'",db,1,3
while not rs.eof
tavsiye= tavsiye & ""&rs("isim")&"" & vbcrlf
rs.movenext
wend
tavsiye= tavsiye & "Tüm sipariş bilgileriniz yukarıda yazılmıştır. Sipariş ettiğiniz ürün / ürünlerin" & vbcrlf
tavsiye= tavsiye & "toplam tutarı olan K.D.V. dahil "&formatnumber((toplam),0)&" TL yi aşağıda belirttiğimiz" & vbcrlf
tavsiye= tavsiye & "banka hesabımıza yatırdığınız taktirde üye olurken belirttiğiniz "&adres&" - "&ililce&" - "&pk&" " & vbcrlf
tavsiye= tavsiye & "teslimat adresinize "&kargo&" ile gönderilecektir. Tüm kargo masrafları size aittir." & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "BANKA HESAP BİLGİLERİMİZ :" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "Hesap Sahibi : "&bankasahip&"" & vbcrlf
tavsiye= tavsiye & "Banka Adı : "&bankaisim&"" & vbcrlf
tavsiye= tavsiye & "Banka Şube Kodu : "&bankasube&"" & vbcrlf
tavsiye= tavsiye & "Banka Hesap Numarası : "&bankano&"" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "Bizi seçtiğiniz ve bizden alışveriş yaptığınız için teşekkürler.." & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & ""&firmaisim&" - "&firmaurl&"" & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & " ( Havale Esnasında Banka Dekontundaki NOT Bölümüne "&siparisID&" Sipariş ID Numaranızı Yazmayı Unutmayınız. ) " & vbcrlf
tavsiye= tavsiye & "" & vbcrlf
tavsiye= tavsiye & " ( Siparişinizi Siparişlerim Bölümünden "&siparisID&" Sipariş ID Numarasıyla Takip Edebilirsiniz. ) " & vbcrlf

if uyemal<>"" then

Set ObjSendMail = CreateObject("CDO.Message")

'This section provides the configuration information for the remote SMTP server.

ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="mail.server.com"
ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

ObjSendMail.Configuration.Fields.Update

'End remote SMTP server configuration section==

ObjSendMail.To = emailimis
ObjSendMail.Subject = "this is the subject"
ObjSendMail.From = uyemal

' we are sending a text email.. simply switch the comments around to send an html email instead
'ObjSendMail.HTMLBody = "this is the body"
ObjSendMail.TextBody = "this is the body"

ObjSendMail.Send

Set ObjSendMail = Nothing

set rs=server.createobject("adodb.recordset")
rs.open "uye where uye='"&uye&"'",db,1,3

adres1=rs("adres")
ililce1=rs("sehir")
pk1=rs("pk")
emailim1=firmaemail

baslik1="Yeni Bir Sipariş Var."

tavsiye1= ""
tavsiye1= tavsiye1 & ""&now()&" Tarihi İtibariyle Verilen Sipariş Bilgileri Aşağıdaki Gibidir :" & vbcrlf
tavsiye1= tavsiye1 & "" & vbcrlf
tavsiye1= tavsiye1 & "Sipariş Veren : "&uyeisim&" - "&uye&"" & vbcrlf
tavsiye1= tavsiye1 & "Siparişi Veren Teslimat Adresi : "&adres1&" - "&ililce1&" - "&pk1&"" & vbcrlf
tavsiye1= tavsiye1 & "Sipariş Numarası : "&siparisID&"" & vbcrlf
tavsiye1= tavsiye1 & "Seçilen Ödeme Şekli : "&odeme&"" & vbcrlf
tavsiye1= tavsiye1 & "Seçilen Kargo : "&kargo&"" & vbcrlf
tavsiye1= tavsiye1 & "Ödenmesi Gereken Tutar : "&formatnumber((toplam),0)&"" & vbcrlf
tavsiye1= tavsiye1 & "IP Numarası : "&request.servervariables("Remote_Addr")&"" & vbcrlf
tavsiye1= tavsiye1 & "Siparişin Durumu : "&onay&"" & vbcrlf
tavsiye1= tavsiye1 & "" & vbcrlf
tavsiye1= tavsiye1 & "Sipariş Edilen Ürün / Ürünler :" & vbcrlf
set rs=server.createobject("adodb.recordset")
rs.open "sepet where sepetno='"&sn&"'",db,1,3
while not rs.eof
tavsiye1= tavsiye1 & ""&rs("isim")&"" & vbcrlf
rs.movenext
wend
tavsiye1= tavsiye1 & "" & vbcrlf
tavsiye1= tavsiye1 & "" & vbcrlf
tavsiye1= tavsiye1 & ""&firmaisim&" - "&firmaurl&"" & vbcrlf

if emailim1<>"" then
set imsg = createobject("cdo.message")
set iconf = createobject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp
.Update
End With
With iMsg
Set .Configuration = iConf
.To = emailim1
.From = emailim1
.Subject = baslik1
.TextBody = tavsiye1
.fields.update
.Send
End With
set imsg = nothing
set iconf = nothing

end if%>

Sayın <%=uyeisim%> ..
Banka Havalesi ile Ödeme
Şeklini Seçtiniz. 
Siparişiniz <%=siparisID%> SiparişID Olarak ve IP
Numaranız <%=request.servervariables("Remote_Addr")%> Olarak Kayıt Edildi. 
Daha Sonra Siparişinizi <%=siparisID%> SiparişID
Numarasıyla Siparişlerim Bölümünden Takip
Edebilirsiniz.
Sipariş Ettiğiniz Ürünlerinizin Toplam
Tutarı Olan K.D.V. Dahil <%=formatnumber((toplam),0)%> TL. yi 1
( bir ) İş Günü İçerisinde Aşağıda
Belirttiğimiz Banka Hesabımıza Yatırdığınız
Taktirde Üye Olurken Belirttiğiniz Teslimat Adresinize
Ürünleriniz <%=kargo%> ile Gönderilecektir.Tüm
Kargo Masrafları Size Aittir.
Bizi Seçtiğiniz ve Bizden Alışveriş
Yaptıgınız İçin Teşekkürediyoruz.
<table border="1" cellpadding="2" cellspacing="1"
width="100%" bordercolor="#FFFFFF">
<tr>
<td align="center" colspan="2" bgcolor="#F5F5F5"
bordercolor="#990033">BANKA HESAP
BİLGİLERİMİZ</td>
</tr>
<tr>
<td align="right" width="50%"
bordercolor="#990033">Hesap Sahibi : </td>
<td width="50%" bordercolor="#990033"><%=bankasahip%> </td>
</tr>
<tr>
<td align="right" width="50%"
bordercolor="#990033">Banka Adı : </td>
<td width="50%" bordercolor="#990033"><%=bankaisim%> </td>
</tr>
<tr>
<td align="right" width="50%"
bordercolor="#990033">Banka Şube Kodu
: </td>
<td width="50%" bordercolor="#990033"><%=bankasube%> </td>
</tr>
<tr>
<td align="right" width="50%"
bordercolor="#990033">Hesap Numarası :
</td>
<td width="50%" bordercolor="#990033"><%=bankano%> </td>
</tr>
</table>
Not : Havale İşleminde Havale Makbuzunun
NOT Bölümüne <%=siparisID%> Nolu SiparişID
nizi Yazmayı Unutmayınız. 
 
 
<a href="javascript:self.close()">Sayfayı
Kapatmak İçin Tıklayınız.</a>


<%end if
end if
end if
end if

%>
<table border="0" cellpadding="0" cellspacing="0"
width="100%">
<tr>
<td align="center" width="100%" bgcolor="#990033"
height="20">Gazi
Logo 2006</td>
</tr>
</table>
</td>
<td valign="top" width="20" background="img/site/sag.gif"> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</div>
</body>
</html>
-----------------------------------------------

SİPARİŞ FORMU ÜYEYE MAİL SORUNU

Benzer içerikler