<% 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 %>
Guest Book - Posts
 Un-Edited posts <%=NewPost%>  Total posts  <%=TotalPost%>
 Un-Edited Posts
<% While Not objRsList.EOF %> <% objRsList.MoveNext fldCmtId = fldCmtId + 1 Wend objRsList.Close Set objRsList = Nothing %> <% %>
Guest Book - Posted Comments Listing
<%=objRsList("FirstName")%> <%=objRsList("LastName")%>
<%=objRsList("City")%>, <%=objRsList("Country")%>
<%=objRsList("Email")%>
"><%=objRsList("Ip")%>
<%=ReplaceBr(objRsList("Comment"))%>
  ">