Lütfen bana yardımcı olunuz bunu nasıl çözebilirm????
scrpit çalışmıyor....
HATA ŞU :
Microsoft JET Database Engine error '80004005'
'C:\website\crimsontide\karakayaticaret.com.tr\www \db\jakurun.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.
/includes/ayar.asp, line 6
db ler ana dizinde
/httpdocs/db içinde
guresurun.mdb
jakadmin.mdb
jakurun.mdb
maillist.mdb
maillist2.mdb
içinde de bunlar var
paths.asp içeriği bu şekilde
<%
db_dizin = "C:\website\crimsontide\karakayaticaret.com.tr\www \db"
server_dizin = "C:\website\crimsontide\karakayaticaret.com.tr\www \foto_arsiv\urun"
admin_dizin = "C:\website\crimsontide\karakayaticaret.com.tr\www \admin"
img_src = "foto_arsiv/urun"
veri_tabani="jakurun"
veri_tabani2="jakadmin"
'db_dizin = "F:\HostingSpaces\NBSHosting\jakpirlanta.com\wwwro ot\db"
'server_dizin = "F:\HostingSpaces\NBSHosting\jakpirlanta.com\wwwro ot\foto_arsiv\urun"
'admin_dizin = "F:\HostingSpaces\NBSHosting\jakpirlanta.com\wwwro ot\admin"
'img_src = "foto_arsiv/urun"
'veri_tabani="jakurun"
'veri_tabani2="jakadmin"
%>
ayar.asp İÇERİĞİDE BU SEKİLDE :
<% Response.Expires = 0 %>
<!-- #include file=paths.asp -->
<%set BAGLANTI=Server.CreateObject("ADODB.Connection")
BAGLANTI.Provider="Microsoft.Jet.OLEDB.4.0"
BAGLANTI.Open ""&db_dizin&"\"&veri_tabani&".mdb"
set ADMINBAGLANTI=Server.CreateObject("ADODB.Connectio n")
ADMINBAGLANTI.Provider="Microsoft.Jet.OLEDB.4.0"
ADMINBAGLANTI.Open ""&db_dizin&"\"&veri_tabani2&".mdb"
%>
<!-- #include file=siparis_ayar.asp-->
<%
'----------------------------------------------------------
y1="HATA: Müşteri numaranız veya şifreniz yanlış!"
y2="HATA: Bağlantınız zaman aşımına uğradı, lütfen tekrar giriş yapınız!"
y3="Üye Firma Girişi"
y4="Lütfen Müşteri Numaranızı ve Şifrenizi Yazınız!"
y5="Müşteri No:"
y6="Şifre:"
y7="GİRİŞ"
Function RemoveHTML( strText )
Dim TAGLIST
TAGLIST = ";!--;!DOCTYPE;A;ACRONYM;ADDRESS;APPLET;AREA;B;BASE;BAS EFONT;" &_
"BGSOUND;BIG;BLOCKQUOTE;BODY;BR;BUTTON;CAPTION;CEN TER;CITE;CODE;" &_
"COL;COLGROUP;COMMENT;DD;DEL;DFN;DIR;DIV;DL;DT;EM; EMBED;FIELDSET;" &_
"FONT;FORM;FRAME;FRAMESET;HEAD;H1;H2;H3;H4;H5;H6;H R;HTML;I;IFRAME;IMG;" &_
"INPUT;INS;ISINDEX;KBD;LABEL;LAYER;LAGEND;LI;LINK; LISTING;MAP;MARQUEE;" &_
"MENU;META;NOBR;NOFRAMES;NOSCRIPT;OBJECT;OL;OPTION ;P;PARAM;PLAINTEXT;" &_
"PRE;Q;S;SAMP;SCRIPT;SELECT;SMALL;SPAN;STRIKE;STRO NG;STYLE;SUB;SUP;" &_
"TABLE;TBODY;TD;TEXTAREA;TFOOT;TH;THEAD;TITLE;TR;T T;U;UL;VAR;WBR;XMP;"
Const BLOCKTAGLIST = ";APPLET;EMBED;FRAMESET;HEAD;NOFRAMES;NOSCRIPT;OBJ ECT;SCRIPT;STYLE;"
Dim nPos1
Dim nPos2
Dim nPos3
Dim strResult
Dim strTagName
Dim bRemove
Dim bSearchForBlock
nPos1 = InStr(strText, "<")
Do While nPos1 > 0
nPos2 = InStr(nPos1 + 1, strText, ">")
If nPos2 > 0 Then
strTagName = Mid(strText, nPos1 + 1, nPos2 - nPos1 - 1)
strTagName = Replace(Replace(strTagName, vbCr, " "), vbLf, " ")
nPos3 = InStr(strTagName, " ")
If nPos3 > 0 Then
strTagName = Left(strTagName, nPos3 - 1)
End If
If Left(strTagName, 1) = "/" Then
strTagName = Mid(strTagName, 2)
bSearchForBlock = False
Else
bSearchForBlock = True
End If
If InStr(1, TAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
bRemove = True
If bSearchForBlock Then
If InStr(1, BLOCKTAGLIST, ";" & strTagName & ";", vbTextCompare) > 0 Then
nPos2 = Len(strText)
nPos3 = InStr(nPos1 + 1, strText, "</" & strTagName, vbTextCompare)
If nPos3 > 0 Then
nPos3 = InStr(nPos3 + 1, strText, ">")
End If
If nPos3 > 0 Then
nPos2 = nPos3
End If
End If
End If
Else
bRemove = False
End If
If bRemove Then
strResult = strResult & Left(strText, nPos1 - 1)
strText = Mid(strText, nPos2 + 1)
Else
strResult = strResult & Left(strText, nPos1)
strText = Mid(strText, nPos1 + 1)
End If
Else
strResult = strResult & strText
strText = ""
End If
nPos1 = InStr(strText, "<")
Loop
strResult = strResult & strText
RemoveHTML = strResult
End Function
'Türkçe dönüştürme fonksiyonu
Function TrTumHarfler(Str)
Dim i, S, R, Ch
if Str<>"" then
R = ""
for i = 1 to Len(Str)
Ch = Mid(Str, i, 1)
Select Case Ch
Case "ı"
S = "I"
Case "ş"
S = "Ş"
Case "ç"
S = "Ç"
Case "i"
S = "İ"
Case "ğ"
S = "Ğ"
Case "ü"
S = "Ü"
Case "ö"
S = "Ö"
Case else
S = UCase(CH)
End Select
R = R + S
next
TrTumHarfler = R
else
TrTumHarfler = Str
end if
End Function
Function TrkucukHarfler(Str)
Dim i, S, R, Ch
if Str<>"" then
R = ""
for i = 1 to Len(Str)
Ch = Mid(Str, i, 1)
Select Case Ch
Case "I"
S = "ı"
Case "Ş"
S = "ş"
Case "Ç"
S = "ç"
Case "İ"
S = "i"
Case "Ğ"
S = "ğ"
Case "Ü"
S = "ü"
Case "Ö"
S = "ö"
Case else
S = LCase(CH)
End Select
R = R + S
next
TrkucukHarfler = R
else
TrkucukHarfler = Str
end if
End Function
Function TrKilkHarfler(Str)
Dim i, S, R, Ch
if Str<>"" then
R = ""
for i = 1 to Len(Str)
Ch = Mid(Str, i, 1)
if i<2 then
Select Case Ch
Case "ı"
S = "I"
Case "ş"
S = "Ş"
Case "ç"
S = "Ç"
Case "i"
S = "İ"
Case "ğ"
S = "Ğ"
Case "ü"
S = "Ü"
Case "ö"
S = "Ö"
Case else
S = UCase(CH)
End Select
R = R + S
else
S = CH
R = R + S
end if
next
TrKilkHarfler = R
else
TrKilkHarfler = Str
end if
End Function
Function TrilkHarfler(Str)
Dim i, S, R, Ch
if Str<>"" then
R = ""
for i = 1 to Len(Str)
Ch = Mid(Str, i, 1)
if i<2 then
Select Case Ch
Case "ı"
S = "I"
Case "ş"
S = "Ş"
Case "ç"
S = "Ç"
Case "i"
S = "İ"
Case "ğ"
S = "Ğ"
Case "ü"
S = "Ü"
Case "ö"
S = "Ö"
Case else
S = UCase(CH)
End Select
R = R + S
else
S = CH
R = R + S
end if
next
TrilkHarfler = R
else
TrilkHarfler = Str
end if
End Function
class form_islemleri
'form doğrulama fonksiyonu
public function form_dogrulama(d)
bol=Split(d, ":", -1, 1)
form_dogrulama_hatasi=""
for i=0 to ubound(bol)
i=i+1
if request(""&bol(i-1)&"")="" then
form_dogrulama_hatasi="<b>" & form_dogrulama_hatasi+bol(i)&"</b> , "
end if
next
form_dogrulama="<font size=""2"" color=""#cc0000"">"& form_dogrulama_hatasi& "</font>"
end function
end class
function IsEmail(email)
emailaddr = CStr(email)
if Not InStr(emailaddr, "@") > 0 Then
IsEmail = False
Exit function
End if
if Not InStr(emailaddr, ".") > 0 Then
IsEmail = False
Exit function
End if
if Not Len(Left(emailaddr, Instr(emailaddr, "@") - 1)) => 3 Then
IsEmail = False
Exit function
End if
strTemp = Mid(emailaddr, InStr(emailaddr, "@") + 1, Len(emailaddr))
if Not Len(Left(strTemp, InStr(strTemp, ".") - 1)) => 3 Then
IsEmail = False
Exit function
End if
if Not Len(Right(strTemp, Len(strTemp) - Instr(strTemp, "."))) => 2 Then
IsEmail = False
Exit function
End if
IsEmail = True
End function
function temizle(inp)
inp = trim(inp)
inp = replace(inp,"'","")
inp = replace(inp,";","")
inp = replace(inp,"--","")
inp = replace(inp,"*","")
inp = replace(inp,"select","sl",1,-1,1)
inp = replace(inp,"update","ud",1,-1,1)
inp = replace(inp,"insert","is",1,-1,1)
inp = replace(inp,"delete","dl",1,-1,1)
inp = replace(inp,"grant","ga",1,-1,1)
inp = replace(inp,"group","gp",1,-1,1)
inp = replace(inp,"exec","ec",1,-1,1)
inp = replace(inp,"sp_","s_p",1,-1,1)
inp = replace(inp,"xp_","x_p",1,-1,1)
inp = replace(inp,"dt_","d_t",1,-1,1)
inp = replace(inp,"chr","ch",1,-1,1)
inp = replace(inp,"char","cnh",1,-1,1)
inp = replace(inp,"create","cr",1,-1,1)
inp = replace(inp,"where","wr",1,-1,1)
inp = replace(inp,"script","srp",1,-1,1)
inp = replace(inp,"schema","SCHM",1,-1,1)
inp = replace(inp,"union","uno",1,-1,1)
inp = replace(inp,"1=1"," ",1,-1,1)
temizle = inp
end function
sub hataVar(param)
Response.write ("<br><center><div class=""hata""><center><br>"& param &"<br><br></center></div></center><br>")
end sub
Public Function ddegis2(d)
bir=DatePart("m",d)
iki=DatePart("d",d)
uc=DatePart("yyyy",d)
ddegis=bir&"/"&iki&"/"&uc
End Function
%>
<%sub kkFormu(actionum)%>
<SCRIPT language=JavaScript>
<!--
function openDUYURU(theSrc,windowName,imgWidth,imgHeight) {
newPage = theSrc;
picWindow = window.open(newPage,windowName,"toolbar=no,width=" + eval(parseInt(imgWidth) + 0) + ",height=" + eval(parseInt(imgHeight) + 0) + ",directories=no,status=no,scrollbars=yes,resizabl e=no,menubar=no");
}
//-->
</SCRIPT>
<script language="JavaScript">
<!--
function checkform(){
if (document.signup.confirm.checked == false){
alert("Ödeme Yapmadan Önce Kullanım Şartlarını Kabul Etmelisiniz")
return false} }
//-->
</script>
<table width="100%">
<tr>
<td valign="top" width="100%">
<form method=post action="<%=actionum%>" name="signup" onSubmit="return checkform(this.form)">
<table width="489">
<tr><td>
<font face="Trebuchet MS">
<font color="#336699"><b><span style="font-size: 9pt">KREDİ KARTI BİLGİLERİ</span></b></font><span style="font-size: 9pt"><br><br>
</span></font>
<table class="yorumTablo3" width="500" cellspacing="3" height="30">
<tr>
<td width="30%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">Kart Sahibi</span></b></font></td>
<td width="5%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="65%">
<span style="font-size: 9pt">
<font face="Trebuchet MS"><input type="text" name="ad" maxlength="50" size="50" class="input" value="<%=kk_ad%>" autocomplete="off" <%=durum%>></font></span></td>
</tr>
</table>
</td></tr>
<tr><td>
<table class="yorumTablo2" width="500" cellspacing="3" height="30">
<tr>
<td width="30%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">Kart Tipi</span></b></font></td>
<td width="5%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="65%"><table cellspacing="0" cellpadding="0">
<tr>
<% if kartType = "visa" then
visa=" checked "
elseif kartType = "master" then
master=" checked"
end if%>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input type="radio" name="kartType" value="visa" <%=visa%> <%=durum%>></font></span></td>
<td><font face="Trebuchet MS">
<span style="font-size: 9pt">Visa</span></font></td>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input type="radio" name="kartType" value="master" <%=master%> <%=durum%>></font></span></td>
<td><font face="Trebuchet MS">
<span style="font-size: 9pt">Master</span></font></td>
</tr>
</table></td>
</tr>
</table>
</td></tr>
<tr><td>
<table class="yorumTablo3" width="500" cellspacing="3" height="30">
<tr>
<td width="30%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">Son Kullanma Tarihi</span></b></font></td>
<td width="5%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="65%">
<span style="font-size: 9pt">
<font face="Trebuchet MS">
<select class="textbox" size="1" name="AY" <%=durum%>>
<% for i = 1 to 12 %>
<% if len(i) = 1 then : i = "0"& i : end if %>
<% if cstr(i)= ay then %>
<option value="<%=i%>" selected><%=i%></option>
<% else %>
<option value="<%=i%>"><%=i%></option>
<% end if %>
<% next %>
</select>
<select class="textbox" size="1" name="YIL" <%=durum%>>
<% for i = 8 to 20 %>
<% if len(i) = 1 then : i = "0"& i : end if %>
<% if cstr(i)= yil then %>
<option value="<%=i%>" selected>20<%=i%></option>
<% else %>
<option value="<%=i%>">20<%=i%></option>
<% end if %>
<% next %>
</select>
</font></span>
</td>
</tr>
</table>
</td></tr>
<tr><td>
<table class="yorumTablo2" width="500" cellspacing="3" height="30">
<tr>
<td width="30%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">Kredi Kartı Numarası</span></b></font></td>
<td width="5%"><font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="65%">
<table>
<tr>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input class="input" maxLength="4" size="4" name="kkno1" value="<%=kkno1%>" autocomplete="off" <%=durum%>></font></span></td>
<td> </td>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input class="input" maxLength="4" size="4" name="kkno2" value="<%=kkno2%>" autocomplete="off" <%=durum%>></font></span></td>
<td> </td>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input class="input" maxLength="4" size="4" name="kkno3" value="<%=kkno3%>" autocomplete="off" <%=durum%>></font></span></td>
<td> </td>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input class="input" maxLength="4" size="4" name="kkno4" value="<%=kkno4%>" autocomplete="off" <%=durum%>></font></span></td>
<td></td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr>
<tr><td>
<table class="yorumTablo3" width="500" cellspacing="3" height="30">
<tr>
<td width="30%" valign="top">
<font face="Trebuchet MS"><b>
<span style="font-size: 9pt">CvC2</span></b></font></td>
<td width="5%" valign="top">
<font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="65%">
<table border="0">
<tr>
<td><span style="font-size: 9pt">
<font face="Trebuchet MS"><input class="input" maxLength="3" size="3" name="cvc2" value="<%=cvc2%>" autocomplete="off" <%=durum%>></font></span></td>
<td><font face="Trebuchet MS"><i>
<span style="font-size: 9pt">(3 Haneli Gücenlik Kodu)</span></i></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td></tr> <tr><td>
<table class="yorumTablo3" width="497" cellspacing="3" height="30">
<tr>
<td width="20%" valign="top">
<b>
<font face="Trebuchet MS" style="font-size: 9pt">
Taksit Seçenekleri</font></b></td>
<td width="1%" valign="top">
<font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="58%">
<font face="Trebuchet MS">
<select name="taksit" style="width:313; height:21" >
<option value="0">Taksitli Almak İstiyorsanız Oran Seçin</option>
<%
set banka = Server.CreateObject("ADODB.recordset")
sql="select * from taksit_oranlari where banka_id = "&request("kartid")&""
banka.Open sql, BAGLANTI,1,3
%>
<% do while not banka.eof %>
<%
birimFiyat = ((banka("oran")+100)*session("tutar"))/100
%>
<option value="<%=banka("id")%>"> <%=banka("taksit_sayisi")%> Taksit x <%=formatnumber(birimFiyat/banka("taksit_sayisi"),2)%> TL = <%=formatnumber(birimFiyat,2)%> TL</option>
<% banka.movenext : loop %>
</select></font><font size="2" face="Trebuchet MS">
</font>
</td>
</tr>
</table>
</td></tr> <tr><td>
<table class="yorumTablo2" width="482" cellspacing="3" height="30">
<tr>
<td width="75" valign="top">
<font face="Trebuchet MS"><b>
<span style="font-size: 9pt">İletmek İstedikleriniz</span></b></font></td>
<td width="4" valign="top">
<font face="Trebuchet MS"><b>
<span style="font-size: 9pt">:</span></b></font></td>
<td width="385">
<span style="font-size: 9pt">
<font face="Trebuchet MS">
<textarea name="nots" rows="6" cols="44" class="input" <%=durum%>><%=nots%></textarea>
</font></span>
</td>
</tr><tr><td width="-5">
<p align="center">
<input type="checkbox" name="confirm" value="check me"></td>
<td colspan="2" width="394">
<font size="2" face="Trebuchet MS"><a class="BannerTopLink" style="text-decoration: none; font-weight:700" href="javaScript
penDUYURU('kart.asp','100','518' ,'350')"><font color="#FF0000">Kullanım
Şartlarını Okudum Kabul Ediyorum</font><font color="#FF0000">
(Okumak İçin Tıklayın)</font></a></font></td></tr>
</table>
</td></tr>
<tr><td>
<table class="yorumTablo2" width="500" cellspacing="3" height="30">
<tr>
<td align="right"><br>
<% if durum<>" disabled " then %>
<input type="image" src="images/sonlandir.jpg" border="0">
<% else %>
<img src="images/sonlandir.jpg" border="0">
<% end if %>
</td>
</tr>
</table>
</td></tr>
</table>
</form>
</td>
<td valign="top"><br><br> </td>
</tr>
</table>
<% end sub %>
<% sub miniCardSub
miniCard = "<p align=""right""><div style=""border-collapse: collapse; border:1px solid #E2E5EC; width:400px;"">" & vbcrlf
set rs = Server.CreateObject("ADODB.recordset")
sql="select * from siparisler,sepet,urunler,kdvOrani,fiyatBirimi where sepet.siparisId = siparisler.id and urunler.id = sepet.urun_id and urunler.kdvOraniId = kdvOrani.id and urunler.fiyatBirimi = fiyatBirimi.id and siparisNo='"& session("siparisNo") &"'"
rs.Open sql, BAGLANTI,1,3
i =0 : do while not rs.eof
miniCard = miniCard & "<center><table width=""400"" border=""0"" cellpadding=""5"" cellspacing=""0"" height=""60"">" & vbcrlf
if rs("bayyimi") = "1" then
fiyatDonusmus = (rs("bayifiyat")*rs("carpan"))
Else
fiyatDonusmus = (rs("urunler.fiyat")*rs("carpan"))
End if
if kdvDahil=true then
birimF = FormatNumber((fiyatDonusmus*(rs("kdvOrani")+100))/100,2)
else
birimF = fiyatDonusmus
end if
miniCard = miniCard & "<tr>" & vbcrlf
miniCard = miniCard & "<td width=""150"">"
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists(""&server_dizin&"/"&rs("urunler.id")&"_1.jpg") Then
miniCard = miniCard & "<center><a href=""javascript:void(0)"" onclick=""sel('fotos.aspx?path="& img_path &"/"
miniCard = miniCard & rs("urunler.id")&"_1.jpg""');return false;"" target=""_blank""><img name=""photo"&i&""" src=""thumber.aspx?src="& img_src&"/"& rs("urunler.id")&"_1.jpg&boy=60&genislik=60"" border=""0"" hspace=""5"" vspace=""5""></a></center>"
end if
miniCard = miniCard & "</td>"
miniCard = miniCard & "<td width=""50""><font size=""1""><b>"& rs("adet")&" adet</b></font></td>"
miniCard = miniCard & "<td width=""225""><font size=""1""><b><a href=""productDetail.asp?id="& rs("urunler.id")&""">"& rs("urunAdi")&"</a></b></font></td>"
miniCard = miniCard & "<td width=""75"" align=""right""><font size=""1"" class=""icOzellik""><b>"& formatnumber(birimF,2)&" TL</b></font></td>"
miniCard = miniCard & "<td width=""75"" align=""right""><font size=""1"" class=""icOzellik""><b>"& birimF*rs("adet")&" TL</b></font></td>"
miniCard = miniCard & "</tr></table></center>"
toplamFiyat = toplamFiyat + birimF*rs("adet")
miniCard = miniCard & "<center><div style=""width=400"" height=""1"" style=""background-color:#A8C5E1""><img src=""images/spacer.gif"" width=""1"" height=""1""></div></center>"
i = i + 1 : rs.movenext : loop
miniCard = miniCard & "<center><table width=""400"" border=""0"" cellpadding=""0"" cellspacing=""5"" height=""50"">"
miniCard = miniCard & "<tr><td width=""300"" align=""right""><font color=""red"" size=""2""><b>SEPET TOPLAMI ( KDV Dahil )</b></font></td>"
miniCard = miniCard & "<td width=""100"" align=""right""><font size=""2"" color=""red"" class=""icOzellik""><b>"& FormatNumber(toplamFiyat,2)&" TL -</b></td>"
miniCard = miniCard & "</tr></table></center>"
miniCard = miniCard & "</div></p>"
response.write miniCard
end sub %>
<%
function miniCardForMail
icerikforMail = "<br><br><table width=""600"">" & vbcrlf
set rs = Server.CreateObject("ADODB.recordset")
sql="select * from siparisler,sepet,urunler,kdvOrani,fiyatBirimi where sepet.siparisId = siparisler.id and urunler.id = sepet.urun_id and urunler.kdvOraniId = kdvOrani.id and urunler.fiyatBirimi = fiyatBirimi.id and siparisNo='"& session("siparisNo") &"'"
rs.Open sql, BAGLANTI,1,3
i =0 : do while not rs.eof
if rs("bayyimi") = "1" then
fiyatDonusmus = (rs("bayifiyat")*rs("carpan"))
Else
fiyatDonusmus = (rs("urunler.fiyat")*rs("carpan"))
End if
if kdvDahil=true then
birimF = FormatNumber((fiyatDonusmus*(rs("kdvOrani")+100))/100,2)
else
birimF = fiyatDonusmus
end if
if request("taksit") <> 0 then
set rs2 = Server.CreateObject("ADODB.recordset")
sql="select * from taksit_oranlari where id = "& cint(request("taksit")) &" "
rs2.Open sql, BAGLANTI,1,3
session("taksit") = rs2("taksit_sayisi")
session("taksit_secenek") = session("taksit")
Taksit = session("taksit")
toplamFiyatforMail=trim(((rs2("oran")+100)*session ("tutar"))/100)
else
toplamFiyatforMail=trim(session("tutar"))
end if
icerikforMail = icerikforMail & "<tr><td width=""50""><font size=""1""><b>"& rs("adet") &" "& rs("tanim1") &"</b></font></td><td width=""325""><font size=""1""><b>"& rs("urunAdiTR")&"</b></font></td>"
icerikforMail = icerikforMail & "<td width=""75"" align=""right""><font size=""1"" class=""icOzellik""><b>"& formatnumber(birimF,2) &" TL</b></font></td>"
icerikforMail = icerikforMail & "<td width=""75"" align=""right""><font size=""1"" class=""icOzellik""><b>"& birimF*rs("adet")&" TL</b></font></td></tr>"
i = i + 1 : rs.movenext : loop
icerikforMail = icerikforMail & "<tr><td colspan=""3"" align=""right""><b>TOPLAM</b>(<b>"& session("taksit")&" TAKSİT</b>)</td><td width=""75"" align=""right""><font size=""1"" class=""icOzellik""><b>"& FormatNumber(toplamFiyatforMail,2)&" TL</b></td>"
icerikforMail = icerikforMail & "</tr></table>"
miniCardForMail = icerikforMail
end function
%>
