[akgun]

Re: ASP Yardım

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

arkadaşlar bi konuda yardıma ihtiyacım var yapamadım bilgisizlikten
aşagıda bi formum var bu formda girilen ,seçilen degerlere göre ürünleri
listeliyecek

http://www.vipol.com.tr/aramaformu.html

yonlenen arama sayfasındaki sorguyu yapamadım
formda secilen kısımları kontrol edip en uyumluları listeliyecek

bi yardım edermisiniz
formdaki alanları tektek tanımlayıp
degerleri okuyup sorguyu şu+şu+şu olanları listele demem lazım
ama yapamadım şuna bak sonra şuna sonra şuna degerleri olanlara en yakın
kayıtları listele
zaten % degeri olan yere ÇIKIŞ devri 1000 girildi ise % 5 ise %5 opsiyonlu
gibi

anlatamadım yapamadım delirecegim..



'****************************************** ARAMA KISIMI
************************************************** ******
Set db = server.CreateObject("ADODB.Connection")
db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
server.mappath("../db/mega_vtdb2006.mdb")
Set rs = server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM urun where isim like '%"&baglanticapi&"%' or
calismaSaati like '%"&calismaSaati&"%' or yuksinifi like '%"&yuksinifi&"%'
or motorgucu like '%"&motorgucu&"%' or isime like '%"&baglanticapi&"' or
detay like '%"&baglanticapi&"' or detaye like '%"&baglanticapi&"%'"

rs.Open SQL,db,1,3
if rs.eof then
'************************************************* ******************** ******************************************
%>

[akgun]

birde YKB ile sanalpos kullanan varmı ? dll kurmama ragmen naptımsa çalıştıramadım..

bu konuda yardım edebilecek arkadaşlardan rica ediyorum..

YKB digerlerine göre birazdaha farklı işliyor IP istiyor mesela..

herşey tamam siparis sayfamda diger bankalar ile kontrolü saglıyorum ancak YKB de dll hatası laıyorum sürekli

kodlar zaten YKB ye ait test sayfası

aldıgım hata

YKBACTIVE error '800a0035'

File not found: YKB POS Communication DLL

/ykbtest/aspsample.ASP, line 63

PHP Code:

<title>Posnet Integration for ASP by using ActiveX - YTL Version</title>
<%Dim objYKB 
Set objYKB = server.CreateObject("YKBACTIVE.YKBPOSCommunication") 

dim pownip, phostname, pport, pmid, ptid, pccno 
dim pexpdate, pamount, pauth, ptrantype, ptrancode, pcvc, ptaknum 
dim porderid, pcurrencycode 
dim phostkey
dim pappr, prespt, prespc 
dim ptxnseqno 
dim pmultiple, pextrapt
dim pins1, pamt1, pins2 
dim pamt2, pins3, pamt3 
dim ppoint, ptlamt 
dim ppointtp, ptlamttp 
dim dllresp 

