Function KontrolEt(degisken, secenek)
        Dim k
        r = Server.CreateObject("ADODB.Recordset")
        s = "Select TOP 100 * from kategoriler order by kat_adi asc"
        r.Open(s, db, 1, 3)

        Do While Not r.eof
            If r(secenek) = degisken Then
                k = 1
            Else
                k = 2
            End If
        Loop
        r.close()
        KontrolEt = k
    End Function

    Sub yapCat()
        Dim d
        d = Request.QueryString("id")
        If KontrolEt(d, "sutunadi") = 1 Then
            'işlem 1
        Else
            'işlem 2
        End If
    End Sub