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..
veritabanından veri yazdırma hakkında ?
3
●385
- 29-11-2010, 17:13:20
- 30-11-2010, 22:33:30sanırım yontemı yok bunun kımse cevap veremedıgıne gore neyse arkadaslar tsk ederım kolay gelsın.
- 01-12-2010, 17:26:10ElseIf 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.