שליפת נתון מסויים לinput …

אחלה .. יש קישור למדריך
לsessions ? אני לא כ"כ בקיא בתחום

בעיה בלולאה
תראו את הקוד שלי ,
קבעתי כי הנתונים יופיעו בין השעה 12:00 לשעה 19:00 ובמידה והשעה לא כך זה יחזיר לי הודעה אחרת .
(כמובן יש לי includes של התחברות) .

<%
Dim Conn, rsCatalog, dtmHour
  dtmHour = Hour(Now())
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
Set rsCatalog = Conn.Execute("SELECT * FROM pinot")
    While Not rsCatalog.EOF
%>

<%
  If dtmHour > 12 and dtmHour < 18 Then
     strGreeting2 = Response.Write (rsCatalog("pname"))
      Else     
    strGreeting = "האתר טרם עודכן, אתכם הסליחה."
  End If  
    %>
    <%= strGreeting2 %><BR>

    <%
rsCatalog.MoveNext
  Wend

  %>
  <%= strGreeting %>
  <%
  rsCatalog.Close
Set rsCatalog = Nothing
%>

עכשיו הבעיה שלי היא ויזואלית בלבד, הקוד עובד היטב .
בגלל הWend משום מה ההודעה (strGreeting) שוברת לי מספר שורות (כמספר הרשומות שיש לי בטבלה) ואז מציגה את ההודעה ..
כאילו יש לי מסך עם המון שורות ריקות ובסוף יש את ההודעה ש"האתר טרם עודכן" .
איך אפשר למנוע בעיה זאת ?