• 29-11-2010, 17:13:20
    #1
    Merhaba arkadaşlar

    <%
    Set baglanx = Server.CreateObject("ADODB.Connection")
    baglanx.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxx/xxx.mdb")
    Set sifre=Server.CreateObject("Adodb.Recordset")
    sifre.Open "SELECT * FROM ayarlar where admin", baglanx, 1, 3
    enaz =sifre("enaz")
    encok =sifre("encok")
    %>

    Bu kayıt setı ıle cektıgım enaz ve encok karakter sayısını

    ElseIf Mid(strMessage, 1, 6) = "/nick " Then
    edtnick = Trim(Mid(strMessage, 6, Len(strMessage)))
    If len(edtnick) < 3 or len(edtnick) > 14 Then

    3 ve 14 hanelerine nasıl yazdırabılırım

    If len(edtnick) < enaz or len(edtnick) > encok Then
    veya
    If len(edtnick) < sifre("enaz") or len(edtnick) > sifre("encok") Then
    veya
    If len(edtnick) < " & enaz & " or len(edtnick) > " & encok & " Then

    bu ucunu denedim sonuç alamadım
    bilen arkadaş yardımcı olursa sevinirim kolay gelsin..
  • 30-11-2010, 22:33:30
    #2
    sanırım yontemı yok bunun kımse cevap veremedıgıne gore neyse arkadaslar tsk ederım kolay gelsın.
  • 01-12-2010, 15:13:58
    #3
    burda if kullanırken kontrol etmeme sebebi bu db den cektigin verilerin string olarak gelmesi olabilir. < > kullanırken burda integer deger istiyor sanırım.
    bu sekilde dene bir de.
    enaz =cint(sifre("enaz")
    )
    encok =cint(sifre("encok"))
  • 01-12-2010, 17:26:10
    #4
    ElseIf Mid(strMessage, 1, 6) = "/nick " Then
    enaz =cint(sifre("enaz"))
    encok =cint(sifre("encok"))
    edtnick = Trim(Mid(strMessage, 6, Len(strMessage)))
    If len(edtnick) < enaz or len(edtnick) > encok Then

    verdıgın kod sayesınde bu sekılde cozuldu tesekkur ederım blue41 yuregıne saglık Allah razı olsun kolay gelsin.