If Not Stacionarno Then AddHTML "<META http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"

<?php
$mybdsql=mysql_connect($dbhst, $dbus, $dbpsw);
$mytablsql=mysql_select_db($dbname);
mysql_query("SET NAMES 'utf8'");
?>

Public Function WinToUTF8(ByRef inString As String, ByVal lMaxSize As Long) As String
  Dim hMemLock1 As Long, hMemLock2 As Long
  Dim iStrSize As Long
  hMemLock1 = LocalAlloc(LMEM_ZEROINIT, lMaxSize)
  hMemLock2 = LocalAlloc(LMEM_ZEROINIT, lMaxSize)
  iStrSize = MultiByteToWideChar(0&, 0&, inString, &HFFFF, hMemLock1, lMaxSize)
  iStrSize = WideCharToMultiByte(65001, 0&, hMemLock1, iStrSize, hMemLock2, lMaxSize, 0&, 0&) ' CP_UTF8
  If Len(iStrSize) Then
  WinToUTF8 = String$(iStrSize, 0&)
  Call CopyMemory(ByVal WinToUTF8, ByVal hMemLock2, iStrSize)
  End If
  Call LocalFree(hMemLock1)
  Call LocalFree(hMemLock2)
End Function

Public Declare Function LocalAlloc Lib "kernel32.dll" (ByVal wFlags As Long, ByVal wBytes As Long) As Long
Public Declare Function LocalFree Lib "kernel32.dll" (ByVal hMem As Long) As Long
Public Declare Function MultiByteToWideChar Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Public Declare Function WideCharToMultiByte Lib "kernel32.dll" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Public Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Const CP_UTF8 As Long = 65001
Private Const LMEM_ZEROINIT As Long = &H40

Public Function WinToUTF8TXT(Txt As Variant) As String
 If Txt & "" = "" Then Exit Function
 Dim i As Long, s As String, Tmp As String
 Tmp = Txt
 i = (Len(Tmp) + 1) * 2
  s = WinToUTF8(Tmp, i)
  s = Left(s, Len(Tmp) * 2)
  WinToUTF8TXT = s
End Function

  label_el = "<label for=""" & NMpl & """ id=""lb" & PBLST_Tbl("nmpl") & """>" & WinToUTF8TXT(PBLST_Tbl("NmRubr")) & "</label>"