نمايش پست تنها
قديمي ۰۷-۲۰-۱۳۸۷, ۱۲:۳۹ بعد از ظهر   #125 (لینک دائم)
r-co
عضو فوق فعال
 
آواتار r-co
 
تاريخ عضويت: ارديبهشت ۱۳۸۷
محل سكونت: Asia- Iran - Bandar Abbas-
پست ها: 48
تشكرها: 5
7 تشكر در 5 پست
ارسال پيغام Yahoo به r-co Send a message via Skype™ to r-co
پيش فرض Manzoramo Nageferti Soroosh-ab

سوروش جان منظور من این نبود که تو گفتی اگه یه بار دیگه بری پست قبلی با دقت بخونی می فهمی
------------------------------------- منظور تو این بود خودم بلد بودم (;
اینو تو modFunctions کپی می کنیم
Function gettell(Request As String, PersonId As String) As String
Set Recordset = Connection.Execute("SELECT Request, Response, Response1, Response2 FROM tell WHERE Request = '" & Request & "'", adCmdText)
gettell = getRandom(Recordset!Response)

gettell = getRandom(Recordset!Response1)
gettell = getRandom(Recordset!Response2)

' Replace custom variables
gettell = Replace(gettell, "<$user>", PersonId)
gettell = Replace(gettell, "<$lastuser>", lastUser)
End Function
اینو هم تو Frm کپی می کنیم

If Left(Message, 2) = "ok" Then
Response = gettell(ok, PersonId)


End If
--------------------------------------------------------------------------------
منظور من اینا نبود.... حالا یه بار دیگه برو بخونش
r-co آفلاين است   پاسخ با نقل قول