Merhaba,
Aşağıdaki kodlar işini görecektir. En azından fikir sahibi olman konusunda yardımcı olacaktır.

Fonksiyonumuz

<%
Function TalimatVer(id,operator,kontor,gsm,tip,bayikodu)
  strSifre = "sifreniz" ' burayı değiştirirsiniz
  if operator = 1 then 
   opAdi = "turkcell"
  elseif operator = 2 then 
   opAdi = "vodafone"
  elseif operator = 3 then 
   opAdi = "avea" 
  else
   opAdi = "hata"
  end if
 
  if opAdi <> "hata" Then 
   Set xml = Server.CreateObject("Microsoft.XMLHTTP") 
   xml.Open "GET", "http://www.bostancikontor.com/services/talimat_ver.php?bayi_kodu="& bayikodu &"&sifre="& strSifre &"&operator="& opAdi &"&kontor="& kontor &"&gsmno="& gsm &"&tekilnumara="& id &"&tip="& tip, False 
   xml.Send 
 
   sonuc = xml.responseText  
    if Left(sonuc,1) = "1" Then 
     TalimatVer = True
    else
     Talimatver = False
 
     Set objRs1 = Server.CreateObject("ADODb.RecordSet")
     strSQL = "SELECT * FROm siparis where id = "& id
     objRs1.Open strSQL, objConn, 1,3 
      if Not objRs1.EOF Then 
 
       objrs1("aciklama") = sonuc ' Problem nedenini yazdık
 
       objRs1.UPDATE
 
      end if
     objrs1.Close
     Set objrs1 = nothing
 
 
     ' eğer problem oluşması durumunda
     ' ücret müşteri bakiyesine geri iade edilecekse 
     ' buraya iade ile ilgili kodları yazarak tüm işlemleri aynı anda yapma şansınız olur
 
 
    end if
   else   
    Talimatver = False
   end if
 end function
%>

Fonksiyonu işleme alacak liste kodları

<%
 
 
' .... veritabanı bağlantısının tapıldığını farz ediyoruz
 Set objRs = Server.CreateObject("ADODb.RecordSet")
 strSQL = "SELECT * FROM siparis WHERE durum=0"' tüm kayıtlar yerine sadece işlem bekleyen kayıtları alıyoruz
 objRs.Open strSQL, objConn, 1,3
 
  if Not objRs.EOF Then
   do While Not objrs.EOF
 
    bIslem = TalimatVer(objRs("id"),objRs("operator"),objRs("kontor"),objRs("numara"),objrs("tur"),objRs("bayi_id"))
 
    if bislem then 
     Response.Write objrs("id") &" nolu Islem tamamlandi<br>"
    else
     Response.Write objrs("id") &" nolu Islemde Sorun oluştu, bilgi veritabanına yazıldı<br>"
    end if
 
   objRs.MoveNext
   Loop
  else
 
   Response.Write"İşlem yapılacak kayıt bulunamadı"
 
  end if
 objRs.Close
 Set objRs = Nothing
%>

direk veritabanına sahip olmamam dolayısıyla küçük problemlerin çıkması olasıdır.

Ama hiçbir zaman problemler, problemlik hayatını uzun sürdüremez

Elimden gelen yardımı yaparım.

Kolay gelsin.