<% Dim blog_autore Dim blog_titolo Dim blog_testo Dim blog_modo Dim blog_data Dim blog_ora blog_autore = Request.Cookies("Blog_Autore") blog_titolo = Request.Cookies("Blog_Titolo") blog_testo = Request.Cookies("Blog_Testo") blog_modo = Request.Cookies("Blog_Modo") blog_data = Request.Cookies("Blog_Data") blog_ora = Request.Cookies("Blog_Ora") If blog_autore = "" Then blog_autore = "Boh" If blog_titolo = "" Then blog_titolo = "Boh" If blog_modo = "new" Then blog_testo = UBBcode(blog_testo) End if blog_testo = Replace(blog_testo, Chr(10), "
", 1, -1, 1) If blog_data = "" Then blog_data = Date() If blog_ora = "" Then blog_ora = Time() If blog_testo = "" OR IsNull(blog_testo) Then blog_testo = "

" & strLangErrorPreview & "


" End If %> Blog preview
BLOG PREVIEW
<% = strLangSelectCloseWindow %>
<% = UCase(blog_titolo) %>  <% = strLangGlobBy %> <% = blog_autore %> <% = FormatDateTime(blog_data, vbShortDate) %> <% = strLangGlobAt %> <% = FormatDateTime(blog_ora,vbShortTime) %>
 
<% = blog_testo %>
 
<% = strLangSelectCloseWindow %>