<%@Language = VBScript %>
<!--#include file="naber2.asp"-->
<%
' str = "x@example.com"
' numpad = 16 - (Len(str) Mod 16)
' str = str & String("&H"& numpad).Repeat(numpad)
' Response.Write str

Private Function toStr(ByVal s)
    toStr = CStr(s)
End Function

'Response.Write TypeName(toStr(4))

Public Function String(ByVal sName)
    Set String = (New StringBuilder)(sName)
End Function

Class StringBuilder
    Public strCurr
    Public Property Let ad(ByVal dilo)
        strCurr = dilo
    End Property

    Public Default Function Take(ByVal name)
        strCurr = name
        Set Take = Me
    End Function

    Public Property Get ad
        ad = strCurr
    End Property

    Public Function toStr()
        toStr = CStr(strCurr)
    End Function
    Public Function toReverse()
        toReverse = strReverse(strCurr)
    End Function

    Public Function toArr()
        Dim arrTmp()
        Redim arrTmp(Me.CharLength(strCurr) - 1)
        For i = 0 To UBound(arrTmp)
            arrTmp(i) = Mid(strCurr, i + 1, 1)
        Next
        toArr = arrTmp
    End Function

    Public Function CharLength(strCurr)
        CharLength = Len(strCurr)
    End Function

    Public Function Repeat(ByVal intCnt)
        Repeat = Join(Split(Space(intCnt)), strCurr)
    End Function
End Class

Dim o
Set o = New StringBuilder
Dim d
Set d = Server.CreateObject("Adodb.Connection")

Dim str : str = "naber lan düdük"& sokarımatu & ""+ 234.23 & Join(Array(1,2,4),"")

'Response.Write String(3).toStr()
'Response.Write(Join(String("Mahmut").toArr, "*"))
'For i = 1 To 255
'Response.Write(String("vadsap ").Repeat(64) & "<br />")
'Next

'#region naber

'#endregion
%>