I I
<% Global mutathato, kategoria, kk, actkat, kosar, nszam, kepfajta, kepar, k1, katlist, esemenyszam, rendelesek, rindex, rszam Global nev, emil, phone, staete, city, street, code, atvetel, nev1, emil1, phone1, staete1, city1, street1, code1, actsubkat Dim fol, f, i, j, k, n, d, sum, ido, rendeles, elfogadva, pcalc, pcalc2, db rendeles = 0 f = FileOpen("photo/text/photocalc" ) pcalc = FileRead(f) FileClose f f = FileOpen("photo/text/photocalc2" ) pcalc2 = FileRead(f) FileClose f // osszeg kiszamitasa sum = 0 for i = 1 to rszam ParseString k1, rindex(i), "*" sum = sum + rendelesek(rindex(i)) * k1(4) next if request.item("order") = "igen" then nev = request.item("nev") emil = request.item("emil") phone = request.item("phone") staete = request.item("staete") city = request.item("city") street = request.item("street") code = request.item("code") if len(nev) > 1 and len(emil) > 1 and len(phone) > 1 and len(staete) > 1 and len(city) > 1 and len(street) > 1 and len(code) > 1 then rendeles = 1 atvetel = request.item("atvetel") nev1 = request.item("nev1") emil1 = request.item("emil1") phone1 = request.item("phone1") staete1 = request.item("staete1") city1 = request.item("city1") street1 = request.item("street1") code1 = request.item("code1") end if end if if mutathato = "igen" then %>
<% if rendeles = 0 then %>

 ショッピングを続ける

<% end if %>
<% // if kosar <> "" then %>
ショッピングカート

<% for i = 1 to rszam ParseString k1, rindex(i), "*" %> <% next %>
  写真 No. サイズ 値段 タイプ 注文数
<% = k1(6) %>
<% = k1(2) %>
<% = k1(3) %> <% = format(k1(4), "#") %> <% = k1(5) %> <% = rendelesek(rindex(i)) %>
合計額:
(消費税 5.0% を含む)
<% = format(sum, "#") %>
<% if rendeles = 0 then %>



  下記全てに入力してください。
 
 氏名 :
 Eメール :
 電話番号 :  
 都道府県 :
 市町村名 :
 通り・番地・建物 :
 郵便番号 :
   
  お届け先がお客様の住所と違う場合はこちらに入力してください。
 
 氏名 :
 Eメール (任意) :
 電話番号 :  
 都道府県 :
 市町村名 :
 通り・番地・建物 :
 郵便番号 :
   
  お支払い方法 (どちらかを選んでください。)
> 代引き > 銀行振込
   
  ・代引き:別途手数料がかかります。
  ・振込み:振込手数料はお客様でご負担ください。
   
  決済の方法、送料については必ずこちらをご覧ください。
   
 
 


<% else %>


ご注文を受付ました。

ありがとうございました!

ご登録のメールアドレス宛、確認メールをお届けしました。
ご確認ください。

通常、ご注文から3日前後で宅配します。

住所:   <% = nev %>, <% = staete %>, <% = city %>, <% = street %>, <% = code %>

電話:

  <% = phone %>
Eメール:   <% = emil %>


<% SendMail "jim@twwt.com", "jim@twwt.com", "new indies order", "I'm happy to inform you that a new order has received, please go to the\n\n http://indies.twwt.com/login\n\npage, login and check it.\n\nindies System by JIM" // sajat e-mail SendMail "jim@twwt.com", "jim@twwt.com", "indies order", "new indies order: " & format(sum + pcalc, "#") & " JPY\n\n by: " & nev & " " & emil & " from " & city & ", " & staete // adatok elmentese ido = SecondstoDate(Now(), "yyyymmddhhnnss") fol = "photo/rendelesek/" & ido & Session.id() NewFolder fol f = FileOpen(fol & "/datum") FileWrite f, SecondstoDate(Now(), "d dddd, mmmm yyyy, hh:nn") FileClose f f = FileOpen(fol & "/datumrovid") ido = SecondstoDate(Now(), "yyyymm") FileWrite f, ido FileClose f f = FileOpen(fol & "/szemelyes") FileWrite f, nev &"<*>"& emil &"<*>"& phone &"<*>"& staete &"<*>"& city &"<*>"& street &"<*>"& code &"<*>"& atvetel FileClose f f = FileOpen(fol & "/szemelyes1") FileWrite f, nev1 &"<*>"& emil1 &"<*>"& phone1 &"<*>"& staete1 &"<*>"& city1 &"<*>"& street1 &"<*>"& code1 FileClose f d = "" db = 0 for i = 1 to rszam ParseString k1, rindex(i), "*" f = FileOpen("photo/kepek/" & k1(1) & "/nevorig/" & k1(2)) j = replace(FileRead(f), "\n", "") FileClose f db = db + rendelesek(rindex(i)) d = d & k1(2) & "<*>" & rendelesek(rindex(i)) & "<*>" & j & "<*>" & k1(3) & "<*>" & k1(6) & "<*>" & k1(4) & "<*>" & k1(1) & "<*> <*>" & k1(5) & "<*>\n" next f = FileOpen(fol & "/rendeles") FileWrite f, d FileClose f f = FileOpen(fol & "/osszeg") FileWrite f, sum FileClose f f = FileOpen(fol & "/db") FileWrite f, db FileClose f // Adatok elmentese a szamlazasi rendszerbe NewFolder "photo/photorendelesek/" & ido f = FileOpen("photo/photorendelesek/" & ido & "/indies") d = FileRead(f) + sum FileClose f DeleteFile "photo/photorendelesek/" & ido & "/indies" f = FileOpen("photo/photorendelesek/" & ido & "/indies") FileWrite f, d FileClose f f = FileOpen("photo/photorendelesek/" & ido & "/indies-db") d = FileRead(f) + db FileClose f DeleteFile "photo/photorendelesek/" & ido & "/indies-db" f = FileOpen("photo/photorendelesek/" & ido & "/indies-db") FileWrite f, d FileClose f // Valtozok torlese a rendeles vegeztevel Remove d //rendeles torlese Remove rendelesek Remove rindex Remove nev Remove emil Remove phone Remove staete Remove city Remove street Remove code Remove atvetel Remove nev1 Remove emil1 Remove phone1 Remove staete1 Remove city1 Remove street1 Remove code1 end if %> <% end if %>