%
Function TrimComplete(ByVal sValue)
Dim sAns, sWkg, sChar, lLen, lCtr
sAns = sValue
lLen = Len(sValue)
If lLen > 0 Then
'Ltrim
For lCtr = 1 To lLen
sChar = Mid(sAns, lCtr, 1)
If Asc(sChar) > 32 Then Exit For
Next
sAns = Mid(sAns, lCtr)
lLen = Len(sAns)
'Rtrim
If lLen > 0 Then
For lCtr = lLen To 1 Step -1
sChar = Mid(sAns, lCtr, 1)
If Asc(sChar) > 32 Then Exit For
Next
End If
sAns = Left(sAns, lCtr)
End If
TrimComplete = sAns
End Function
Function ReplaceBr(strString)
ReplaceBr = Replace(strString, " ", Chr(13))
End Function
%>
Dr. Akmal Hussian - Web Site Content Management System
Dr. Akmal Hussain
<%
Dim objCmd, objRs, NewPost, TotalPost, PostedComments, objRsList, fldCmtId
fldCmtCount = 1
NewPost = 0
TotalPost = 0
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = objCon
objCmd.CommandType = adCmdStoredProc
'Get New Post
objCmd.CommandText = "sp_NewPost"
Set objRs = objCmd.Execute
If Not objRs.EOF Then
NewPost = objRs("NewPosts")
End If
objRs.Close
Set objRs = Nothing
'Get Total Posts
objCmd.CommandText = "sp_TotalPost"
Set objRs = objCmd.Execute
If Not objRs.EOF Then
TotalPost = objRs("TotalPosts")
End If
objRs.Close
Set objRs = Nothing
'Get Posted Comments
objCmd.CommandText = "sp_PostedComments"
Set objRs = objCmd.Execute
If Not objRs.EOF Then
PostedComments = objRs("PostedComment")
End If
objRs.Close
Set objRs = Nothing
'Get Listing Of All Posted Comments
objCmd.CommandText = "sp_PostListing"
Set objRsList = objCmd.Execute
Set objCmd = Nothing
%>