USstateArr=Array("Alabama","Alaska","Arizona","Arkansas","California","Colorado","Connecticut","Delaware","Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa","Kansas","Kentucky","Louisiana","Maine","Maryland","Massachusetts","Michigan","Minnesota","Mississippi","Missouri","Montana","Nebraska","Nevada","New Hampshire","New Jersey","New Mexico","New York","North Carolina","North Dakota","Ohio","Oklahoma","Oregon","Pennsylvania","Rhode Island","South Carolina","South Dakota","Tennessee","Texas","Utah","Vermont","Virginia","Washington","West Virginia","Wisconsin","Wyoming") ''''''''''''''''''''''''''''''''''' 'PoemFormArray=Array("Abecedarian","Acrostic","Anaphora","Ars Poetica","Ballad","Ballade","Blues Poem","Bop","Cento","Couplet","Chance Operations","Cinquain","Dramatic Monologue","Ekphrastic","Elegy","Epic","Epigram","Epistle","Epistrophe","Found Poem","Free Verse","Ghazal","Haiku","Limerick","Monoku","Ode","OULIPO","Pantoum","Prose Poem","Renga","Rondeau","Sapphic","Senryu","Sestina","Sonnet","Tanka","Terza Rima","Triolet","Villanelle") set oconpfa = Server.CreateObject("YMSQLDataAdapter.DataAdapter") oconpfa.Server = "masterdb.poemhunter.com" oconpfa.Database = "Poemhunter" oconpfa.SecurityKey = "35C52FFB-9801-47AF-B768-6901C63B7D9E" PoemFormArray=Array("") pfai=0 on error resume next SQLpfa="SELECT forms FROM FormsPoem with(nolock) ORDER BY forms" Set rspfa = oconpfa.execute(SQLpfa,1800) do while not rspfa.eof ReDim Preserve PoemFormArray(pfai) PoemFormArray(pfai)=rspfa("forms") pfai=pfai+1 rspfa.movenext loop on error goto 0 ''''''''''''''''''''''''''''''''''' Function mevcutSayfaURL() urlB="" urlB="http://" & Request.ServerVariables("SERVER_NAME") urlB=urlB & Request.ServerVariables("SCRIPT_NAME") if Request.ServerVariables("QUERY_STRING")<>"" then urlB=urlB&"?" & Request.ServerVariables("QUERY_STRING") end if mevcutSayfaURL=urlB if instr(mevcutSayfaURL,"404;") then 'For each item in request.querystring ' if left(item,3)="404" then mevcutSayfaURL = item 'next mevcutSayfaURL = Mid(mevcutSayfaURL, instr(mevcutSayfaURL,"404;")+4, Len(mevcutSayfaURL)-instr(mevcutSayfaURL,"404;")+4) mevcutSayfaURL = Replace(Replace(mevcutSayfaURL,"404;",""),":80","") end if if instr(mevcutSayfaURL,"403;") then 'For each item in request.querystring ' if left(item,3)="403" then mevcutSayfaURL = item 'next mevcutSayfaURL = Mid(mevcutSayfaURL, instr(mevcutSayfaURL,"403;")+4, Len(mevcutSayfaURL)-instr(mevcutSayfaURL,"403;")+4) mevcutSayfaURL = Replace(Replace(mevcutSayfaURL,"403;",""),":80","") end if End Function '---------------URL members yonlenme - basla---------------- if anaMemYonlendirme<>"no" and instr(mevcutSayfaURL, "/msg.asp")<=0 then if instr(mevcutSayfaURL, ".poemhunter.com/members/") and instr(mevcutSayfaURL, "members.poemhunter.com/")<=0 then gitURLye=mevcutSayfaURL gitURLye=Replace(gitURLye,"http://yeni.poemhunter.com/","http://yenimembers.poemhunter.com/") gitURLye=Replace(gitURLye,"http://www.poemhunter.com/", "http://members.poemhunter.com/") gitURLye=Replace(gitURLye,"http://www0.poemhunter.com/","http://members.poemhunter.com/") gitURLye=Replace(gitURLye,"http://www1.poemhunter.com/","http://members.poemhunter.com/") gitURLye=Replace(gitURLye,"http://www2.poemhunter.com/","http://members.poemhunter.com/") Response.Redirect(gitURLye) elseif (instr(mevcutSayfaURL, ".poemhunter.com/members/")<=0 and instr(mevcutSayfaURL, ".poemhunter.com/dinamik/")<=0) and instr(mevcutSayfaURL, "members.poemhunter.com/") then gitURLye=mevcutSayfaURL gitURLye=Replace(gitURLye,"http://yenimembers.poemhunter.com/","http://yeni.poemhunter.com/") gitURLye=Replace(gitURLye,"http://members.poemhunter.com/","http://www.poemhunter.com/") Response.Redirect(gitURLye) end if end if '---------------URL members yonlenme - bitis---------------- '----------------------------------------------------------- Function HackInt(st1) st1=replace(st1,";","") st1=replace(st1,"'","") st1=replace(st1,"*","") if not(isempty(st1)) AND not(isnull(st1)) then if not isnumeric(st1) then st1 = "" if st1 <> "" then st1 = Replace(Replace(Replace(Replace(st1,"'",""),"--",""),";","")," ","") Hackint = st1 else Hackint = "" end if End Function ' Hackint(st1) '----------------------------------------------------------- Function HackStr(st1) if not(isempty(st1)) AND not(isnull(st1)) then st1 = replace(st1, ") ;", "):") st1 = replace(st1, ");", "):") st1= replace(st1, "--", " ") st1= replace(st1, "update ", "updat ",1,-1, vbTextCompare) st1= replace(st1, "delete ", "delet ",1,-1, vbTextCompare) st1= replace(st1, "drop ", "dropp ",1,-1, vbTextCompare) st1= replace(st1, "insert ", "inser ",1,-1, vbTextCompare) HackStr = st1 else HackStr = "" end if End Function ' HackStr(st1) '----------------------------------------------------------- Function HackTemizle(st1) if not(isempty(st1)) AND not(isnull(st1)) then st1 = replace(st1, ") ;", "):") st1 = replace(st1, ");", "):") st1= replace(st1, "--", "- ") '''st1= replace(st1, "update ", "updat ") 'kaldirildi:04.01.2013 '''st1= replace(st1, "delete ", "delet ") 'kaldirildi:04.01.2013 '''st1= replace(st1, "drop ", "dropp ") 'kaldirildi:04.01.2013 '''st1= replace(st1, "insert ", "inser ") 'kaldirildi:04.01.2013 HackTemizle = st1 else HackTemizle = "" end if End Function ' HackTemizle(st1) '----------------------------------------------------------- Function XssStr(st1) if not(isempty(st1)) AND not(isnull(st1)) then st1 = replace(st1, ">", "]") st1 = replace(st1, "<", "[") st1= replace(st1, """", "") XssStr = st1 else XssStr = "" end if End Function ' XssStr(st1) '----------------------------------------------------------- Function TamCumleDuzelt(cumle) Cumle = Trim(Cumle) if Cumle <> "" then ' Nokta ve Virgülden önceki boþluklar siliniyor. Sonra da boþluk býrakýlýyor Cumle = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Cumle, " ,", ","), " .", "."), " ?", "?"), " !", "!"), " :", ":"), " ;", ";"), " )", ")") Cumle = Replace(Replace(Replace(Replace(Replace(Cumle, ", ", ","), "? ", "?"), "! ", "!"), ": ", ":"), "; ", ";") Cumle = Replace(Replace(Replace(Replace(Replace(Replace(Cumle, ",", ", "), "?", "? "), "!", "! "), ":", ": "), ";", "; "), ")", ") ") Cumle = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Cumle, ". 0", ".0"), ". 1", ".1"), ". 2", ".2"), ". 3", ".3"), ". 4", ".4"), ". 5", ".5"), ". 6", ".6"), ". 7", ".7"), ". 8", ".8"), ". 9", ".9") Cumle = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Cumle, ", 0", ",0"), ", 1", ",1"), ", 2", ",2"), ", 3", ",3"), ", 4", ",4"), ", 5", ",5"), ", 6", ",6"), ", 7", ",7"), ", 8", ",8"), ", 9", ",9") Cumle = Replace(Replace(Cumle,"( ","(")," )",")") Cumle = Replace(Replace(Replace(Replace(Cumle,":)"," :)"),";)"," ;)"),":-)"," :-)")," :=)"," :=)") Cumle = HackTemizle(Cumle) ' Altindaki ve sonundaki boþluklarý ve boþ satýrlarý siliyor cumle = trim(cumle) Do While ((right(cumle,1)=" ") OR (right(cumle,1)=vbCr) OR (right(cumle,1)=vbLf)) and (len(cumle)>0) cumle = left(cumle, len(cumle)-1) if len(cumle)<1 then exit do loop Do While ((left(cumle,1)=" ") OR (left(cumle,1)=vbCr) OR (left(cumle,1)=vbLf)) and (len(cumle)>0) cumle = right(cumle, len(cumle)-1) if len(cumle)<1 then exit do loop End if TamCumleDuzelt = cumle End Function ' TamCumleDuzelt(cumle) '----------------------------------------------------------- Function EmailDuzelt(email) email = trim(email) if email <> "" then ' Altindaki ve sonundaki boþluklarý ve boþ satýrlarý siliyor email = trim(email) email = Replace(email," ","") Do While ((right(email,1)=" ") OR (right(email,1)=vbCr) OR (right(email,1)=vbLf)) and (len(email)>0) email = left(email, len(email)-1) if len(email)<1 then exit do loop Do While ((left(email,1)=" ") OR (left(email,1)=vbCr) OR (left(email,1)=vbLf)) and (len(email)>0) email = right(email, len(email)-1) if len(email)<1 then exit do loop ' Kucuk haref donusturuluyor ve Turkce karakterler duzeltiliyor email = LCASE(email) email = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(email, "ö", "o"), "Ö", "o"), "ç", "c"), "Ç", "c"), "þ", "s"), "Þ", "s"), "Ý", "i"), "ý", "i"), "ð", "g"), "Ð", "g"), "ü", "u"), "Ü", "u") End if EmailDuzelt = email End Function ' EmailDuzelt '----------------------------------------------------------- Function EmailHatasi(email) ' EMAÝL GEÇERLÝMÝ: ' 0: Geçerli OK ' 1: @ yok OK ' 2: @ birden fazla var OK ' 3: @ 'den sonra . yok OK ' 4: username yok yahut geçersiz OK ' 5: domain name yok yahut geçersiz OK ' 6: email geçersiz bazý karakterler içeriyor ' 7: yeterince uzun deðil OK email = EmailDuzelt(email) hata_num = 0 ' Yeterince uzun mu? if (hata_num=0) and (len(email)<8) then EmailHatasi = "Bir email adresi olmak için çok kýsa" Exit Function end if ' Email, bileþenlerine ayrýlýyor atPos = inStr(email, "@") if atPos=0 then EmailHatasi = "@ iþareti yok" Exit Function end if Username = Left(email, atPos-1) DomainName = Right(email, len(email)-atPos) if len(Username)<2 then EmailHatasi = "@ iþaretinden önceki kýsým çok kýsa" Exit Function end if if len(DomainName)<2 then EmailHatasi = "@ iþaretinden sonraki kýsým çok kýsa" Exit Function end if if inStr(DomainName, "@")>0 then EmailHatasi = "Birden fazla @ iþareti var" Exit Function end if if inStr(DomainName, ".")=0 then EmailHatasi = "@ iþaretinden sonra . (nokta) yok" Exit Function end if For i = 1 to len(email) CHE = mid(email,i,1) if (CHE<>".") and (CHE<>"-") and (CHE<>"_") and (CHE<>"@") and (not ((LCase(CHE) >= "a") and (LCase(CHE) <= "z"))) and (not ((LCase(CHE) >= "0") and (LCase(CHE) <= "9"))) then EmailHatasi = "Bir email adresinde bulunamayacak karakterler içeriyor" Exit Function end if Next EmailHatasi = "" End Function ' EmailHatasi(email) '----------------------------------------------------------- Function ingilizlestir(st1) if not(isempty(st1)) AND not(isnull(st1)) then ingilizlestir = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(st1, "ö", "o"), "Ö", "O"), "ç", "c"), "Ç", "C"), "þ", "s"), "Þ", "S"), "ý", "i"), "Ý", "I"), "ı", "i"), "İ", "I"), "ð", "g"), "Ð", "G"), "ü", "u"), "Ü", "U") else ingilizlestir = st1 end if End Function ' ingilizlestir(st1) '----------------------------------------------------------- Function TirnakCiftle(st1) if not(isempty(st1)) AND not(isnull(st1)) then TirnakCiftle = HackTemizle(replace(replace(st1, CHR(34), CHR(39)), CHR(39), CHR(39)&CHR(39))) else TirnakCiftle = "" end if End Function ' TirnakCiftle(st1) '----------------------------------------------------------- Function TirnakTekle(st1) if not(isempty(st1)) AND not(isnull(st1)) then TirnakTekle = HackTemizle(replace(st1, CHR(39)&CHR(39), CHR(39))) else TirnakTekle = "" end if End Function ' TirnakTekle(st1) '----------------------------------------------------------- Function ilkHarfBuyut(cumle1) cumle = cumle1 if isempty(cumle) or isnull(cumle) Then cumle = "" else cumle = lcase(replace(replace(cumle,"I","i"),"İ","i")) end if sonuc = "" if cumle <> "" then cumle = trim(cumle) if cumle <> "" then cumle = replace(cumle, VbCrLf, " ") if cumle <> "" then cumle = replace(cumle, " ", " ") if cumle <> "" then cumle = replace(cumle, " ", " ") if cumle <> "" then cumle = replace(cumle, " ", " ") if cumle <> "" then cumle = replace(cumle, " ", " ") while (right(cumle,1)=VbCr) OR (right(cumle,1)=VbLf) OR (right(cumle,1)=VbTab) OR (right(cumle,1)="") cumle = left(cumle,len(cumle)-1) wend end if if cumle <> "" then kelimed = split(cumle, " ") kelimes = ubound(kelimed) for i5 = 0 to kelimes basharf = left(kelimed(i5),1) if basharf = "i" then basharf = "I" if basharf = "İ" then basharf = "İ" if basharf = "ı" then basharf = "I" if basharf = "I" then basharf = "I" basharf = ucase(basharf) kalanharf = "" if len(kelimed(i5))>1 then kalanharf = right(kelimed(i5), len(kelimed(i5))-1) sonuc = sonuc & " " & basharf & kalanharf next end if if sonuc <> "" then if left(sonuc,1) = " " then sonuc = right(sonuc, len(sonuc)-1) end if ilkHarfBuyut = sonuc End Function '----------------------------------------------------------- Function ZiyaretciIP() ip = "" if Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" then ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") if ip<>"" then ipRange = Split(ip,",") ip = ipRange(0) if inStr(ip,":") then ip=Left(ip,inStr(ip,":")-1) end if end if end if if ip="" then if Request.ServerVariables("REMOTE_ADDR") <> "" then ip = Request.ServerVariables("REMOTE_ADDR") end if end if ZiyaretciIP = Trim(ip) End Function '----------------------------------------------------------- Function GetCountryCode() set oconCountry = Server.CreateObject("YMSQLDataAdapter.DataAdapter") oconCountry.Server = "masterdb.poemhunter.com" oconCountry.Database = "Poemhunter" if (Request.ServerVariables("REMOTE_ADDR") = "50.23.249.114") then 'if (Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "") then IP_No = Request.ServerVariables("HTTP_X_FORWARDED_FOR") IP_No = mid(IP_No, 1, instr(IP_No, ":") - 1) IP_No = Replace(IP_No," ","") if instr(IP_No,",") then IP_No = Left(IP_No, instr(IP_No, ",")-1) else IP_No = Request.ServerVariables("REMOTE_ADDR") end if ip_CountryCode = "" if (instr(IP_No, ".") > 0) then IP_Dizisi = Split(IP_No,".") IPNUM=cdbl(IP_Dizisi(0)*256*256*256+IP_Dizisi(1)*256*256+IP_Dizisi(2)*256+IP_Dizisi(3)) Set rsCountry = oconCountry.execute("Select CountryCode from Poemhunter_stats..GeoIPCountryWhois where (IPNUM1<="& IPNUM &") and (IPNUM2>="& IPNUM &");",900) if not rsCountry.eof then ip_CountryCode = rsCountry("CountryCode") end if rsCountry.close end if set rsCountry = nothing set oconCountry = nothing GetCountryCode = ip_CountryCode End Function '----------------------------------------------------------- function BosluktanKes(strBoslukK,lftAdet) if isNull(strBoslukK)=true or Len(strBoslukK)<1 then bosluktanKes="" else if Len(strBoslukK)<=lftAdet then strBoslukK_Y=strBoslukK else if Mid(strBoslukK,lftAdet+1,1)=" " then strBoslukK_Y = Left(strBoslukK,lftAdet) & "..." else for m=lftAdet to 1 step -1 if Mid(strBoslukK,m,1)=" " then strBoslukK_Y=Left(strBoslukK,m) & "..." exit for end if next end if end if end if bosluktanKes=strBoslukK_Y '''açýklama''' ''' Örnek Kullaným: BosluktanKes("Yine yeþillendi fýndýk dallarý",20) ''' Sonuç: Yine yeþillendi ''' ''' Soldan 20 karakteri alýr ve 19-18 diye aþaðý doðru cümlede boþluk arar. Bulduðunda fonksiyon durur ve sonucu verir. Mehmet... ''' end function Function KarakterSay(strGelen, strHarf) ''' cümle içinde aranan kelimeden kaç adet olduğunu hesaplar. mehmet... sayacb=0 konum = instr(strGelen,strHarf) do while (konum > 0) konum = instr(konum + 1, strGelen, strHarf) sayacb=sayacb+1 loop KarakterSay = sayacb End Function function BRdenKes(strBoslukK,lftAdet) if isNull(strBoslukK)=true or Len(strBoslukK)<1 then BRdenKes=strBoslukK else if Len(strBoslukK)<=lftAdet then strBoslukK_Y=strBoslukK else if Mid(strBoslukK,lftAdet+1,6)="
" then strBoslukK_Y = Left(strBoslukK,lftAdet) & "
..." else for m=lftAdet to 1 step -1 if Mid(strBoslukK,m,6)="
" then strBoslukK_Y=Left(strBoslukK,m-1) & "
..." exit for end if next end if end if end if BRdenKes=strBoslukK_Y ''' Mehmet... End Function Function stripTags(HTMLstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "<[^>]+>" .IgnoreCase = True .Global = True End With strOutput = RegularExpressionObject.Replace(HTMLstring, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") strOutput = Replace(strOutput, """", """) stripTags = strOutput Set RegularExpressionObject = nothing End Function Function stripTagsRmv(HTMLstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "<[^>]+>" .IgnoreCase = True .Global = True End With strOutput = RegularExpressionObject.Replace(HTMLstring, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "") strOutput = Replace(strOutput, ">", "") strOutput = Replace(strOutput, """", "") stripTagsRmv = strOutput Set RegularExpressionObject = nothing End Function Function yerelUrlSil(st1) if not(isempty(st1)) AND not(isnull(st1)) then st1 = replace(st1, "yeni.poemhunter.com", "www.poemhunter.com") st1 = replace(st1, "www1.poemhunter.com", "www.poemhunter.com") st1 = replace(st1, "www2.poemhunter.com", "www.poemhunter.com") st1 = replace(st1, "yeniislem.poemhunter.com", "") st1 = replace(st1, "islem.poemhunter.com", "") yerelUrlSil = st1 else yerelUrlSil = "" end if End Function ' yerelUrlSil(st1) function GAClickYaz(sayfaTMP,linkAdiTMP) '''kullanimi: <'%=GAClickYaz("Poem Ana","")%'> if CrPage="poems" and page_id = 10178 then sayfaTMP="Şiir Detay" GAClickYaz = " onclick=""javascript:ga('send', 'event', '" & sayfaTMP & "', 'Click', '" & linkAdiTMP & "');"" " elseif CrPage="homepage" and page_id = 100001 then sayfaTMP="Poem Ana" GAClickYaz = " onclick=""javascript:ga('send', 'event', '" & sayfaTMP & "', 'Click', '" & linkAdiTMP & "');"" " else GAClickYaz = "" end if end function Function RokieBul(memberIdTmp,SairIdTmp) set oconTmp = Server.CreateObject("YMSQLDataAdapter.DataAdapter") oconTmp.Server = "masterdb.poemhunter.com" oconTmp.Database = "Poemhunter" oconTmp.SecurityKey = "35C52FFB-9801-47AF-B768-6901C63B7D9E" if memberIdTmp="" then memberIdTmp=0 if SairIdTmp="" then SairIdTmp=0 if memberIdTmp=0 then strSQLMS="SELECT Members.id FROM Sairler INNER JOIN Members ON Sairler.Ekleyen_id = Members.id WHERE Sairler.id=" & SairIdTmp set rsMS = oconTmp.execute(strSQLMS,300) if not rsMS.eof then memberIdTmp=rsMS(0) end if end if KademeYi="" kademeYazi="Rookie" strSQLYi = "SELECT puan, (SELECT SUM(Puan) as PuanG FROM UyeYapilanIslemler_GUNLUK WITH (NOLOCK,READUNCOMMITTED) WHERE member_id="& memberIdTmp &") as PuanG, Kademe FROM UyeYapilanIslemler WITH (NOLOCK,READUNCOMMITTED) WHERE member_id="& memberIdTmp &";" Set rs1yi = oconTmp.execute(strSQLYi,300) if not rs1yi.eof then PuanYi=rs1yi("Puan") PuanG=rs1yi("PuanG") if PuanG="" then PuanG=0 if PuanYi="" then PuanYi=0 if PuanG > PuanYi then PuanYi=PuanG end if 'KademeYi=rs1yi("Kademe") KademeYi=1 if PuanYi>500 then KademeYi=2 if PuanYi>1000 then KademeYi=3 if PuanYi>2000 then KademeYi=4 if PuanYi>3000 then KademeYi=5 if PuanYi>4500 then KademeYi=6 if KademeYi=1 then kademeYazi="Rookie - "&FormatNumber(PuanYi,0)&" Points" if KademeYi=2 then kademeYazi="Freshman - "&FormatNumber(PuanYi,0)&" Points" if KademeYi=3 then kademeYazi="Veteran Poet - "&FormatNumber(PuanYi,0)&" Points" if KademeYi=4 then kademeYazi="Bronze Star - "&FormatNumber(PuanYi,0)&" Points" if KademeYi=5 then kademeYazi="Silver Star - "&FormatNumber(PuanYi,0)&" Points" if KademeYi=6 then kademeYazi="Gold Star - "&FormatNumber(PuanYi,0)&" Points" end if if KademeYi="" then KademeYi=1 RokieBul = memberIdTmp & "#" & PuanYi & "#" & KademeYi & "#" & kademeYazi End Function ' RokieBul(1234123,0) Function GETHTTP(adres) Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0") StrHTTP.Open "GET" , adres, false StrHTTP.sEnd GETHTTP = StrHTTP.Responsetext Set StrHTTP = Nothing End Function Function TrimAll(Str) 'remove all non ASCI chrs and reduce internal whitespace to single Dim i, strTemp, strOut, strCh strTemp = Str For i = 1 To Len(strTemp) strCh = Mid(strTemp,i,1) 'look at each character in turn 'if the chr is a space and the previous added chr was a space ignore it 'otherwise add it on If Not (strCh = " " and Right(strOut,1) = " ") _ And ((Asc(strCh) >= 64 And Asc(strCh) <= 122) _ Or (Asc(strCh) >= 48 And Asc(strCh) <= 57) Or Asc(strCh) = 32 Or strCh = ".") Then strOut = strOut & strCh End If Next TrimAll = strOut End Function %> Sick And Tired - ani hill