Name   Email ID   Your Pledge

<% rsComment= "SELECT gname,email,comment,gdate,emirate from guestbook order by id desc" set rs = Server.CreateObject("ADODB.Recordset") rs.Open rsComment,dbconn,1,2 if not (rs.EOF) then while not (rs.EOF) date_word = Monthname(DatePart("M", rs("gdate"))) & " " & DAY(rs("gdate")) & "," & YEAR(rs("gdate")) 'date_word =Monthname(DatePart("M",cdate(rs("gdate")))) & " " & DatePart("D",cdate(rs("gdate"))) & ","& DatePart("YYYY",cdate(rs("gdate"))) if hour(rs("gdate")) = 12 then timepart = hour(rs("gdate")) & ":" & padMyNumber(minute(rs("gdate"))) &"PM" end if if (hour(rs("gdate")) > 12) then timepart = (hour(rs("gdate"))-12)& ":" & padMyNumber(minute(rs("gdate"))) & "PM" end if if (hour(rs("gdate")) < 12) then timepart = hour(rs("gdate")) & ":" & padMyNumber(minute(rs("gdate"))) &"AM" end if if (hour(rs("gdate")) =0) then timepart = 12 & ":" & padMyNumber(minute(rs("gdate"))) &"AM" end if '(FormatDateTime(timepart, vbLongTime) ' datepart("h",rs("gdate")) & ":" & datepart("n",rs("gdate")) %> <% rs.movenext wend end if %>     <%if session("sent")="yes" then %> Thank you for your valuable pledge.. <% session("sent")="" end if %> » "><%=rs("gname")%> says   <%= Replace(rs("comment")&"", vbLf, " ") %>   Posted on: <%=date_word%> at <%=timepart%>