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
--------------------------------------------------------------------------------
منظور من اینا نبود.... حالا یه بار دیگه برو بخونش
|