Dim strValue As String
strValue = Replace(strValue, Chr(13), "") 'enter
strValue = Replace(strValue, Chr(9), "") 'tab
strValue = Replace(strValue, Chr(10), "") 'newline
strValue = Replace(strValue, ":", "") 'colons
strValue = Trim(strValue) 'rtim$post_title = 'Warszawa,,, polska moa.waw ';
$tags = preg_split('/[, ]+/', trim($post_title));
print_r($tags);<select name="other_dates" class="t2"
onChange="javascript:if(this.value!='0')location.href='http://www.moa.waw.pl/wycieczka,{$this->dojazd},'+this.value+'.html';return false;">
<option value="0">- wybierz -</option>'.$html_other.'
</select>Dim fso, folder, plik, pliki, out
Set fso = CreateObject("Scripting.FileSystemObject")
sciezka = "g:\mp3"
Set folder = fso.GetFolder(sciezka)
Set pliki = folder.Files
Set out = fso.CreateTextFile("spis.txt")
For Each plik in pliki
'lista = lista & " - " & plik.path & NewLine
out.WriteLine (plik.path)
Next<SCRIPT LANGUAGE="VBScript">
Dim images
Set images = document.all.tags("IMG")
cnt_images = images.length
for i = 0 to cnt_images - 1
img_src = images(i).src
document.write(img_src)
next
</SCRIPT>