Partial Class main
    Inherits System.Web.UI.MasterPage

    Private Sub findtextbtn_Click(sender As Object, e As EventArgs) Handles findtextbtn.Click
        Dim i As Integer

        If findtext.Text.Contains(" ") Then
            'kelime birden fazla ise kelimeleri ayırır
            Dim girilenkelime As String() = findtext.Text.Split(" ")
            Dim yol As String = ""
            Dim bitis As Integer = girilenkelime.Length - 1
            For i = 0 To bitis Step 1
                yol = yol & "S" & i & "=" & girilenkelime(i) & "&"
            Next

            yol = yol.Substring(0, yol.Length - 1)
            Response.Redirect("/arama-sonuclari.aspx?" & yol)
        Else
            Response.Redirect("/arama-sonuclari.aspx?S=" & findtext.Text)
        End If
    End Sub
End Class