For Each X In Request.Form()

If (Request.Form(X) <> "") And (Not IsNull(Request.Form(X))) Then
Cikti = Cikti & X & " : " & Request.Form(X) & " adet<br>"
End If

Next

Response.Write(Cikti)