pownip = request.form("ownip") 
phostname = request.form("hostname")
pport = request.form("port") 
pmid = request.form("mid")
ptid = request.form("tid")
pccno = request.form("ccno")
pexpdate = request.form("expdate") 
pamount = request.form("amount")
pcurrencycode = request.form("currencycode")
ptrantype = request.form("trantype")
pauth = request.form("authcode")
phostkey = request.form("hostlogkey")
pcvc = request.form("cvc")
ptaknum = request.form("taknum")
porderid = request.form("orderid")
ptxnseqno = request.form("txnseqno")
pmultiple = request.form("multiple")
pextrapt = request.form("extrapt")
ptrancode = "-1"
%>
<p align="center"><font color="#0066FF" size="6">Posnet Integration for ASP by using 
ActiveX</font></p>
<p align="center"><font size="6" color="#0066FF">(YTL Version)</font></p>
<table width="89%" border="0" align="center">
  <tr>
    <td width="11%" height="68">&nbsp;</td>
    <td width="89%"><font color="#0066FF" size="4">Response From Posnet ;</font></td>
  </tr>
  <tr>
    <td height="53">&nbsp; </td>
    <td>
    <%
    
    '******************************PROVIZYON,SATIŞ VE FINANSALLAŞTIRMA ***************************************                       
    
    if (ptrantype = "Auth" or ptrantype = "Capture" or ptrantype = "Sale") then
     
        if ptrantype = "Auth" then 
             ptrancode = "0"
         elseif ptrantype = "Capture" then 
             ptrancode = "1" 
         elseif ptrantype = "Sale" then 
             ptrancode = "5" 
         end if
                  
        dllresp = objykb.CCTransaction(pownip, phostname, pport, pmid, ptid, pccno, _
                               pexpdate, pamount, pcurrencycode, pauth, ptrancode, pcvc, ptaknum, _
                               porderid, pappr, prespt, prespc, _
                               phostkey, ptxnseqno, _
                               pmultiple, pextrapt, _
                               pins1, pamt1, pins2, _
                               pamt2, pins3, pamt3, _
                               ppoint, ptlamt, _
                               ppointtp, ptlamttp)
                            
        response.write "DLL Resp : " & dllresp & "<BR>"
        
        if "100" = left(dllresp,3) then
            if  "1" = pappr or "2" = pappr then
                
                response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
                
                response.write "<B>Onay Parametreleri : </B>"
                response.write "<BR>"
                response.write "Authcode : " & pauth
                response.write "<BR>"
                response.write "Hostlogkey : " & phostkey
                response.write "<BR>"
                
                response.write "<B>Taksit Parametreleri : </B>"
                response.write "<BR>"
                response.write "Taksit Sayısı/Tutarı : " & pins1 & " / " & pamt1
                response.write "<BR>"
                
                response.write "<B>Puan Parametreleri : </B>"
                response.write "<BR>"
                response.write "Kazanılan Puan : " & ppoint
                response.write "<BR>"
                response.write "Kazanılan Puan Tutarı (Yeni Kuruş) : " & ptlamt
                response.write "<BR>"
                response.write "Toplam Puan : " & ppointtp
                response.write "<BR>"
                response.write "Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamttp
                response.write "<BR>"

                if  pappr = "2" then
        
                    response.write "<B>Warning !</B>"
                    response.write "<BR>"
                    response.write "RespCode : "  & objYKB.GetResponseCode  
                    response.write "<BR>"
                    response.write "RespText : "  & objYKB.GetResponseText 
                    response.write "<BR>"
                
                end if
            
            elseif  "0" = pappr then
            
                response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"
            
                response.write "RespCode : "  & prespc 
                response.write "<BR>"
                response.write "RespText : "  & prespt
            
            end if
        end if

    '******************************PROVIZYON, SATIŞ ve FINANSALLAŞTIRMA IPTAL  ***************************************                       
    
    elseif (ptrantype = "AuthRev" or ptrantype = "CaptureRev" or ptrantype = "SaleRev") then
     
        if ptrantype = "AuthRev" then 
             ptrancode = "0"
         elseif ptrantype = "CaptureRev" then 
             ptrancode = "1" 
         elseif ptrantype = "SaleRev" then 
             ptrancode = "5" 
         end if
         
        phostkey = request.form("hostlogkey")
         
        dllresp = objykb.CCReversal(pownip, phostname, pport, pmid, ptid, _
                               ptxnseqno, phostkey, ptrancode, _
                               pappr, prespt, prespc)
                            
        response.write "DLL Resp : " & dllresp & "<BR>"
        
        if "100" = left(dllresp,3) then
            if  "1" = pappr then
                
                response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
                
                response.write "<B>Onay Parametreleri : </B>"
                response.write "<BR>"
                response.write "Hostlogkey : " & phostkey
                response.write "<BR>"
                                
            elseif  "0" = pappr then
            
                response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"
            
                response.write "RespCode : "  & prespc 
                response.write "<BR>"
                response.write "RespText : "  & prespt
            
            end if
        end if
    
    '******************************PUAN KULLANDIRIM ve SORGULAMA ***************************************                       
    
    elseif (ptrantype = "PNTI" or ptrantype = "PNTU") then
    
           dllresp = objykb.PointTransaction(pownip, phostname, pport, pmid, ptid, ptrantype, _
                               pccno, pexpdate, pamount, pcurrencycode, _
                               porderid, pappr, prespt, prespc, _
                               phostkey, ptxnseqno, _
                               ppoint, ptlamt, _
                               ppointtp, ptlamttp)
                               
        response.write "DLL Resp : " & dllresp & "<BR>"
    
        if "100" = left(dllresp,3) then
            if  "1" = pappr then
                
                response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
                
                if (ptrantype = "PNTU") then
                    response.write "<B>Onay Parametreleri : </B>"
                    response.write "<BR>"
                    response.write "Hostlogkey : " & phostkey
                    response.write "<BR>"
                
                    response.write "<B>Puan Parametreleri : </B>"
                    response.write "<BR>"
                    response.write "Kullanılan Puan : " & ppoint
                    response.write "<BR>"
                    response.write "Kullanılan Puan Tutarı (Yeni Kuruş) : " & ptlamt
                    response.write "<BR>"
                    response.write "Kalan Toplam Puan : " & ppointtp
                    response.write "<BR>"
                    response.write "Kalan Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamttp
                else
                    response.write "<B>Puan Parametreleri : </B>"
                    response.write "<BR>"
                    response.write "Toplam Puan : " & ppoint
                    response.write "<BR>"
                    response.write "Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamt
                end if
                
            elseif  "0" = pappr then
                
                response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"

                response.write "RespCode : "  & prespc 
                response.write "<BR>"
                response.write "RespText : "  & prespt
            
            end if
        end if

    '******************************PUAN KULLANDIRIM IPTAL ***************************************                       
    
    elseif (ptrantype = "PNTV") then
    
        phostkey = request.form("hostlogkey")
           
           dllresp = objykb.PointReversal(pownip, phostname, pport, pmid, ptid, ptrantype, _
                               ptxnseqno, pccno, _
                               pappr, prespt, prespc, _
                               phostkey, _
                               ppointtp, ptlamttp)
                             
           response.write "DLL Resp : " & dllresp & "<BR>"
           
           if "100" = left(dllresp,3) then
            if  "1" = pappr then
                
                response.write "<B><font color='#0066FF' size='4'>Onaylandı. </font></B><BR><BR>"
                
                response.write "<B>Puan Parametreleri : </B>"
                response.write "<BR>"
                response.write "Toplam Puan : " & ppoint
                response.write "<BR>"
                response.write "Toplam Puan Tutarı (Yeni Kuruş) : " & ptlamt
                
            elseif  "0" = pappr then
            
                response.write "<B><font color='#FF0000' size='4'>Onaylanmadı. </font></B><BR><BR>"

                response.write "RespCode : "  & prespc 
                response.write "<BR>"
                response.write "RespText : "  & prespt
            end if
        end if

    end if

