<% Response.Charset = "utf-8" %><%Session.CodePage=65001%> <% sql="select * from [website]" Set rs_home= Server.CreateObject("ADODB.Recordset") rs_home.open sql,conn,1,1 titlename=rs_home("Title") keyname=rs_home("keywords") descriptionname=rs_home("description") hometel=rs_home("tel") homeqq=rs_home("qq") rsleft.close set rsleft=nothing function outkon(str) str=replace(str," "," ") str=replace(str," "," ") outkon=str end function function dwdate(daten) dwdate=year(daten)&"-"&Right("0" & month(daten),2)&"-"&Right("0" & day(daten),2) end function Function Comma(str) If Not(IsNumeric(str)) or str = 0 Then Result = 0 ElseIf Len(Fix(str)) < 4 Then Result = str Else Pos = Instr(1,str,".") If Pos > 0 Then Dec = Mid(str,Pos) End if Res = StrReverse(Fix(str)) LoopCount = 1 While LoopCount <= Len(Res) TempResult = TempResult + Mid(Res,LoopCount,3) LoopCount = LoopCount + 3 If LoopCount <= Len(Res) Then TempResult = TempResult + "," End If Wend Result = StrReverse(TempResult) + Dec End If Comma = Result End Function %>