%> </td>
  </tr>
</table>
<div align="center">
  <p>
  <input name="Submit" type="button" id="Submit" onClick="history.back()" value="Back">
  </p>
</div>
<p>&nbsp; </p> 


]

[stalker]

YKB için forumu arat Ben hatırlıyorum bir kaç örnek.

Diğeri için; SQL doğru değil mi, anlamadım. form değerlerine Request("alanismi") ile ulaşabilirsin.

Sıralama için ORDER BY kullanılıyor. ORDER BY field1 ASC,field2 DESC,field3 DESC gibi.

[Janberka]

Yalnız şöyle birşey var stalker Request("alanismi") şeklinde formdan çekmek önerilmiyor. Sunucuyu yoruyormuş sanırım. Request.form, Request.Querystring şeklinde olursa daha iyi(miş)..

[akgun]

arkadaşlar buraya atamadım çalışmayı rar olarak aşagıdaki linkden indirip
bakabilirsiniz.
http://www.vipol.com.tr/aki/yapamadim.rar

arama formundan yapılan seçime göre

ürünleri listeleyecegim

sıkıntım arama1.ASP deki SQL sorguda

araa.ASP den (form) secilen degerler

alınıp submit edildiginde arama1.ASP ye geliyor

burada arama sorgusu var..

urun tablosuna baglanıp formdan gelen degerlere göre arama yapıp en uygun
olanları listeleyecek
buradaki en uygundan kastım araa.ASP deki formda cikisTolerans diye
tanımlana input blümüne bir deger giriliyor mesela %10 bu şu demek olacak
çıkış devri yazılıyor yada şeciliyor.. %10 farkla yani girilen degerin +-
%10 degerinde uygun olanlar

aslında formun çalışan bir örnegi yr.com.tr de var buradan
http://www.yr.com.tr/index.php?c=red...ablon=1&kod=MR bakabilirsiniz

aynısını yapmaya çalışıyorum

burada form müsteri kategoriyi seçiyor ona baglı alt kategorlier
listeleniyor ve ürünü form ile girdigi degerler ile buluyor

çok gıcık hatta kılçık bişey bişey mantık olarak kafamdakileri koda ekledim
ama arama kısmındaki tablodan sorgulamada yapamadım..

inceler yardımcı olabilirseniz sevinirim